Discussion :

[retraite83]

Bonjour,

j'ai un pb de compréhension à l'utilisation des Range multiple dans certains cas, les docs lus ne m'éclairent pas…

J'ai une séquence de code qui copie les couleurs de fond d'une plage sur une ligne et qui marche parfaitement :

Code :

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

1
2
3
4
5
6
7
8
 
                                top.Range("E" & freeLig).Interior.Color = top.Range("E" & k).Interior.Color
                                top.Range("F" & freeLig).Interior.Color = top.Range("F" & k).Interior.Color
                                top.Range("G" & freeLig).Interior.Color = top.Range("G" & k).Interior.Color
                                top.Range("H" & freeLig).Interior.Color = top.Range("H" & k).Interior.Color
                                top.Range("I" & freeLig).Interior.Color = top.Range("I" & k).Interior.Color
                                top.Range("J" & freeLig).Interior.Color = top.Range("J" & k).Interior.Color
                                top.Range("K" & freeLig).Interior.Color = top.Range("K" & k).Interior.Color

si je veux remplacer par :

Code :

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

                     top.Range("E" & freeLig & ":K" & freeLig).Interior.Color = top.Range("E" & k & ":K" & k).Interior.Color

le résultat n'est pas le même, je ne vois vraiment pas où est mon erreur

[ARTURO83]

Bonjour,

J'ai fait l'essai avec FreeLig=2
K=4
j'ai retiré "TOP.", (ce ne sait pas à quoi ça correspond), ça marche bien
Que vaut "TOP."? (valeur généralement réservée par VBA pour indiquer le haut)

Cdlt

[halaster08]

le résultat n'est pas le même, je ne vois vraiment pas où est mon erreur

Bonjour,

Dans le premier code tu demande a chaque cellule de prendre la couleur de la cellule correspondante, dans le second tu demande à l'ensemble des cellules de prendre une seule couleur, celle d'une plage, or c'est quoi la couleur d'une plage ? celle de la première cellule ? la dernière ? une moyenne de toute les couleurs ? autre chose ?
Après quelques tests rapide, on dirait qu'a partir du moment où tu as plus d'une cellule qui soit coloré VBA décide que la couleur de la plage est noir

une proposition d'écriture avec boucle pour éviter la répétition de l'instruction:

Code :

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

1
2
3
4
dim cel as range 'a ajouter à tes déclarations
for each cel in top.Range("E" & freeLig & ":K" & freeLig)
    cel.Interior.Color = top.cells(k,cel.column).Interior.Color
next cel

[retraite83]

Oui j'ai compris merci