Bonjour,

Je continue dans la création de mon formulaire de saisie, je bloque sur le bouton ajouter, j'ai le message d'erreur suivant : erreur de compilation un appel de fonction dans la partie gauche de l'affectation dois renvoyer variant ou object

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
Private Sub CommandButton1_Click()
If TextBox1 = "" Or ComboBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox4 = "jj/mm/aaaa" Or ComboBox2 = "" Or TextBox5 = "" Or TextBox6 = "" Then
MsgBox("Toutes les informations ne sont pas remplies!", vbOKOnly, "Information manquante") = vbOK
Else
Dim dlt As Long
If MsgBox("Confirmez vous l'ajout de ce chat à la base de donnée?", vbYesNo, "Confirmer l'ajout") = vbYes Then
    If Sheets("Liste").Range("A2") = "" Then
    Else
    Sheets("Liste").ListObjects(1).ListRows.Add
    End If
 
    dlt = Sheets("Liste").Range("H1048576").End(xlUp).Row
 
    Sheets("Liste").Range("A" & dlt) = TextBox1
    Sheets("Liste").Range("B" & dlt) = ComboBox1
    Sheets("Liste").Range("C" & dlt) = TextBox2
    Sheets("Liste").Range("D" & dlt) = TextBox3
    Sheets("Liste").Range("E" & dlt) = TextBox4
    Sheets("Liste").Range("F" & dlt) = ComboBox2
    Sheets("Liste").Range("G" & dlt) = TextBox5
    Sheets("Liste").Range("H" & dlt) = TextBox6
    Unload UserForm1
    End If
End If
End Sub
Ou se trouve mon erreur?

Cordialement