XL 2010 Créer boutons qui colorie une cellule sélectionnée.

Eric C

XLDnaute Barbatruc

• 23 Août 2021

• #2

Bonjour le forum
Bonjour David

Une solution par USF avec click droit sur cellule.
Bonne journée à toutes & à tous

 

Pièces jointes

• Colorer cell avec USF depuis click droit.xlsm

  20.9 KB · Affichages: 6

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 23 Août 2021

• #3

Bonjour Eric C,
Merci beaucoup.
Est-il possible d'avoir une police blanche dans les cellules ?
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 23 Août 2021

• #4

RE
Code modifié

VB:

Private Sub Rouge_Click()
With ActiveCell
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
End With
Unload USF1
End Sub
Private Sub Bleu_Click()
With ActiveCell
.Interior.ColorIndex = 5
.Font.ColorIndex = 2
End With
Unload USF1
End Sub
Private Sub Vert_Click()
With ActiveCell
.Interior.ColorIndex = 4
.Font.ColorIndex = 2
End With
Unload USF1
End Sub
Private Sub Orange_Click()
With ActiveCell
.Interior.ColorIndex = 46
.Font.ColorIndex = 2
End With
Unload USF1
End Sub

@+

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 23 Août 2021

• #5

Bonjour Eric C,
Je dois mal m'y prendre, car ça ne marche pas !
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 23 Août 2021

• #6

Je te joints le fichier

@+

 

Pièces jointes

• Colorer cell avec USF depuis click droit.xlsm

  21.3 KB · Affichages: 5

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 23 Août 2021

• #7

Bonjour Eric C,
Merci c'est parfait
Bonne journée.
Cordialement.
David.

 

Vote positif 0 Vote négatif