Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel bouton macro couleur

bouton macro couleur

2 réponses
Avatar
maud s
Bonjour

J ai un command bouton sur une feuil excel qui execute un emacro jusque la
rien de anormal.. mais je voudrais que lorsque je clicke sur le bouton il
me mette la couleur de la cellule F5 en vert si rose et si je reclicke
passez du rose en bleu par exemple..

est ce possible?

heu j oubliais avec des couleur de police différente...aussi a chaque fois

merci d avance

stefane
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Daniel.C
Bonsoir.
Essaie :

Private Sub CommandButton1_Click()
Select Case [F5].Interior.ColorIndex
Case 6
[F5].Interior.ColorIndex = 19
[F5].Font.ColorIndex = 1
Case 19
[F5].Interior.ColorIndex = 33
[F5].Font.ColorIndex = 6
Case 33
[F5].Interior.ColorIndex = 6
[F5].Font.ColorIndex = 3
Case Else
[F5].Interior.ColorIndex = 19
[F5].Font.ColorIndex = 1
End Select
End Sub

En changeant les numéros des couleurs.
Cordialement.
Daniel
"maud s" a écrit dans le message de news:

Bonjour

J ai un command bouton sur une feuil excel qui execute un emacro jusque la
rien de anormal.. mais je voudrais que lorsque je clicke sur le bouton il
me mette la couleur de la cellule F5 en vert si rose et si je reclicke
passez du rose en bleu par exemple..

est ce possible?

heu j oubliais avec des couleur de police différente...aussi a chaque fois

merci d avance

stefane





Avatar
maud s
merci bcp ca marche génial


"Daniel.C" a écrit dans le message de news:

Bonsoir.
Essaie :

Private Sub CommandButton1_Click()
Select Case [F5].Interior.ColorIndex
Case 6
[F5].Interior.ColorIndex = 19
[F5].Font.ColorIndex = 1
Case 19
[F5].Interior.ColorIndex = 33
[F5].Font.ColorIndex = 6
Case 33
[F5].Interior.ColorIndex = 6
[F5].Font.ColorIndex = 3
Case Else
[F5].Interior.ColorIndex = 19
[F5].Font.ColorIndex = 1
End Select
End Sub

En changeant les numéros des couleurs.
Cordialement.
Daniel
"maud s" a écrit dans le message de news:

Bonjour

J ai un command bouton sur une feuil excel qui execute un emacro jusque
la rien de anormal.. mais je voudrais que lorsque je clicke sur le bouton
il me mette la couleur de la cellule F5 en vert si rose et si je reclicke
passez du rose en bleu par exemple..

est ce possible?

heu j oubliais avec des couleur de police différente...aussi a chaque
fois

merci d avance

stefane