Fonction VBA End if problème

Bonjour,

lorsque j'enregistre les lignes vba ci-dessous, lors de la compilation, il m indique comme erreur "End if pas de bloc end if ???

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim L As Integer   If MsgBox("Confirmez-vous l'insertion de ce nouveau Fournisseur ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then L = Sheets("Fournisseurs").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide Range("A" & L).Value = ComboBox1 Range("B" & L).Value = ComboBox2 Range("C" & L).Value = TextBox1 Range("D" & L).Value = TextBox2 Range("E" & L).Value = TextBox3 Range("F" & L).Value = TextBox4 Range("G" & L).Value = TextBox5 Range("H" & L).Value = TextBox6 Range("I" & L).Value = TextBox7 End If

---

Je ne comprend pas pq ??? !!

Mille merci
:roll:

Salut, allons quand même ...

Déjà Balise ton code
ensuite utilise

Code:

---

Option Explicit

---

et ce n'est pas fini ... car ce code ne fonctionnera toujours pas.

référence de feuille absente etc ...

bref tutos et aide en ligne à consulter et assimiler.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Private Sub CommandButton1_Click() Dim L As Long   If MsgBox("Confirmez-vous l'insertion de ce nouveau Fournisseur ?", vbYesNo, _ "Demande de confirmation d'ajout") = vbYes Then L = Sheets("Fournisseurs").Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & L).Value = ComboBox1 Range("B" & L).Value = ComboBox2 Range("C" & L).Value = TextBox1 Range("D" & L).Value = TextBox2 Range("E" & L).Value = TextBox3 Range("F" & L).Value = TextBox4 Range("G" & L).Value = TextBox5 Range("H" & L).Value = TextBox6 Range("I" & L).Value = TextBox7 End If   End Sub

---

Bonjour,

en plus de tout ce qu'à signalé kiki29, pour apporter une précision à ton problème précisément :


Lorsque tu écris :

Code:

---

If a=3 And b=2 Then c=5

---

C'est comme si tu écrivais :

Code:

---

1 2 3 4

If a=3 And b=2 then c=5 end if

---

C'est juste une syntaxe différente, plus compacte, utile lorsque tu n'as qu'une action à réaliser lors de ton test.


Du coup dans ton morceau de code en exemple, c'est comme si il était écrit ça (pour simplifier) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim L As Integer If MsgBox("Confirmez-vous l'insertion de ce nouveau Fournisseur ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then L = Sheets("Fournisseurs").Range("a65536").End(xlUp).Row + 1 End If 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide Range("A" & L).Value = ComboBox1 Range("B" & L).Value = ComboBox2 Range("C" & L).Value = TextBox1 Range("D" & L).Value = TextBox2 Range("E" & L).Value = TextBox3 Range("F" & L).Value = TextBox4 Range("G" & L).Value = TextBox5 Range("H" & L).Value = TextBox6 Range("I" & L).Value = TextBox7 End If

---

Du coup, le 2ème End If est de trop, et n'a donc bien pas de bloc If associé.

D'ailleurs, si tu enlèves ton End If, tu verras que l'on réponde oui ou non, le code passera bien par l'affectation des valeurs de tes textbox dans tes cellules, et plantera dans le cas du choix non, car ta variable L pour le numéro de ligne, n'aura pas de valeur.


Lorsque tu as plusieurs actions à effectuer dans ton bloc If, il faut bien faire un retour à la ligne après ton "Then", écrire tes instructions et enfin fermer ton bloc avec un End If.