Macro avec TextBox variable

Bonjour bonjour,
Me re-voici avec une nouvelle difficulté (pour moi c'en est une en tout cas :oops:).

J'essaye de coder une macro qui fait intervenir plusieurs TextBox, et j'aimerai pouvoir faire comprendre à la macro que selon si les TextBox sont vides ou non, elles doivents être utilisées.

Dans cette première macro, si la TextBoxA1 est non vide, alors une autre macro se lance, mettant en jeux la TextBoxA1. Pour pouvoir alléger mon code je me suis dit qu'il serai préférable d'utiliser un substitut (TextBoxCouleur) et de l'insérer dans une macro pouvant être utilisée pour une autre TextBox que TextBoxA1.

Code:

---

1 2 3 4 5 6 7 8 9

Sub couleur_et_taille() If UserForm2.TextBoxA1.Value <> "" Then Call Module7.taille With TextBoxCouleur.Value = UserForm2.TextBoxA1.Value End With If UserForm2.TextBoxB1.Value <> "" Then Call Module7.taille With TextBoxCouleur.Value = UserForm2.TextBoxB1.Value End With ... End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub taille() If UserForm2.TextBoxA2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxA2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If ... End Sub

---

Lorsque je lance mes macros j'ai un message d'erreur (Objet Inconnu; pour TextBoxCouleur). Pourriez-vous m'aider à clarifier cette situation? :D Merci!

Hello,
Ajoute peut être sur quel userform se trouve ta textboxcouleur ou sur quelle feuille.

Le fait est que sur mes Userform je n'ai aucune TextBoxCouleur, j'aimerai juste que selon à quel niveau de la 1ère macro où l'on se trouve, la TextBoxCouleur change de cible (ex: Userform2.TextBoxA1; Userform2.TextBoxB1;...).

Tu veux dire que je devrai écrire:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub taille() If UserForm2.TextBoxA2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxA2.Value Range("B5").Value = Userform2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If ... End Sub

---

?

PS: Merci de t'intéresser à mon cas :ccool:

Bonjour,


passe le text box en paramètre de ta fonction :

par exemple dans ton userform un bouton

Code:

---

1 2 3

Private Sub CommandButton1_Click() Taille TextBoxA2 End Sub

---

et dans ton module7 :

Code:

---

1 2 3 4 5

Option Explicit Sub Taille(ByRef txt As MSForms.TextBox) txt.Width = txt.Width + 20 txt.Text = txt.Width End Sub

---

J'ai essayé ton code bbil et ça ne fonctionne pas (peut être l'ai-je mal adapté).

J'ai du mal à comprendre ce que ton code fait en fait, pour que ce soit peut être plus clair pour vous je vais vous coller mon code entier et je joint un screen de ce à quoi ressemble mon UserForm2:

Donc, le Sub couleur_et_taille est lancé lorsque je clique sur un CommandButton, qui a pour but de coller sur un doc excel ce que contiennent les TextBox qui sont remplies. Le Sub couleur_et_taille sert à simplifier le travail, si jamais dans la liste 1 (cf donc joint) j'ai le TextBoxA1, le TextBoxC1 et le TextBoxD1, alors pour chacune de ces TextBox, le Sub taille se lance, et copie-colle les données contenues dans les TextBox de la liste 2 sur le doc excel et copie-colle également le contenue des TextBoxA1, C1 et D1.

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 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110

Sub couleur_et_taille() If UserForm2.TextBoxA1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxA1.Value End With If UserForm2.TextBoxB1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxB1.Value End With If UserForm2.TextBoxC1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxC1.Value End With If UserForm2.TextBoxD1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxD1.Value End With If UserForm2.TextBoxE1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxE1.Value End With If UserForm2.TextBoxF1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxF1.Value End With If UserForm2.TextBoxG1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxG1.Value End With If UserForm2.TextBoxH1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxH1.Value End With If UserForm2.TextBoxI1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxI1.Value End With If UserForm2.TextBoxJ1.Value <> "" Then Call Module7.Taille With TextBoxCouleur.Value = UserForm2.TextBoxJ1.Value End With End Sub     Sub Taille()   If UserForm2.TextBoxA2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxA2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value 'With TextBoxCouleur = UserForm2.TextBoxA1 'End With Else: End If If UserForm2.TextBoxB2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxB2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxC2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxC2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxD2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxD2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxE2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxE2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxF2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxF2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxG2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxG2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxH2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxH2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxI2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxI2.Value Range("B5").Value = UserForm2.TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxJ2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxJ2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If End Sub

---

re,

je ne vois aucune adaptation de mon code ?

c'est quoi ces lignes de codes incongrues ?

Code:

---

1 2	With TextBoxCouleur.Value = UserForm2.TextBoxA1.Value End With

---

utilise l'aide en ligne pour comprendre à quoi sert With .. et tant que tu n'as pas compris ne l'utilise pas ! ...son but est seulement de réduire la longueur du code..

Ah, merci pour les explications sur With, je vais me renseigner dessus.

Je n'ai mis que mon code de base, j'arrange ça de suite:

Code du Userform2:

Code:

---

1 2 3

Private Sub CommandButton23_Click() Taille TextBoxA2 End Sub

