Discussion :

[VELO1222]

Bonsoir le Forum,
J'ai besoin de votre aide, est il possible apres la saisie de la lettre "P" dans une plage de cellules A1:A20 ouvrir un MSGBox me disant "vous confirmez le paiement"
d'avance merci de votre aide
Cdt

[mercatog]

Dans l'évènement Change de ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("A1:A20")) Is Nothing Then
   If Target.Count = 1 Then
      If UCase(Target.Value) = "P" Then
         If MsgBox("Voulez vous confirmer le paiement", vbYesNo) = vbNo Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
         End If
      End If
   End If
End If
End Sub

[VELO1222]

Merci beaucoup Mercatog
Cdt
Tony