[VBA-E] erreur boucle for each

Bonjour

j'essais de faire une simple boucle sous vba excel (que je découvre) et je tombe déjà sur un p'tit probleme.

mon code est censé parcourir les cellules de la colonne A jusqu'à la ligne 20 et de vérifier si la cellule est vide.Si elle l'est il la colorie.

y'a quelque chose qui coince :roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub brangvide()   Dim fin_list As Variant Dim i As Variant   fin_list = 20 i = 1   For Each i In Range("A" & i)   If i = fin_list Then Exit For Else If Range("A" & i) = "" Then Range("A" & i).Select With Selection.Interior .ColorIndex = 50 .Pattern = xlSolid End With End If End If   i = i + 1 Next end sub

---

et la il me met "la méthode range de l'objet '_global' a échouée"

Si quelqu'un peut m'aider...

Bonjour,

dans ta boucle if, il faut que tu rajoute .value dans ton test pour tester la valeur de la cellule:

Code:

---

If Range("A" & i).value = "" Then

---

A+

toujours la meme erreur :(

For Each i In Range("A1:A" & i)

d'autrepart range dépend d'un worksheet
qui dépend d'un worbook
soit tu donnes une adresse complète soit par exemple
ActiveSheet.Range("A1A" & i)

bonjour

tu peux tester cette synthaxe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim fin_list As Integer, i As Integer   fin_list = 20   For i = 1 To fin_list If Range("A" & i) = "" Then With Range("A" & i).Interior .ColorIndex = 50 .Pattern = xlSolid End With End If Next i

---

bon apres midi
michel

Salut

Le problème vient de l'utilisation du For Each. Comme tu le fais un For Next ordinaire ferait tout aussi bien. For Each convient pour les objets d'une collection ou d'un groupe défini d'objets. Exemple:

Code:

---

1 2 3 4 5 6 7

Dim Cellule As Range, Plage As Range Set Plage = Range("A1:A8") For Each Cellule In Plage If VarType(Cellule.Value) = vbDate Then Cellule.Interior.Color = vbYellow End If Next

---

Ce code vérifie si le contenu des cellules d'une plage est une date. Si oui, la cellule est colorée en jaune.

oui effectivement le for to next est bien mieux approprié ! ça marche très bien merci beaucoup à vous tous ! :wink: