Utilisation des MsgBox

Version imprimable

Bonjour à tous et un grand merci pour votre aide......leblairea 65ans

Voilà, j'ai fait ce code, lorsque je clique sur oui, pas de problème.......mais lorsque je clique sur non, je passe en mode débogage (erreur d'exécution 1004) ,je pense qu'il me manque quelque chose dans les instructions?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btrSourceAjout_Click()
Dim derligne As Integer
If MsgBox("Confirmez-vous l'ajout de cette opération bancaire?", vbYesNo, "confirmation") = vbYes Then derligne = Sheets("CCP").Range("A33832").End(xlUp).Row + 1
Cells(derligne, 1) = ComboBox1.Value      'Nuémro
Cells(derligne, 2) = ComboBox2.Value      'Ventilé
Cells(derligne, 3) = DTPicker1.Value      'Date
Cells(derligne, 4) = cboTiers.Value       'Tiers
Cells(derligne, 6) = TxtMontant.Value     'Montant
Cells(derligne, 6) = CDbl(TxtMontant.Value) 'Didider Convertir en nombre'
Cells(derligne, 7) = cboCategorie.Value   'Catégorie
Cells(derligne, 8) = cboSousCategorie.Value    'Sous catégorie
Cells(derligne, 9) = TxtNotes.Value            'Notes
End Sub

11/10/2020, 11h29
Philippe Tulliez

Bonjour,

Citation:

