Discussion :

[morobaboumar]

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 :

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

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 :

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

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.

[Malick]

Salut,

En ajoutant cancel=true, cela devrait être bon

Code :

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

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

[morobaboumar]

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

Code vba :

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

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.




Cordialement.

[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é ?

[morobaboumar]

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

Code :

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

MsgBoxVariable

[Malick]

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