Discussion :

[nicdodo]

Bonjour, je sollicite une nouvelle fois vos talent d'informaticien, j'espere un jour pouvoir aider comme certain sur ce forum, mais pour l'instant je débute

Dans une userform j'ai 3 check box et une text box. La 1er check box = mache, la 2em = mesclun, la 3em = roquette
Je veux que quand je coche une case ça me marque le nom de ma salade dans ma textbox. Jusque la pas de probleme j'utilise ce code :

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
Private Sub cboxmache_Click()
If cboxmache.Value = True Then
txtsandwich = "Mache"
End If
End Sub
 
Private Sub cboxmesclun_Click()
If cboxmescun.Value = True Then
txtsandwich = "mesclun"
End If
End Sub
 
Private Sub cboxroquette_Click()
If cboxroquette.Value = True Then
txtsandwich = "roquette"
End If
End Sub

Mon probleme vient à partir du moment ou il y'a 2 cases cochées, j'aimerais que mes 2 salades apparaissent dans ma textbox séparé d'un "-"
Donc quand je coche mesclun et mache j'aimerais que dans ma textbox apparaisse :
Mache - mesclun

Est ce possible?

[Daranc]

n'oublie pas les balises de codes #

Code :

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

1
2
3
4
5
Private Sub cboxmache_Click()
If cboxmache.Value = True Then
txtsandwich = "Mache"
End If
End Sub

essayes de faire ceci

Code :

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

1
2
3
4
5
Private Sub cboxmache_Click()
If cboxmache.Value = True Then
txtsandwich =txtsandwich & "Mache"
End If
End Sub

si le "&" plante essayes avec +
mais le problème sera si tu décoche une checkbox

[nicdodo]

Merci ça marche avec "&" mais ça ne me met pas l'espace et le "-" entre les mots, je suis nouveau sur ce forum, je ne sais pas ou je dois placer les balises # peux tu m'indiquer stp?
Autre chose si je coche ça me marque mon texte ms si je décoche ça me le laisse, est il possible que quand je décoche ça m'enleve mon texte

Par exemple je coche mache et mesclun ça va m'afficher machemesclun (dans le format actuelle)
Mainteant je me rends compte que j'ai fait une erreur et je décoche mache, comment puis je faire pour que mache disparraisse et que les mots suivant qui eux sont cochés prenne la place de mache
Par exemple pour 3 mots "Mache mesclun roquette", si je décoche mesclun que ça me marque mache roquette?

[bifconsult]

Hello,

Voilà une solution qui fonctionne avec un " - " entre les mots

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
 
Private Sub CheckBox1_Click()
    Call summarize
End Sub
 
Private Sub CheckBox2_Click()
    Call summarize
End Sub
 
Private Sub CheckBox3_Click()
    Call summarize
End Sub
 
Sub summarize()
 
     If CheckBox1.Value = True Then a = "Mache"
     If CheckBox2.Value = True Then a = a & " - Mesclun"
     If CheckBox3.Value = True Then a = a & " - Roquette"
 
     If Left(a, 3) = " - " Then a = Right(a, Len(a) - 3)
 
     TextBox1.Value = a
 
End Sub

[nicdodo]

Merci beaucoup c'est exactement ça que je recherchais, c'est vraiment sympa.