Discussion :

[cedric cc]

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

[danisoaz]

Bonjour,

Essaie ça :

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

Code :

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

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

Cordialement

[mayekeul]

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 :

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

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

[cedric cc]

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