XL 2016 Remplir Texbox depuis Combobox

[Fipat]

Bonjour,

Je cherche a mettre à la suite plusieurs valeurs venant d'une combobox

Private Sub btn_Ajout_pole_Click()

Dim pole As String

pole = Cbx_pole.Value

Tbx_pole = pole

End Sub

Ceci affiche bien dans ma TextBox, mais si je saisie une autre valeur cela écrase ma première.
Je voudrais les afficher à la suite.
Merci.

 

[youky(BJ)]

Bonjour Fipat,
Tbx_pole=Tbx_pole & " " & pole
ou
Tbx_pole=pole & " " & Tbx_pole & " "
Bruno

 

[Jacky67]

Bonjour,

Je cherche a mettre à la suite plusieurs valeurs venant d'une combobox

Private Sub btn_Ajout_pole_Click()

Dim pole As String

pole = Cbx_pole.Value

Tbx_pole = pole

End Sub

Ceci affiche bien dans ma TextBox, mais si je saisie une autre valeur cela écrase ma première.
Je voudrais les afficher à la suite.
Merci.

Bonjour à tous,
Ou encore

Private Sub btn_Ajout_pole_Click()
    Me.Tbx_pole.MultiLine = True
    Me.Tbx_pole = Me.Tbx_pole & Chr(10) & Me.Cbx_pole
End Sub

 

[Fipat]

Merci pour vos réponses.
Ceci correspond parfaitement, inscription en dessous de la première valeur.
Chr(10) est le retour chariot ?

Private Sub btn_Ajout_pole_Click()
    Me.Tbx_pole.MultiLine = True
    Me.Tbx_pole = Me.Tbx_pole & Chr(10) & Me.Cbx_pole
End Sub

Si je peux abuser comment supprimer la dernière sélection ?
Supprimer la sélection entière serait

Tbx_pole.Value = ""

Mais la dernière saisie ?
Merci pour votre aide

 

[Jacky67]

Merci pour vos réponses.
Ceci correspond parfaitement, inscription en dessous de la première valeur.
Chr(10) est le retour chariot ?

Private Sub ButtonSupprimer_Click()
    If Me.Cbx_pole <> "" Then
        If Me.Tbx_pole = Me.Cbx_pole Then Me.Tbx_pole = ""
        If Right(Tbx_pole, Len(Me.Cbx_pole)) = Me.Cbx_pole Then Me.Tbx_pole = Left(Me.Tbx_pole, Len(Me.Tbx_pole) - (Len(Me.Cbx_pole) + 2))
        Me.Cbx_pole = ""
    End If
End Sub

Si je peux abuser comment supprimer la dernière sélection ?
Supprimer la sélection entière serait

Tbx_pole.Value = ""

Mais la dernière saisie ?
Merci pour votre aide

RE..
Chr(10) est le retour chariot ? ==> OUI
Manuellement ?????
Ou
Ceci attribué à un bouton nommé "ButtonSupprimer"

Private Sub ButtonSupprimer_Click()
    If Me.Cbx_pole <> "" Then
        If Me.Tbx_pole = Me.Cbx_pole Then Me.Tbx_pole = ""
        If Right(Tbx_pole, Len(Me.Cbx_pole)) = Me.Cbx_pole Then Me.Tbx_pole = Left(Me.Tbx_pole, Len(Me.Tbx_pole) - (Len(Me.Cbx_pole) + 2))
        Me.Cbx_pole = ""
    End If
End Sub

 

[Fipat]

Merci pour cette réponse Jacky67, oui via un bouton supprimer et ta réponse est au rdv .
Je voudrais reprendre ces valeurs et les concaténer pour les incrémenter dans une feuille.
valeur 1 = a
Valeur 2 = b
Valeur 3 = c
Ce qui afficherais en cellule C4
a,b,c

With Sheets("Paramétrages")
.Range("C4").Value = Tbx_pole.Value
End With

Merci beaucoup pour ces réponses

 

[Jacky67]

Merci pour cette réponse Jacky67, oui via un bouton supprimer et ta réponse est au rdv .
Je voudrais reprendre ces valeurs et les concaténer pour les incrémenter dans une feuille.
valeur 1 = a
Valeur 2 = b
Valeur 3 = c
Ce qui afficherais en cellule C4
a,b,c

With Sheets("Paramétrages")
.Range("C4").Value = Tbx_pole.Value
End With

Merci beaucoup pour ces réponses

RE..

    With Sheets("Paramétrages")
        .Range("C4").Value = Replace(Tbx_pole.Value, Chr(10), ",")
    End With

 

[Fipat]

euh, comment dire ... ?
Tu es embauchée pour mon projet !
Milles merci pour tes réponses, elles sont parfaitement adaptées à mes demandes.
Je veux créer un userform qui me permet d'incrémenter une feuille paramétrages qui me sert à faire des requêtes Inside.
La première sélection ne doit pas avoir ,a.
Supprimer le virgule de la première valeur remontée.

Tu viens de me donner une très bonne idée de ce que je dois faire, comment le construire.
Je serais surement être encore demandeur dans l’évolution de ce travail.
Encore miles merci pour ton aide qui va me permettre d'avancer sur ce travail.
Je ne sais même pas mettre ou le résolu
Milles merci Jacky67

 

[Staple1600]

Bonsoir le fil

Si j'ai bien compris, une autre façon de faire
(Ici test avec un userform avec un Combobox, un TextBox et un CommandButton)

Private Sub ComboBox1_Change()
Dim X$
X = ComboBox1.Value
TextBox1 = TextBox1 & X
End Sub

Private Sub CommandButton1_Click()
[A1] = TextBox1
TextBox1 = vbNullString
ComboBox1.ListIndex = -1
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array(1, 2, 3)
End Sub

Changer plusieurs fois la valeur de la Combo et cliquer sur le bouton.
La valeur "concaténée" du TextBox se met bien en A1.