Couleurs
Le
Jacquouille

Bonjour
Hier, on a parlé de tableaux et de couleurs.
Aujourd'hui, pris d'un élan artistique, je me suis fait ce complément de
fichier pour retrouver le n° de colorindex de la cellule.
Pouvez-vous-me dire pourquoi il m'affiche un truc en ligne 3, svp ?
voir doc:
http://cjoint.com/?ECtpctm2D6Q
Sub rerechercher_la_couleur()
Dim c As Variant
For Each c In Range("a2:h2", "a4:h4")
c.Value = c.Offset(-1, 0).Interior.ColorIndex
Next
End Sub
Grand merci et bonne journée.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Hier, on a parlé de tableaux et de couleurs.
Aujourd'hui, pris d'un élan artistique, je me suis fait ce complément de
fichier pour retrouver le n° de colorindex de la cellule.
Pouvez-vous-me dire pourquoi il m'affiche un truc en ligne 3, svp ?
voir doc:
http://cjoint.com/?ECtpctm2D6Q
Sub rerechercher_la_couleur()
Dim c As Variant
For Each c In Range("a2:h2", "a4:h4")
c.Value = c.Offset(-1, 0).Interior.ColorIndex
Next
End Sub
Grand merci et bonne journée.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
For Each c In Range("a2:h2, a4:h4")
Sont-ce donc ces deux guillemets?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacquouille" a écrit dans le message de groupe de discussion :
meek8q$pig$
Bonjour
Hier, on a parlé de tableaux et de couleurs.
Aujourd'hui, pris d'un élan artistique, je me suis fait ce complément de
fichier pour retrouver le n° de colorindex de la cellule.
Pouvez-vous-me dire pourquoi il m'affiche un truc en ligne 3, svp ?
voir doc:
http://cjoint.com/?ECtpctm2D6Q
Sub rerechercher_la_couleur()
Dim c As Variant
For Each c In Range("a2:h2", "a4:h4")
c.Value = c.Offset(-1, 0).Interior.ColorIndex
Next
End Sub
Grand merci et bonne journée.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Quel truc ?
Cordialement.
Daniel
Suivant que je mets les apostrophes("A2:H2","A4:H4") ou ("A2:H2,A4:H4"), il
me met en ligne 3 le nombre -4142
On le voit dans le doc annexé.
Si tu modifies la macro en enlevant les " entre H2 et A4, il ne le fait
plus....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"DanielCo" a écrit dans le message de groupe de discussion :
meemo5$vmp$
Bonjour,
Quel truc ?
Cordialement.
Daniel
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Bonjour
"A2:H2,A4:H4" sélectionne A2:H2 *et* A4:H4
"A2:H2","A4:H4" sélectionne A2:H2 *jusqu'à* A4:H4 (donc inclut A3:H3).
Donc la macro affiche en ligne 3 la couleur de la ligne 2 (-4142, qui
doit signifier : absence de couleur) ...
db
Essaie comme ceci :
'---------------------------------------------------
Sub rerechercher_la_couleur()
Dim c As Range
For Each c In Union(Range("a2:h2"), Range("a4:h4"))
c.Value = c.Offset(-1, 0).Interior.ColorIndex
Next
End Sub
'---------------------------------------------------
Si tu écris la plage de cellules comme ceci : Range("a2:h2", "a4:h4")
L'adresse de cette plage de cellule est : A2:H4 et la boucle s'effectue
sur chacune de ces cellules. Lorsqu'elle boucle sur la ligne 3, elle
retourne la couleur des cellules de la ligne 2 qui est -4142 pour toutes
les cellules, car la ligne 2 n'a pas de couleur.