Msgbox

[breitzou]

Salut le forum,

je souhaiterais améliorer un fichier que je mets en pièce jointe.

Dans ce fichier, la cellule "C3" est de couleur bleu initialement. En double cliquant dessus, une boite de dialogue s'ouvre et pose la question suivante :
"validation du paiement?"
Si je choisis "oui" la cellule "C3" devient verte.
Si je choisis "non" la cellule "C3" devient rouge.

Je souhaiterais proposer une troisième possibilité dans la Msgbox qui est "annuler", ce qui aurait pour conséquence de conserver la couleur bleu initiale.
Mais voilà, je n'y arrive pas. Cela est probablement du à mon très haut niveau de connaissances en VBA!!!😉

Merci de votre aide

Breitzou

 

[ERIC S]

Re : Msgbox

Bonsoir

pourquoi une macro?

si tu dis que C3 est ta cellule de validation et que tu utilises une mise en forme conditionnelle, tu peux avoir :

C3 vide vert
C3 Oui Bleu
C3 Non rouge

 

[roro69]

Re : Msgbox

Bonjour essaye ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$3" Then
Select Case MsgBox("Validation du paiements", vbYesNoCancel + vbQuestion, "Choix")
Case vbYes
Target.Interior.ColorIndex = 4 'procédure si click sur Oui
Case vbNo
Target.Interior.ColorIndex = 3 'procédure si click sur Non
Case vbCancel
Exit Sub 'On sort
End Select
End If
End Sub

A++

 

[Papou-net]

Re : Msgbox

Salut le forum,

je souhaiterais améliorer un fichier que je mets en pièce jointe.

Dans ce fichier, la cellule "C3" est de couleur bleu initialement. En double cliquant dessus, une boite de dialogue s'ouvre et pose la question suivante :
"validation du paiement?"
Si je choisis "oui" la cellule "C3" devient verte.
Si je choisis "non" la cellule "C3" devient rouge.

Je souhaiterais proposer une troisième possibilité dans la Msgbox qui est "annuler", ce qui aurait pour conséquence de conserver la couleur bleu initiale.
Mais voilà, je n'y arrive pas. Cela est probablement du à mon très haut niveau de connaissances en VBA!!!😉

Merci de votre aide


Breitzou

RE :

Bonsoir Breitzou,

Voici comment modifier ton code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$3" Then
    Cancel = True
    Select Case MsgBox("Validation du paiement ?", vbYesNoCancel + vbQuestion)
      Case 2
        Target.Interior.ColorIndex = 33
      Case 6
        Target.Interior.ColorIndex = 4
      Case 7
        Target.Interior.ColorIndex = 3
    End Select
End If

End Sub

Espérant avoir répondu.

Cordialement.

 

[breitzou]

Re : Msgbox

Bonsoir Eric S,
Je souhaite une macro avec une Msgbox Vbyesnocancel pour que les personnes qui utiliseront ce fichier prennent conscience du choix qu'ils font et ne valident pas un paiement qui ne doit pas l'être (par erreur!). Expérience vécue. Je suis conscient que cela ne supprimera pas d'un coup de baguette magique les possibilités d'erreur, mais on les limitera.
De plus dans le fichier original, des résultats de calcul apparaissent dans la cellule "C3".

Merci de ton aide. Si tu as la solution à ce Pb, je suis fana.

Breitzou

 

[kjin]

Re : Msgbox

Bonsoir,
En reprenant l'exemple de ton dernier fil

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

End Sub

Edit : juste un peu à la bourre !
A+
kjin

 

[breitzou]

Re : Msgbox

Bonsoir à vous 3 Roro 69, Papou-net et Kjin,

merci pour votre aide. Cela fonctionne.
Et c'est exactement ce que je souhaitais.

Merci encore

A bientôt

Breitzou

PS : Kjin, même à la bourre c'est déjà énorme de prendre le temps d'aider les gens novices comme moi!!!😉