Discussion :

[antares92]

Bonjour,

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

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
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 !!!!

[unparia]

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.

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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