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