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 : Sélectionner tout - Visualiser dans une fenêtre à part
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