Variable de type Range inutilisable

[Darkyoup]

Bonjour,

Je suis coincé sur un problème d'utilisation d'une variable de type Range que j'affecte mais n'arrive pas à utiliser par la suite :

    Dim Plateau As Range
    Plateau = Union(Range("A1:I3"), Range("A4:C6"), Range("G4:I6"), Range("A7:I9"))
    Dim Cellule As Range
    For Each Cellule In Plateau
        Cellule.Interior.ColorIndex = 1
    Next

Et j'obtiens l'erreur suivante :

Variable objet ou variable de bloc With non définie

Etant donné que toutes les variables sont définies juste avant la boucle je suis assez étonné...

Merci de votre aide !

 

[Pierrot93]

Re : Variable de type Range inutilisable

Bonjour,

modifie comme suit :

Dim Plateau As Range
Set Plateau = Union(Range("A1:I3"), Range("A4:C6"), Range("G4:I6"), Range("A7:I9"))
    Dim Cellule As Range
    For Each Cellule In Plateau
        Cellule.Interior.ColorIndex = 1
    Next

bon après midi
@+

 

[Si...]

Re : Variable de type Range inutilisable

salut

et ainsi ?

    Dim Plateau As Range
    Set Plateau = Range("A1:I3,A4:C6,G4:I6,A7:I9")
    Dim Cellule As Range
    For Each Cellule In Plateau
        Cellule.Interior.ColorIndex = 1
    Next

 

[Darkyoup]

Re : Variable de type Range inutilisable

Ok, c'était bien tout bête ^^
Un grand merci pour vos réponses ! 🙂