Dans mon programme, je s=E9lectionne une cellule.
Je souhaite effectuer l'op=E9ration suivante :
si la couleur de fond de la case est vert, la rendre=20
transparente.
J'ai essay=E9 : if selection.interior.colorindex =3D 4....,=20
mais =E7a n'a pas l'air de fonctionner.
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
Denis Michon
Bonjour Antoine,
Essaie ceci :
With Worksheets("Feuil1") 'Nom feuille à déterminer if .Range("A1").Interior.ColorIndex = 4 then .Range("A1").Interior.ColorIndex = xlNone end if Tu peux aussi désigner plusieurs cellules : if .Range("A1").Interior.ColorIndex = 4 then .Range("A1:A10").Interior.ColorIndex = xlNone end if End With
OU
Selection.Interior.ColorIndex = xlNone
Lorsque tu utilises l'objet "Selection" Tu dois être sûr que la cellule active est réellement celle que tu désires, sinon tu risques de ne pas avoir l'effet désiré. Évidemment, la bonne feuille doit aussi être active. Avec la première syntaxe, peu importe la feuille active, le résultat sera bon !
Salutations!
"Antoine" a écrit dans le message de news:0a2701c39483$dd967e80$ Bonjour,
Dans mon programme, je sélectionne une cellule. Je souhaite effectuer l'opération suivante : si la couleur de fond de la case est vert, la rendre transparente.
J'ai essayé : if selection.interior.colorindex = 4...., mais ça n'a pas l'air de fonctionner.
QQun sait-il ?
Bonjour Antoine,
Essaie ceci :
With Worksheets("Feuil1") 'Nom feuille à déterminer
if .Range("A1").Interior.ColorIndex = 4 then
.Range("A1").Interior.ColorIndex = xlNone
end if
Tu peux aussi désigner plusieurs cellules :
if .Range("A1").Interior.ColorIndex = 4 then
.Range("A1:A10").Interior.ColorIndex = xlNone
end if
End With
OU
Selection.Interior.ColorIndex = xlNone
Lorsque tu utilises l'objet "Selection" Tu dois être sûr que la cellule active est réellement celle que tu désires,
sinon tu risques de ne pas avoir l'effet désiré. Évidemment, la bonne feuille doit aussi être active. Avec la première
syntaxe, peu importe la feuille active, le résultat sera bon !
Salutations!
"Antoine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0a2701c39483$dd967e80$a101280a@phx.gbl...
Bonjour,
Dans mon programme, je sélectionne une cellule.
Je souhaite effectuer l'opération suivante :
si la couleur de fond de la case est vert, la rendre
transparente.
J'ai essayé : if selection.interior.colorindex = 4....,
mais ça n'a pas l'air de fonctionner.
With Worksheets("Feuil1") 'Nom feuille à déterminer if .Range("A1").Interior.ColorIndex = 4 then .Range("A1").Interior.ColorIndex = xlNone end if Tu peux aussi désigner plusieurs cellules : if .Range("A1").Interior.ColorIndex = 4 then .Range("A1:A10").Interior.ColorIndex = xlNone end if End With
OU
Selection.Interior.ColorIndex = xlNone
Lorsque tu utilises l'objet "Selection" Tu dois être sûr que la cellule active est réellement celle que tu désires, sinon tu risques de ne pas avoir l'effet désiré. Évidemment, la bonne feuille doit aussi être active. Avec la première syntaxe, peu importe la feuille active, le résultat sera bon !
Salutations!
"Antoine" a écrit dans le message de news:0a2701c39483$dd967e80$ Bonjour,
Dans mon programme, je sélectionne une cellule. Je souhaite effectuer l'opération suivante : si la couleur de fond de la case est vert, la rendre transparente.
J'ai essayé : if selection.interior.colorindex = 4...., mais ça n'a pas l'air de fonctionner.
