Ajout d'un message box de confirmation au code

Version imprimable

Bonjour,

Je voudrais ajouter un Msgbox à la commande CmdButtonENREGISTRER_Click afin de décider si oui l'enregistrement doit s'exécuter

ou non pour ne pas le faire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CmdButtonENREGISTRER_Click() ' Enregistrer
 
    If Me.TextBoxInsererMontant = "" Then
        MsgBox "Vous n'avez pas renseigné le montant a Partager", vbInformation, "Saisie manquante"
        Me.TextBoxInsererMontant.SetFocus
        Exit Sub
    End If
    If Me.TextBoxDATE_Enregistree Like "##/##/####" And IsDate(TextBoxDATE_Enregistree.Value) Then
        Worksheets("PARTAGE GLOBAL").Range("G5").Value = CDbl(TextBoxInsererMontant.Value)        ''  << ici
        Worksheets("PARTAGE GLOBAL").Range("G4").Value = CDate(TextBoxDATE_Enregistree.Value)     ''  << ici
    Else
 
        MsgBox "Attention, saisissez une date de réception en respectant le format JJ/MM/AAAA.", vbExclamation, "Saisie manquante"
        TextBoxDATE_Enregistree.SetFocus
        Exit Sub
 
        '__________________________________________________________________________
        With ThisWorkbook.Worksheets("PARTAGE GLOBAL").Range("G5")
            .Value = TextBoxInsererMontant.Value
            .NumberFormat = "#,##0"
        End With
    End If
    '__________________________________________________________________________
 
    CmdButtonFERMER_Click
End Sub

Avec cet exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MsgBoxVariable()
 
Dim réponse As Integer
réponse = MsgBox("Voulez-vous continuer?", vbQuestion + vbYesNo)
 
  If réponse = vbYes Then
    MsgBox "Oui"
  Else
    MsgBox "Non"
  End If
 
End Sub

Cordialement.

Salut,

En ajoutant cancel=true, cela devrait être bon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MsgBoxVariable()
 
Dim réponse As Integer, Cancel As Boolean
réponse = MsgBox("Voulez-vous continuer?", vbQuestion + vbYesNo)
 
  If réponse = vbYes Then
    MsgBox "Oui"
 Else
    MsgBox "Non"
    Cancel = True
  End If
 
End Sub

2 pièce(s) jointe(s)

Bonsoir Malick,
Très heureux de vous rencontrer. Cela fait un long moment.
Voila comment ai je placé la Sub dans mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub CmdButtonENREGISTRER_Click() ' Enregistrer
If Me.TextBoxInsererMontant = "" Then
    MsgBox "Vous n'avez pas renseigné le montant a Partager", vbInformation, "Saisie manquante"
    Me.TextBoxInsererMontant.SetFocus
    Exit Sub
End If
If Me.TextBoxDATE_Enregistree Like "##/##/####" And IsDate(TextBoxDATE_Enregistree.Value) Then
Else
    MsgBox "Attention, saisissez une date de réception en respectant le format JJ/MM/AAAA.", vbExclamation, "Saisie manquante"
    TextBoxDATE_Enregistree.SetFocus
    Exit Sub
End If
'_____________________________________
MsgBoxVariable
'_____________________________________
 
OP.Range("G4").Value = CDate(TextBoxDATE_Enregistree.Value)
With OP.Range("G5")
    .Value = CDbl(TextBoxInsererMontant.Value)
    .NumberFormat = "#,##0"
End With
Unload Me
End Sub

Est ce le lieu indiqué ?
Je viens de faire un essai en cliquant sur non mais l'enregistrement est parti.

Pièce jointe 622844
Pièce jointe 622845

Cordialement.

24/07/2022, 21h01
Malick

Salut,

Je ne vois pas dans ton code là ou tu l'as intégré ; est-ce le bon code que tu as posté ?
24/07/2022, 21h50
morobaboumar

Je l'ai appelé dans le code enregistrer
comme ça

Code:

MsgBoxVariable
25/07/2022, 02h32
Malick

Je pense que la place de l'appel c'est avant End if

1 pièce(s) jointe(s)

Citation:

Envoyé par Malick

Je pense que la place de l'appel c'est avant End if

Bonjour Malick,
Je trouve qu'il serait mieux de l'introduire dans le code enregistrer.

A placer avant "If Me.TextBoxDATE_Enregistree Like "##/##/####"..."
Code:

1 2 3 4 5 6 '_____________________________________________________________ Dim rep As Byte rep = MsgBox("Voulez vous enregistrer cette fiche", vbOKCancel) If rep <> 1 Then Exit Sub '______________________________________________________________
Si vous avez une meilleure solution, merci de me le suggérer.
Cordialement.

25/07/2022, 11h39
Malick

Bonjour,

n'oublies pas de passer le fil en :resolu:

Merci