Msgbox et couleurs

[breitzou]

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]

Re : Msgbox et couleurs

Bonsoir,

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]

Re : Msgbox et couleurs

Bonsoir Kjin,

c'est exactement ce que je voulais !

Merci beaucoup

A bientôt sur le forum

Breitzou