XL 2016 Remplir Texbox depuis Combobox

Fipat · 8 Décembre 2020

Bonjour,

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

VB:

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.

Jacky67 · 8 Décembre 2020

Fipat à dit:
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

VB:

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

Merci beaucoup pour ces réponses 🙏😊

RE..

VB:

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

youky(BJ) · 8 Décembre 2020

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

Jacky67 · 8 Décembre 2020

Fipat à dit:
Bonjour,

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

VB:

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

VB:

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 · 8 Décembre 2020

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

VB:

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

Code:

Tbx_pole.Value = ""

Mais la dernière saisie ?
Merci pour votre aide

Jacky67 · 8 Décembre 2020

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

VB:

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

Code:

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"

VB:

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 · 8 Décembre 2020

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

VB:

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

Merci beaucoup pour ces réponses 🙏😊

Jacky67 · 8 Décembre 2020

Fipat à dit:
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

VB:

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

Merci beaucoup pour ces réponses 🙏😊

RE..

VB:

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

Fipat · 8 Décembre 2020

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 · 8 Décembre 2020

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)

VB:

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.

XL 2016 Remplir Texbox depuis Combobox

Fipat

XLDnaute Occasionnel

Jacky67

youky(BJ)

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Fipat

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Fipat

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Fipat

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires

XL 2016 Remplir Texbox depuis Combobox

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency