Discussion :

[cynoq]

Bonjour à tous,
Je bloque sur un problème de parcours d'une zone nommée en VBA.
Je m'explique :
J'ai nommé sous Excel une zone de cellules.
En VBA, je souhaite parcourir la totalité des cellules de cette zone afin de faire un test sur les caractères dans le but de coloriser la cellule (exemple : cellule D7 contient "V", la cellule se colore en rouge).

Voici le début de mon code :

Code :

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

1
2
3
4
5
6
For Each curseur In Range("ZONE_NOMMEE")
    Select Case ActiveCell.Value
        Case "V": ActiveCell.Interior.ColorIndex = 3
        Case "CP": ActiveCell.Interior.ColorIndex = 4
    End Select
Next

Le résultat final : rien n'est colorisé sauf si je sélectionne une cellule de la zone avant de lancer la macro, seule la cellule sélectionner est colorisée.

Quelqu'un peut-il m'aider ?
Merci par avance pour votre aide.

[Godzestla]

Bonjour,

tu fais erronément référence à Activecell.

Remplace cela par Curseur.

Code :

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

1
2
3
4
5
6
For Each curseur In Range("ZONE_NOMMEE")
    Select Case curseur.Value
        Case "V": curseur.Interior.ColorIndex = 3
        Case "CP": curseur.Interior.ColorIndex = 4
    End Select
Next

[MarcelG]

Bonjour cynoq,

Ce n'est pas parceque tu écris Activecell que tu sélectionnes cette cellule, et donc que ton code s'applique.
D'ailleurs, il n'est pas besoin de sélectionner une cellule pour y appliquer par VBA une propriété

Essaie plutôt

Code :

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

1
2
3
4
5
6
7
8
Dim c as range
 
For Each c In Range("ZONE_NOMMEE")
    Select Case c.Value
        Case "V": c.Interior.ColorIndex = 3
        Case "CP": c.Interior.ColorIndex = 4
    End Select
Next

[cynoq]

Ok, merci à vous deux pour vos réponse.
Je n'ai pas fait attention que je ne faisait pas référence à mon curseur.
Encore merci.