Discussion :

[fabrice44]

bonjour,

je souhaiterai alimenter une textbox avec la valeur de plusieur cellules(texte) avec des ";" entre chaque , mon problème c'est que je fais une macro qui alimente ma textbox mais qui efface les valeurs au fur et à mesure, il ne me reste à la fin que la dernière valeur trouvée, pouvez vous m'aider
merci

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
Private Sub nomguilde_Change()
 
 
'variables
Dim i As Integer
Dim j As Integer
Dim k As Integer
 
i = 2
j = 2
k = 2
l = 2
 
 
Dim nomguilde As String
 
nomguildetext = ""
 
On Error Resume Next
While Worksheets("guilde").Cells(k, 5) <> ""
 
If Worksheets("guilde").Cells(k, 2).Value = Worksheets("guilde").Cells(k, 5)Then
 
symboletext = Worksheets("guilde").Cells(k, 3).Text
 
End If
 k = k + 1
Wend
On Error GoTo 0
 
 
End Sub

[farid06]

Bonjour !

essaye ça :
symboletext = symboletext & ";" & Worksheets("guilde").Cells(k, 3).Text

[fabrice44]

bonjour,
j'ai un problème assez embêtant
j'ai fait un "userform initializer" pour alimenter les "combox",
j'ai 4 "combox" en cascade dans un "user form" qui sont alimentées les une les autres avec "les private sub change".
au début de chacune des "private sub change" je nettoie mes listes avec ".clear"
le problème c'est que quand je selectionne une premiere entrée dans la 1ere combox, la deuxieme s'alimente correctement mais lorsque que je selectionne une entrée dans la deuxieme combox2, le combox.clear qui est dans la "private sub combox2" vient tout perturber.
en regardant en pas à pas, j'ai l'impression que le combox.clear de la "private sub combox2" renvoie à la" private sub combox1 " parent de la recherche, ce qui perturbe tout

en fait j'aimerai nettoyer mes listes sans que mon .clear ne renvoie à la "private sub combox"

suis je clair?

[farid06]

Voici le code que j'ai écrit pour 3 combobox en cascade:

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
Private Sub UserForm_Activate()
    ComboBox1.AddItem "Valeur1"
    ComboBox1.AddItem "Valeur2"
    ComboBox1.Text = "Valeur1"
End Sub
Private Sub ComboBox1_Change()
ComboBox2.Clear
Select Case ComboBox1.Text
Case "Valeur1"
    ComboBox2.AddItem "Valeur1.1"
    ComboBox2.AddItem "Valeur1.2"
    ComboBox2.Text = "Valeur1.1"
Case "Valeur2"
    ComboBox2.AddItem "Valeur2.1"
    ComboBox2.AddItem "Valeur2.2"
    ComboBox2.Text = "Valeur2.1"
End Select
End Sub
Private Sub ComboBox2_Change()
    ComboBox3.Clear
    Select Case ComboBox2.Text
    Case "Valeur1.1"
        ComboBox3.AddItem "Valeur1.1.1"
        ComboBox3.AddItem "Valeur1.1.2"
        ComboBox3.AddItem "Valeur1.1.3"
    Case "Valeur1.2"
        ComboBox3.AddItem "Valeur1.2.1"
        ComboBox3.AddItem "Valeur1.2.2"
        ComboBox3.AddItem "Valeur1.2.3"
 
    Case "Valeur2.1"
        ComboBox3.AddItem "Valeur2.1.1"
        ComboBox3.AddItem "Valeur2.1.2"
        ComboBox3.AddItem "Valeur2.1.3"
    Case "Valeur2.2"
        ComboBox3.AddItem "Valeur2.2.1"
        ComboBox3.AddItem "Valeur2.2.2"
        ComboBox3.AddItem "Valeur2.2.3"
    End Select
End Sub
 
Private Sub UserForm_Click()
 
End Sub