Discussion :

[leblairea]

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 :

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

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

[Philippe Tulliez]

Bonjour,

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

[leblairea]

merci, mais je le place ou?

[Philippe Tulliez]

Bonjour,

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 :

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
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

[leblairea]

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

[Philippe Tulliez]

Bonjour,

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 :

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

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 :

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

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 :

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

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

[leblairea]

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

[Philippe Tulliez]

Bonjour,

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

[leblairea]

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

[leblairea]

Merci Philippe pour ton aide, cela fonctionne:

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
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

[leblairea]

je me demande si il n'y a pas une erreur dans ces codes?

[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)

[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"

[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

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

[leblairea]

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

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
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

[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