Se connecter avec
S'enregistrer | Connectez-vous

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

Dernière réponse : dans Programmation

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 IfTu ne veux pas me mettre /cpp là plutôt que url. Pour ça clique sur le bouton . Profites-en pour effacer ma remarque.

si quelqu'un réussit à trouver et bien bravo et merci" target="_blank"> <-- Tu ne veux pas me mettre /cpp là plutôt que url. Pour ça clique sur le bouton . Profites-en pour effacer ma remarque.

si quelqu'un réussit à trouver et bien bravo et merci

Autres pages sur : modifier couleur texte ligne cellule nonvide

Lassé par la pub ? Créez un compte
Expert Programmation

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 : 
  1. Private Sub Worksheet_Change(ByVal Target As Range))
  2.     If Target.Worksheet.Range("I8").Text = "" Then
  3.         Target.Worksheet.Range("A8:H8").Font.ColorIndex = 1
  4.     Else
  5.         Target.Worksheet.Range("A8:H8").Font.ColorIndex = 6
  6.     End If
  7. End Sub

Citation :
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 : 
  1. Private Sub Worksheet_Change(ByVal Target As Range))
    

  2.     If Target.Worksheet.Range("I8").Text = "" Then
    

  3.         Target.Worksheet.Range("A8:H8").Font.ColorIndex = 1
    

  4.     Else
    

  5.         Target.Worksheet.Range("A8:H8").Font.ColorIndex = 6
    

  6.     End If
    

  7. End Sub


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

Citation :
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
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    

  2.  'modification de la couleur du texte si demande de la q soutien
    

  3.  
  4. If Target.Column = 9 _
    

  5.   And Target.Row >= 6 Then
    

  6.     If UCase(Target.Value) = "" Then
    

  7.       Target.EntireRow.Font.ColorIndex = 1
    

  8.     Else
    

  9.       Target.EntireRow.Font.ColorIndex = 6
    

  10.  
  11.  
  12.     End If
    

  13.   End If
    

  14. End Sub

à bientôt salut zeb
Lassé par la pub ? Créez un compte

Créer un nouveau sujet