---

Et mon module 7

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 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103

Sub couleur_et_taille() If UserForm2.TextBoxA1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxB1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxC1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxD1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxE1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxF1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxG1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxH1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxI1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxJ1.Value <> "" Then Call Module7.Taille   End Sub       Option Explicit   Sub Taille(ByRef txt As MSForms.TextBox) txt.Width = txt.Width + 20 txt.Text = txt.Width   If UserForm2.TextBoxA2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxA2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxB2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxB2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxC2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxC2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxD2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxD2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxE2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxE2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxF2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxF2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxG2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxG2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxH2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxH2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxI2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxI2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxJ2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxJ2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If End Sub

---

le code que je t'ai donné est un exemple permettant de passer à une fonction un paramètre de type textBox ensuite la fonction peu agir sur ce textbox avec ce paramètre ... (txt) ... et dans mon exemple la fonction agrandit le textbox donné en paramétré et modifie la valeur de ce textbox en y plaçant cette largeur.... ce n'est pas ce que tu veux faire ! (bien entendu)

essai ce code dans un nouveau classeur avec un userform .. pour le comprendre...



ensuite

modifie tes appels à la fonction taille .. en passant en paramètre le textbox à traité ..


et dans ta fonction taille utilise le paramètre txt pour accéder à ce textbox .. ou renomme ce paramètre en TextBoxCouleur si cela te parle plus ...

Merci pour les explications, j'ai compris à quoi servait le code que tu m'as donné.

Du coup j'ai modifié ton txt en TextBoxCouleur et maintenant j'ai:
UserForm2:

Code:

---

1 2 3

Private Sub CommandButton23_Click() Taille TextBoxA2 End Sub

---

Module7:

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 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Sub couleur_et_taille() If UserForm2.TextBoxA1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxB1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxC1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxD1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxE1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxF1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxG1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxH1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxI1.Value <> "" Then Call Module7.Taille   If UserForm2.TextBoxJ1.Value <> "" Then Call Module7.Taille   End Sub       Option Explicit   Sub Taille(ByRef TextBoxCouleur As MSForms.TextBox)   If UserForm2.TextBoxA2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxA2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxB2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxB2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxC2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxC2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxD2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxD2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxE2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxE2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxF2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxF2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxG2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxG2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxH2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxH2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxI2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxI2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If If UserForm2.TextBoxJ2.Value <> "" Then Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C5").Value = UserForm2.TextBoxJ2.Value Range("B5").Value = TextBoxCouleur.Value Range("A5").Value = UserForm2.TextBox1.Value Else: End If End Sub

---

Lorsque je lance le tout j'ai un message: Argument non facultatif sur

Code:

---

Then Call Module7.Taille

---

en provenance de:

Code:

---

1 2	Sub couleur_et_taille() If UserForm2.TextBoxA1.Value <> "" Then Call Module7.Taille

---

Je suis désolé si je fais que des co***ries, je suis un petit newbie dans le domaine...

re,

je ne sais pas ce que représente pour toi le code que tu nomme "Code userform2"

Ce que j'avais posté est un exemple d'appel de la fonction Taille ... il faut que tu t'inspire de cet exemple pour les appels à cette fonction taille dans ton module7

Code:

---

1 2 3

Sub couleur_et_taille() If UserForm2.TextBoxA1.Value <> "" Then Call Module7.Taille UserForm2.TextBoxA1 ...

---

Ok, le code que j'ai mis dans UserForm2 c'était due au fait que j'avais mal compris, ça dégage.

Pour que dans ma fonction Taille, vba reconnaisse que TextBoxCouleur est une TextBox je dois écrire:

Code:

---

Sub Taille (ByRef TextBoxCouleur As MSForms.TextBox)

---

Et pour que dans ma fonction Taille, vba reconnaisse la TextBoxA1 comme étant la TextBoxCouleur il faut que dans ma fonction couleur_et_taille j'écrive:

Code:

---

1 2	Sub couleur_et_taille() If UserForm2.TextBoxA1.Value <> "" Then Call Module7.Taille UserForm2.TextBoxA1

---

??
En écrivant simplement:

Code:

---

UserForm2.TextBoxA1

---

après

Code:

---

CallIf UserForm2.TextBoxA1.Value <> "" Then Module7.Taille

---

ça va suffire à dire "le TextBoxCouleur sera TextBoxA1"?

oui

Bon, je suis vraiment désolé mais j'ai encore un problème, j'ai essayé d'ajouter UserForm2.TextBoxA1 après un [espace] derrière [...]

Code:

---

Then Call Module7.Taille

---

(soit: [...]

Code:

---

Then Call Module7.Taille UserForm2.TextBoxA1)

---

Et ça me met une erreur, VBA attend une Fin d'instruction.

enlève le "Call"

SUPER!! Un très très grand merci! Merci merci merci!
Ca fonctionne IM-PECC-ABLE! :mrgreen:
Je m'attendais à devoir expliquer à VBA que la TextBoxA1 sera la TextBoxCouleur par quelque chose du style: TextBoxCouleur=UserForm2.TextBoxA1, ou des trucs du même style alors qu'en fait c'est "tout simple".

Encore un grand merci! Bon appétit!