Passer un textbox en paramètre d'une procédure

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:

---

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.

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 ?

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

Code:

---

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:

---

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

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.

Citation:

---

Envoyé par casefayere

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

Code:

---

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:

---

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:

---

MsgBox txt.Text

---

. Mais col li et k valent tous 1.

Cordialement,

Citation:

---

Envoyé par Marc-L

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

---

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

donc ajoute "nomUSF.txt.Text"

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

Citation:

---

Envoyé par casefayere

donc ajoute "nomUSF.txt.Text"

---

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

Cordialement,

essayes ce qu'écrit Marc

Citation:

---

... Mieux vaut passer sa valeur …

---

A Marc,

Citation:

---

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

Bonjour,

Citation:

---

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:

---

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

---

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

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

Code:

---

textbox1.text

---

Merci à tous!

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

Citation:

---

j'utilise textbox1.text

---

alors que jusque maintenant c'était

Code:

---

txt.Text

---

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

Cordialement,

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