Colorisé une plage de cellule

[G'Claire]

Salut a toutes et tous

Voila je voudrais colorer une plage de cellule par rapport a son contenu sur plusieurs feuille, donc j'ai fait :

Dim Plage As Integer
With Sheets(Array("Liste1", "Liste2", "Liste3))
For plage = 1 To 10
If Cells(Plage, 1) = "Oui" Or Cells(Plage, 1) = "Non" Then
.Range(Cells(Plage, 1), Cells(Plage, 3)).Interior.ColorIndex = 12
End If
Next Plage
End With

Mais cela ne fonctionne pas, comment pourrais-je m'y prendre ?

Merci, G'Claire

 

[léa]

Bonjour Claire,

avec le code suivant ça fonctionne sur la feuille 1

Dim Plage As Integer
With Sheets(1)
For plage = 1 To 10
If Cells(Plage, 1) = "Oui" Or Cells(Plage, 1) = "Non" Then
.Range(Cells(Plage, 1), Cells(Plage, 3)).Interior.ColorIndex = 12
End If
Next Plage
End With

Maintenant pour l'appliquer aux autres feuilles, il te faut les sélectionner ou faire une boucle au cas où elles seraient consécutives

for F = 1 To 10
With Sheets(F)
......
.....
Next F

bon week-end
Léa

 

[G'Claire]

Lea, le forum

Merci, j'essaye de ce pas.

G'Claire

 

[G'Claire]

Léa, le forum

Voici ce que j'ai fait :

Dim Plage As Integer, F
For F = 1 To 10
With Sheets(F)
For plage = 1 To 10
If Cells(Plage, 1) = "Oui" Or Cells(Plage, 1) = "Non" Then
.Range(Cells(Plage, 1), Cells(Plage, 3)).Interior.ColorIndex = 12
End If
Next Plage
End With
Next F
End Sub

Et cela me fait la coloration sur la feuille active

Merci, G'Claire

 

[Hervé]

Bonjour

Et un truc dans ce style :

feuille = Array("Liste1", "Liste2", "Liste3")
For i = 0 To UBound(feuille)
With Sheets(feuille(i))
For Plage = 1 To 10
If .Cells(Plage, 1) = "Oui" Or .Cells(Plage, 1) = "Non" Then


G'claire : attention au . devant le cells de la condition if

Salut
Hervé

 

[G'Claire]

Léa, Hervé, le forum

Merci a vous deux, cela fonctionne.

Bon week-end, G'Claire