boucle couleur

Question

Bonjour, 

Je cherche a faire sur vb excel une routine qui s'arrete selon la couleur de la cellule .
exemple :

While cells(x,y) n'est pas ecrite en rouge 

Blabla
blabla

wend

Merci par avance

benben

HFanny · Answer

Bonjour,


Sub boucleCouleur()
Dim maCellule As Range
Set maCellule = Range("A1")

While Not maCellule.Font.ColorIndex = 3
Set maCellule = maCellule.Offset(1, 0)
Wend

MsgBox maCellule

End Sub


Le .Font.ColorIndex correspond à la couleur de la font
Si tu veux chercher en fonction de la couleur de la cellule :
.Interior.ColorIndex

Après, il faut que tu connaisses l'index de ta couleur  :) 

Fanny

cs_benben00 · Answer

Merci a toi fanny
bisous bye
benben

cs_benben00 · Answer

Merci a toi fanny
bisous bye
benben

cs_benben00 · Answer

En fait j'ai encore un bug avec ton code
alors j'ai fais la chose suivante 

(tant que la cellule (i,h) n'est pas rouge et la cellule (i,1) n'est pas vide)

for h=4 to 8
 While Not Cells(i, h).Font.ColorIndex 3 Or Not Cells(i, 1) ""

blalblabla

i=i+1
wend
next

quand je fait tourner le code, il n'arrive pas a sotir de la boucle while et donc il me rempli la colonne h jusqu'e tout en bas de la feuille excel et quand il peut plus aller plus bas il bugue

voila voila
Merci par avance

benben

HFanny · Answer

Le seul truc que j'ai modifié c'est la réinitialisation de i avant le passage dans la boucle.


Dim i, h As Integer
For h = 4 To 8
i = 1While Not Cells(i, h).Font.ColorIndex 3 Or Not Cells(i, 1) ""
Cells(i, h) = "ok"
i = i + 1
Wend

Next h


Fanny

Boucle couleur

5 réponses

Discussions similaires