[XL-2016] Macro dans userform problème

Macro dans userform problème

Bonjour,

J'ai un problème avec cette macro dans un Userform, elle génère une erreur 1004

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub CommandButton1_Click()
 
Range("A1").End(xlDown).Offset(1).Select
Range("A1").End(xlDown).Offset(1).Value = TextBox1
 
Range("B1").End(xlDown).Offset(1).Select
Range("B1").End(xlDown).Offset(1).Value = Val(TextBox2)
 
Range("C1").End(xlDown).Offset(1).Select
Range("C1").End(xlDown).Offset(1).Value = Val(TextBox3)
 
Range("D1").End(xlDown).Offset(1).Select
Range("D1").End(xlDown).Offset(1).Value = Val(TextBox4)
 
Range("E1").End(xlDown).Offset(1).Select
Range("E1").End(xlDown).Offset(1).Value = Val(TextBox5)
 
Range("F1").End(xlDown).Offset(1).Select
Range("F1").End(xlDown).Offset(1).Value = Val(TextBox6)
 
Range("G1").End(xlDown).Offset(1).Select
Range("G1").End(xlDown).Offset(1).Value = Val(TextBox7)
 
Range("H1").End(xlDown).Offset(1).Select
Range("H1").End(xlDown).Offset(1).Value = Val(TextBox8)
 
Range("I1").End(xlDown).Offset(1).Select
Range("I1").End(xlDown).Offset(1).Value = Val(TextBox9)
 
Range("J1").End(xlDown).Offset(1).Select
Range("J1").End(xlDown).Offset(1).Value = Val(TextBox10)
 
Range("K1").End(xlDown).Offset(1).Select
Range("K1").End(xlDown).Offset(1).Value = Val(TextBox11)
 
Range("L1").End(xlDown).Offset(1).Select
Range("L1").End(xlDown).Offset(1).Value = Val(TextBox12)
 
 
 
 
End
 
 
End Sub

merci !!!!

Bonjour
Bien qu'assez maladroit et inutilement lourd (mais c'est là autre chose) , ce code n'est pas directement responsable de l'erreur que tu rapportes.
J'appelle par ailleurs ton attention sur le fait que le contenu d'une textbox est de type string.

re

re
bonsoir
ca serait pas la premiere ligne dispo que tu souhaite remplir

Code:

1
2
3
4
5
6
7
8
Sub test2()
    Set cel = Sheets("toto").Range("A" & Rows.Count).End(xlUp).Offset(1)
    With cel
        For i = 1 To 12
            .Offset(, i - 1) = Val(Me.Controls("TextBox" & i))
        Next
    End With
End Sub