Msgbox et couleurs

breitzou · 21 Avril 2010

Bonjour à tous,

étant novice en VBA, je me connecte pour vous demander de l'aide.
Je souhaiterais insérer dans une feuille la chose suivante :

- en double cliquant sur une cellule (par exemple C3), je voudrais qu'une msgbox s'affiche avec le texte suivant "validation du paiement" et les deux possibilités de réponse "oui" et "non".
- En cliquant sur "oui" la cellule "C3" devient verte.
- En cliquant sur "non" la cellule "C3" devient rouge.

J'espère que j'ai été assez précis dans mon explication.
Merci pour votre aide.

Breitzou

kjin · 21 Avril 2010

Re : Msgbox et couleurs

Bonsoir,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$3" Then
    Cancel = True
    Target.Interior.ColorIndex = IIf(MsgBox("Validation du paiement ?", vbYesNo) = vbYes, 10, 3)
End If

End Sub

A+
kjin

breitzou · 21 Avril 2010

Re : Msgbox et couleurs

Bonsoir Kjin,

c'est exactement ce que je voulais !

Merci beaucoup

A bientôt sur le forum

Breitzou

Msgbox et couleurs

breitzou

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

breitzou

XLDnaute Occasionnel

Discussions similaires

Msgbox et couleurs

breitzou

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

breitzou

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency