Bonjour,

J'essaie de remplir un tableur excel avec un userform.

le problème est que tout ce remplis sauf Cells(derling, 7).Value = TextBox5 et Cells(derling, 8).Value = TextBox6

J'ai l'erreur suivante "Erreur d'exécution "1004": la méthode"_Default" de l'objet "Range" a échoué.

Voici le petit bout de code si quelqu'un peut m'éclairer s'il vous plait.



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
Private Sub enrg()
 
With Worksheets(1)
derlign = .Range("a65536").End(xlUp).Row + 1
 
For i = 2 To derlign
If TextBox3 = "" And TextBox1 = "" And TextBox2 = "" And CheckBox1.Value = False Then
 MsgBox ("Vérifier les champs!")
End If
 
 If TextBox3 = "" And CheckBox1 = False And CheckBox2 = False Then
 Cells(derlign, 1).Value = TextBox1
 Cells(derlign, 2).Value = TextBox2
 Cells(derlign, 3).Value = Now
 Cells(derlign, 4) = ""
 Cells(derling, 7).Value = TextBox5
 Cells(derling, 8).Value = TextBox6
    End If
end with