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


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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...