modifier la couleur du texte sur la ligne si céllule nonvide

[NATURECIEL]

bonjour les pro de la macro

j'ai fais une petite macro
qui sert à lorsque dans la cellule i8 il ya du texte alors toute la ligne
change de couleur au texte.
sinon si rien dans la cellule i8 revenir avec la couleur de départ noir.

la macro fonctionne mais il doit manquer plusieur chose car il provoque des erreurs
sur d'autre programme en paralléle et je ne sais pas quoi mettre en premier exemple:
(Private Sub Worksheet_Change(ByVal Target As Range))

[cpp]'modification de la couleur du texte si demande de la q soutien
If Range("i8") = "" Then
Range("a8:h8").Font.ColorIndex = 1
Else
Range("a8:h8").Font.ColorIndex = 6
End If

Vous devez être connecté pour voir les liens.

 

[zeb]

Je ne comprends pas bien ton histoire d'autres programmes en parallèle.
Et puisque tu parles d'erreurs, merci de nous donner le numéro, le texte et la ligne de l'erreur.

Je le répète à longueur de messages !!!! Toujours préciser la feuille à laquelle appartient la cellule que l'on considère.
Ici : [cpp]Private Sub Worksheet_Change(ByVal Target As Range))
If Target.Worksheet.Range("I8").Text = "" Then
Target.Worksheet.Range("A8:H8").Font.ColorIndex = 1
Else
Target.Worksheet.Range("A8:H8").Font.ColorIndex = 6
End If
End Sub[/cpp]

 

[NATURECIEL]

Je ne comprends pas bien ton histoire d'autres programmes en parallèle.
Et puisque tu parles d'erreurs, merci de nous donner le numéro, le texte et la ligne de l'erreur.

Je le répète à longueur de messages !!!! Toujours préciser la feuille à laquelle appartient la cellule que l'on considère.
Ici : [cpp]Private Sub Worksheet_Change(ByVal Target As Range))
If Target.Worksheet.Range("I8").Text = "" Then
Target.Worksheet.Range("A8:H8").Font.ColorIndex = 1
Else
Target.Worksheet.Range("A8:H8").Font.ColorIndex = 6
End If
End Sub[/cpp]

zeb zeb toujours zeb merci
je crois que je vais prendre un abonnement

la modif que tu ma donner ne fonctionne pas
"erreur d'éxécution 438
propriété ou méthode non gérée par cet objet"
jai donc modifié worksheets("tableau") idem

sinon peux tu me faire une modif en plus au lieu de ("i8")mettre toute les céllule de la colonne("i8,i9,i10,ect")
et ainsi modifier la couleur du texte surchaque lignes .

à bientôt

 

[NATURECIEL]

zeb zeb toujours zeb merci
je crois que je vais prendre un abonnement

la modif que tu ma donner ne fonctionne pas
"erreur d'éxécution 438
propriété ou méthode non gérée par cet objet"
jai donc modifié worksheets("tableau") idem

sinon peux tu me faire une modif en plus au lieu de ("i8")mettre toute les céllule de la colonne("i8,i9,i10,ect")
et ainsi modifier la couleur du texte surchaque lignes .

à bientôt

zeb j'ai trouvé je suis content d'avoir trouvé de moi méme
3 nuit dessus et la en 10min trouvé je commence a m'améliorer
[cpp]Private Sub Worksheet_Change(ByVal Target As Range)
'modification de la couleur du texte si demande de la q soutien

If Target.Column = 9 _
And Target.Row >= 6 Then
If UCase(Target.Value) = "" Then
Target.EntireRow.Font.ColorIndex = 1
Else
Target.EntireRow.Font.ColorIndex = 6


End If
End If
End Sub[/cpp]
à bientôt salut zeb

 

[zeb]

j'ai trouvé je suis content d'avoir trouvé de moi méme

C'est ma plus belle récompense