Discussion :

[Mut]

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...

[MrYoYo]

Bonjour,

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

Code :

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

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

A+

[Mut]

toujours la meme erreur

[random]

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)

[SilkyRoad]

bonjour

tu peux tester cette synthaxe

Code :

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

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

[zazaraignée]

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 :

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

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.

[Mut]

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