Range multiple vs Range unique

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:

---

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:

---

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

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

Citation:

---

Envoyé par retraite83

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:

---

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

---

Oui j'ai compris merci