[XL-2003] Besoind'aide sur les userforms

Besoind'aide sur les userforms

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:

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:

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

Bonjour,

Essaie ça :

En français cette cellule = le contenu de mon controle

Code:

Sheets("CAISSE").Cells(xIndex, 2)= TextBox1.Text

Cordialement

bonjour,

xIndex n'étant pas déclaré comme public dans le module, sa valeur est 0 dans ton formulaire!

ceci dis et on ne le dira jamais assez, n'oubliez pas de mettre l'option explicit par défaut dans les options VBA.
vous verrez l'erreur beaucoup plus vite comme cela.

le code de ton module doit ressembler à
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Public xIndex As Integer Sub test() xIndex = 9 UserForm1.Show End Sub

Merci beaucoup
C est vraie que comme ça fonctionne bien mieux
Mon problème est donc résolu
Merci a tous
Cedric cc