Couleurs§§§

Le
Francis
Bonsoir à Tous

Quelle est la formule ne VBA pour
donner l'ordre à Excel de colorier
la cellule A1 par exemple en fond Rouge
(With Selection.Interior.ColorIndex=3.Pattern=xlSolid.PatternColorIndex =
xlAutomatic)

Merci et bonne soirée
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
JPMonnier
Le #17292781
Bonjour,
La procédure est celle-ci, a savoir à quel moment tu veux qu'elle se lance
Sub Coul()
[a1].select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub
--
Cordialement


Francis" news:48d67b3d$0$10412$
Bonsoir à Tous

Quelle est la formule ne VBA pour
donner l'ordre à Excel de colorier
la cellule A1 par exemple en fond Rouge
(With Selection.Interior.ColorIndex=3.Pattern=xlSolid.PatternColorIndex =
xlAutomatic)

Merci et bonne soirée



Philippe.R
Le #17293161
Bonsoir,
Le code cité le fera, pour peu que la cellule A1 soit sélectionnée et que 3
soit l'index de la couleur rouge dans la palette de l'application.
Sinon, à tous coup :
Range("a1").Interior.Color = vbRed
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Francis" news:48d67b3d$0$10412$
Bonsoir à Tous

Quelle est la formule ne VBA pour
donner l'ordre à Excel de colorier
la cellule A1 par exemple en fond Rouge
(With Selection.Interior.ColorIndex=3.Pattern=xlSolid.PatternColorIndex =
xlAutomatic)

Merci et bonne soirée



Francis
Le #17293371
Merci Jp ;0))


"JPMonnier" %
Bonjour,
La procédure est celle-ci, a savoir à quel moment tu veux qu'elle se lance
Sub Coul()
[a1].select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub
--
Cordialement


Francis" news:48d67b3d$0$10412$
Bonsoir à Tous

Quelle est la formule ne VBA pour
donner l'ordre à Excel de colorier
la cellule A1 par exemple en fond Rouge
(With Selection.Interior.ColorIndex=3.Pattern=xlSolid.PatternColorIndex =
xlAutomatic)

Merci et bonne soirée






Publicité
Poster une réponse
Anonyme