Bonjour
je me permet de vous solliciter a nouveau pour mon projet
mon soucis est le suivant:
j ai un userform avec 7 textboxs chacune renvoyant à un mode d encaissement qui dois etre renvoyer dans l onglet caisse du claseur
c est à dire que tout au long de la saisie sur un jour, les données saisient dans la textbox de 1 à 7 doivent se remplir dans des colonnes differentes
j utilise une variable nommé xIndex
xIndex=9
je l ai declarer dans le module 1 du classseur de la façon suivante
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
Sub test()
' declaration de la variable xIndex
 
Dim xIndex As Integer
xIndex = Cells(9, 2).Value
 
End Sub
 
 et dans mon userForm 1 j ai le code suivant:
 
Private Sub CheckBox1_Click()
 
End Sub
 
Private Sub cmdannule_Click()
'On vide le formulaire
 
Unload Me
'on cache le formulaire
 
UserForm1.Hide
 
End Sub
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
Private Sub cmdvalide_Click()
'on transfert les donnée de la text box 1
 
Sheets("CAISSE").Cells(xIndex, 2).Value = TextBox1.Value
 
'on transfert les donnée de la text box 2
 
Sheets("CAISSE").Cells(xIndex, 3).Value = TextBox2.Value
 
'on transfert les donnée de la text box 3
 
 
Sheets("CAISSE").Cells(xIndex, 4).Value = TextBox3.Value
 
'on transfert les donnée de la text box 4
 
 
Sheets("CAISSE").Cells(xIndex, 5).Value = TextBox4.Value
 
'on transfert les donnée de la text box 5
 
Sheets("CAISSE").Cells(xIndex, 6).Value = TextBox5.Value
 
'on transfert les donnée de la text box 6
 
Sheets("CAISSE").Cells(xIndex, 7).Value = TextBox6.Value
 
 
'on transfert les donnée de la text box 7
 
Sheets("CAISSE").Cells(xIndex, 8).Value = TextBox7.Value
 
 
 
 
' on decharge le formulaire
 
Unload Me
 
'on cache le formulaire
 
UserForm1.Hide
xIndex = xIndex + 1
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub TextBox2_Change()
 
End Sub
 
Private Sub TextBox3_Change()
 
End Sub
 
Private Sub TextBox4_Change()
 
End Sub
 
Private Sub TextBox5_Change()
 
End Sub
 
Private Sub TextBox6_Change()
 
End Sub
 
Private Sub TextBox7_Change()
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub
le probleme c est que ça ne fonctionne pas et que j ai le message suivant
erreur 1004 erreur definie par la pplication ou par l objet
quelqu un peut il m aider
d avance merci
cedric cc