Discussion :

[SpcCwb]

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

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 :

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

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 :

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

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? Merci!

[Ashireon]

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

[SpcCwb]

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 :

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

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

[SfJ5Rpw8]

Bonjour,


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

par exemple dans ton userform un bouton

Code :

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

1
2
3
Private Sub CommandButton1_Click()
   Taille TextBoxA2
End Sub

et dans ton module7 :

Code :

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

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

[SpcCwb]

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 :

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
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

[SfJ5Rpw8]

re,

je ne vois aucune adaptation de mon code ?

c'est quoi ces lignes de codes incongrues ?

Code :

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

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..