Discussion :

[nananinanana]

Bonjour à tous,

Bout de code qui à pour objectif de colorer des colonnes avec condition sur une ligne
Cela ne fonctionne pas mais je ne vois vraiment pas d'où vient le problème

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each cell1 In Worksheets("GMD").Rows(4)
If cell1.Text = "Figé" Then
cell1.EntireColumn.Interior.ColorIndex = 15
End If
Next

[Marc-L]

Bonjour,

bout de code donc incomplet et impossible de pointer précisément l'erreur (même si j'en verrais bien deux !) …

Déjà le B-A-BA du développeur : vérifier au moins ce que renvoie cell1.Text !

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Philippe Tulliez]

Bonjour,
Worksheets("GMD").Rows(4) ne renvoie qu'un seul élément vérifie au pas à pas
Msgbox Worksheets("GMD").Rows(4).Count renvoie 1

[EDIT]
Ajoute la propriété Cells et comme te l'a fait remarquer Marc il est préférable d'utiliser la propriété Value que Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cell1 In Worksheets("GMD").Rows(4).Cells

[nananinanana]

ça répond parfaitement à mon problème merci !

Désolé je ne connais pas les B-A-BA du développeur car je ne suis que novice

Bonne journée