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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
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
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$1@speranza.aioe.org...
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
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
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
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
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
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
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$1@speranza.aioe.org...
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
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 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
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) ...
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
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.
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.
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.
