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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #26344940
Et avec cette orthographe, il ne le fait pas:
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
DanielCo
Le #26344947
Bonjour,
Quel truc ?
Cordialement.
Daniel


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
Jacquouille
Le #26344958
Salut
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


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
db
Le #26344969
Le 19/03/2015 17:26, Jacquouille a écrit :
Salut
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....




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
MichD
Le #26344968
Bonjour,

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.
Publicité
Poster une réponse
Anonyme