lorsque je clique sur oui, pas de probléme.......mais lorsque je clique sur non, je passe en mode debogage (erreur d'execution 1004) ,je pense qu'il me manque quelque chose dans les instructions?

Tout simplement parce-qu'il n'y a rien de prévu si Msgbox renvoie VbNo
Utilisez le If...Then....Else...End If ou le If...Then...End If si rien ne doit être fait pour VbNo
11/10/2020, 11h41
leblairea

merci, mais je le place ou?

Bonjour,

Citation:

mais je le place ou?

A la place de la ligne en rouge et en terminant par End If
Attention, je n'ai rien testé. Je me suis contenté d'insérer la ligne de code

Petit conseil : il est important de préciser les parents (Feuille et classeur des objets Cells

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub btrSourceAjout_Click()
  Dim derligne As Integer
  ' If MsgBox("Confirmez-vous l'ajout de cette opération bancaire?", vbYesNo, "confirmation") = vbYes Then derligne = Sheets("CCP").Range("A33832").End(xlUp).Row + 1
  If MsgBox("Confirmez-vous l'ajout de cette opération bancaire?", vbYesNo, "confirmation") = vbYes Then
     derligne = Sheets("CCP").Range("A33832").End(xlUp).Row + 1
     Cells(derligne, 1) = ComboBox1.Value 'Nuémro
     Cells(derligne, 2) = ComboBox2.Value 'Ventilé
     Cells(derligne, 3) = DTPicker1.Value 'Date
     Cells(derligne, 4) = cboTiers.Value 'Tiers
     Cells(derligne, 6) = TxtMontant.Value 'Montant
     Cells(derligne, 6) = CDbl(TxtMontant.Value) 'Didider Convertir en nombre'
     Cells(derligne, 7) = cboCategorie.Value 'Catégorie
     Cells(derligne, 8) = cboSousCategorie.Value 'Sous catégorie
     Cells(derligne, 9) = TxtNotes.Value 'Notes
  End If
End Sub

11/10/2020, 12h08
leblairea

bon , mais pas très clair pour ma ptite tête

Bonjour,

Citation:

pas très clair pour ma ptite tête

Il y a plusieurs façon d'utiliser l'instruction If...Then...[Else]
Lorsque l'on utilise l'instruction sur une seule ligne, on ne termine pas par End If
Le Else est facultatif

Trois exemples qui je l'espère apportera un peu d'éclaircie

Code:

1
2
3
4
5
6
7
Sub TestIf_1()
  Dim Response As Byte
  Dim msg As String
  Response = MsgBox("Voulez-vous faire cette action", vbYesNo + vbDefaultButton2)
  If Response = vbYes Then msg = "Vous avez répondu oui" Else msg = "Vous avez répondu non"
  MsgBox msg
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub TestIf_2()
  Dim Response As Byte
  Dim msg As String
  Response = MsgBox("Voulez-vous faire cette action", vbYesNo + vbDefaultButton2)
  If Response = vbYes Then
     msg = "Vous avez répondu oui"
    Else
     msg = "Vous avez répondu non"
  End If
  MsgBox msg
End Sub

Code:

1
2
3
4
5
6
7
8
9
Sub TestIf_3()
  Dim Response As Byte
  Dim msg As String
  Response = MsgBox("Voulez-vous faire cette action", vbYesNo + vbDefaultButton2)
  If Response = vbYes Then
     msg = "Vous avez répondu oui"
     MsgBox msg
  End If
End Sub

11/10/2020, 14h26
leblairea

Ben, moi je veux que si je réponds non, que cela ferme mon UserForm
11/10/2020, 15h02
Philippe Tulliez

Bonjour,

Citation:

Ben, moi je veux que si je réponds non, que cela ferme mon UserForm

Vous n'avez pas précisé cela dans votre demande initiale.

Pour fermer un UserForm, c'est l'instruction Unload Me à placer dans le Else de If...Then...Else...End If
11/10/2020, 16h50
leblairea

Merci a vous pour vos réponses, je vais essayer......et si probléme je reviens vers vous

Merci Philippe pour ton aide, cela fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub btrSourceAjout_Click()
Dim derligne As Integer
If MsgBox("Confirmez-vous l'ajout de cette opération bancaire?", vbYesNo, "confirmation") = vbYes Then
Derligne = Sheets("CCP").Range("A33832").End(xlUp).Row + 1
Cells(derligne, 1) = ComboBox1.Value      'Nuémro
Cells(derligne, 2) = ComboBox2.Value      'Ventilé
Cells(derligne, 3) = DTPicker1.Value      'Date
Cells(derligne, 4) = cboTiers.Value       'Tiers
Cells(derligne, 6) = TxtMontant.Value     'Montant
Cells(derligne, 6) = CDbl(TxtMontant.Value) 'Didider Convertir en nombre'
Cells(derligne, 7) = cboCategorie.Value   'Catégorie
Cells(derligne, 8) = cboSousCategorie.Value    'Sous catégorie
Cells(derligne, 9) = TxtNotes.Value            'Notes
End If
Unload Me 'Ferme le formulaire si je dis non
End Sub

13/10/2020, 08h29
leblairea

je me demande si il n'y a pas une erreur dans ces codes?
13/10/2020, 09h08
Philippe Tulliez

Bonjour,
Sans autres explications, il sera difficile d'apporter une aide quelconque.
J'avais déjà attiré votre attention sur le fait que les objets Cells devait être rattaché à leurs parents (la feuille, je suppose Sheets("CCP") et le classeur)
13/10/2020, 09h25
leblairea

ben quand je clique sur "oui" confirmation, cela ajoute bien mes données, mais ça ferme aussi l'UserForm! et moi je veux que cela ferme l'UserForm uniquement quand je clique sur "non"
13/10/2020, 10h33
Philippe Tulliez

Bonjour,
Et bien c'est logique.
Vous savez un programme s'exécute ligne par ligne et si vous lisez ce petit bout de code, vous verrez que je vous avais écrit dans ma dernière réponse

Citation:

Pour fermer un UserForm, c'est l'instruction Unload Me à placer dans le Else de If...Then...Else...End If

Autrement dit en français Si (If) je répond "oui", alors (Then) j'ajoute mes données Sinon (Else) je ferme le UserForm Fin de la condition (End If)

Il fait un peu y mettre du vôtre si vous voulez programmer

Bon, je crois que j'iai fait un effort.....:D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub btrSourceAjout_Click()
Dim derligne As Integer
If MsgBox("Confirmez-vous l'ajout de cette opération bancaire?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("CCP").Range("A33832").End(xlUp).Row + 1
Cells(derligne, 1) = ComboBox1.Value      'Nuémro
Cells(derligne, 2) = ComboBox2.Value      'Ventilé
Cells(derligne, 3) = DTPicker1.Value      'Date
Cells(derligne, 4) = cboTiers.Value       'Tiers
Cells(derligne, 6) = TxtMontant.Value     'Montant
Cells(derligne, 6) = CDbl(TxtMontant.Value) 'Convertir en nombre'	
Cells(derligne, 7) = cboCategorie.Value   'Catégorie
Cells(derligne, 8) = cboSousCategorie.Value    'Sous catégorie
Cells(derligne, 9) = TxtNotes.Value            'Notes
Else
Unload Me 'Ferme le formulaire si je dis non
End If
End Sub

13/10/2020, 14h45
Philippe Tulliez

Bonjour,
Magnifique vous pouvez donc clore cette discussion.

N'oubliez tout de même pas mon conseil de définir les parents de l'objet Cells