Discussion :

[indox]

Bonjour,

Je souhaite créer une procédure permettant d'envoyer le texte des Textbox de mon Userform aux cellules Excel.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub check(a As Integer, b As Integer, li As Integer, col As Integer, Optional txt As TextBox)
k = 1
For i = a To b
If UserForm2.Controls("CheckBox" & i).Value = True Then
Cells(li, col).Offset(k - 1, 0).Value = UserForm2.Controls("CheckBox" & i).Caption
k = k + 1
End If
Next i
Cells(li, col).Offset(k - 1, 0).Value = txt.Text
End Sub

Le problème concerne la ligne Cells(li, col).Offset(k - 1, 0).Value = txt.Text
J'obtiens l'erreur 91: Variable objet ou variable de bloc With non définie.

Quelqu'un pourrait m'aider s'il vous plaît?

Merci.

[Marc-L]

Bonjour,

suivre le code en mode pas à pas via la touche F8 pour contrôler les valeurs des variables …

Le code se trouve-t-il dans le module de l'UserForm ?

[casefayere]

et, j'imagine qu'en mode débogage, la ligne

Code :

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

Cells(li, col).Offset(k - 1, 0).Value = txt.Text

est surlignée en jaune, il te suffit de passer ta souris sur chaque cellule pour voir apparaitre la valeur de chaque variable, soit il, col k, et la valeur de ton textbox, s'il se nomme bien "txt", tu verras donc à quel niveau se situe l'erreur, sinon tentes de mettre des MsgBox juste avant l'erreur, comme

Code :

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

1
2
3
4
5
6
...
Next i
MsgBox li & ";" & col & ";" & k
MsgBox txt.Text
Cells(li, col).Offset(k - 1, 0).Value = txt.Text
End Sub

on s'est croisé Marc

[indox]

Merci Marc-L d'avoir répondu,

Après la boucle, k n'est plus égal à 1 donc k-1 n'est pas égal à 0.

Mais de toute façon, il est tout à fait possible d'écrire cells(1,1).offset(0,0).

Donc le problème ne vient pas d'ici.

[indox]

et, j'imagine qu'en mode débogage, la ligne

Code :

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

Cells(li, col).Offset(k - 1, 0).Value = txt.Text

est surlignée en jaune, il te suffit de passer ta souris sur chaque cellule pour voir apparaitre la valeur de chaque variable, soit il, col k, et la valeur de ton textbox, s'il se nomme bien "txt", tu verras donc à quel niveau se situe l'erreur, sinon tentes de mettre des MsgBox juste avant l'erreur, comme

Code :

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

1
2
3
4
5
6
...
Next i
MsgBox li & ";" & col & ";" & k
MsgBox txt.Text
Cells(li, col).Offset(k - 1, 0).Value = txt.Text
End Sub

on s'est croisé Marc

Casefayere, j'obtiens la même erreur du coup pour

Code :

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

MsgBox txt.Text

. Mais col li et k valent tous 1.

Cordialement,

[Marc-L]

Le code se trouve-t-il dans le module de l'UserForm ?

[indox]

La procédure se trouve dans un module à part. Mais l'appelle de la procédure, dans le module de l'userform.

[casefayere]

donc ajoute "nomUSF.txt.Text"

[Marc-L]

D'où l'erreur car un objet TextBox ne peut exister en dehors de son module ! Mieux vaut passer sa valeur …

[indox]

donc ajoute "nomUSF.txt.Text"

J'ai déjà essayé, cela ne marche pas.

Cordialement,

[casefayere]

essayes ce qu'écrit Marc

... Mieux vaut passer sa valeur …

A Marc,

D'où l'erreur car un objet TextBox ne peut exister en dehors de son module !...

Je penses (mais ne suis pas sur) que je l'ai déjà fait en précisant le nom de l'USF

[Philippe Tulliez]

Bonjour,

A Marc,
D'où l'erreur car un objet TextBox ne peut exister en dehors de son module !...
Je penses (mais ne suis pas sur) que je l'ai déjà fait en précisant le nom de l'USF

Je confirme, cette ligne d'une procédure écrite dans un module, fonctionne

Code :

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

With UserForm1:  .TextBox1 = "Toto":  .Show:  End With:

[casefayere]

Merci Philippe, alors peut-être encore que le nom du TextBox n'est pas le bon, enfin ! une idée comme une autre

[indox]

Finalement, j'ai utilisé un String comme paramètre et dans l'appel, j'utilise

Code :

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

textbox1.text

Merci à tous!

[casefayere]

J'en conclue que c'était bien ça, le nom n'était pas le bon, vu que tu écris maintenant

j'utilise textbox1.text

alors que jusque maintenant c'était

Code :

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

 txt.Text

[indox]

Non, malheureusement ce n'était pas une erreur de nom.

Cordialement,

[casefayere]

Ok, l'important est que tu ais résolu ton problème, je ne vais pas te demander maintenant d'envoyer ton fichier, tant pis si ma curiosité n'est pas satisfaite (un détail)

Bonne soirée