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