Remplir une feuille Excel à partir d'un UserForm
Bonjour,:mouarf:
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:
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 |
