Afficher apres selection les 3 colonnes dans combobox

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Juin 2014

• #2

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour Carlos, bonjour le forum,

Presque 500 posts au compteur et toujours pas compris qu'avec un exemple c'est beaucoup plus facile de te répondre... !
D'abord, où se trouve la Combobox (Userform, Onglet ?), ensuite comment est-elle alimentée ?
Selon tes réponses nous pourrons te proposer quelque chose qui colle exactement à ton problème, plutôt que de perdre du temps en tâtonnant...
3 ColumnCount, je suppose que tu veux dire que la propriété [ColumnCount] de la combobox est égale à 3...

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 1 Juin 2014

• #3

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour Robert
Désolé .
Voici en PJ le fichier.
Merci
Carlos

 

Pièces jointes

• Afficher dans combobox les 3 colonnes.xls

  41.5 KB · Affichages: 49
• Afficher dans combobox les 3 colonnes.xls

  41.5 KB · Affichages: 37
• Afficher dans combobox les 3 colonnes.xls

  41.5 KB · Affichages: 40

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 1 Juin 2014

• #4

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour Carlos, Robert

Tu peux tester en rajoutant ce code dans le Userform:

Code:

Private Sub ComboBox1_Click()
i = ComboBox1.ListIndex + 1
ComboBox1 = Cells(i, 1).Value & " " & Cells(i, 2).Value & " " & Cells(i, 3).Value
End Sub

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 1 Juin 2014

• #5

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour MJ13
j'avais pensé faire cela mais comme je dois récupérer la colonne 1 comme variable pour la suite de l'évenement,je n'avais pas souhaité utiliser cette "formule" .
Merci
Carlos

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 1 Juin 2014

• #6

Re : Afficher apres selection les 3 colonnes dans combobox

Re

j'avais pensé faire cela mais comme je dois récupérer la colonne 1 comme variable pour la suite de l'évenement,je n'avais pas souhaité utiliser cette "formule" .
Merci

Cliquez pour agrandir...

De rien, cela m'a fait faire un peu de TP 🙂.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 1 Juin 2014

• #7

Re : Afficher apres selection les 3 colonnes dans combobox

bonjour tous 🙂🙂🙂

pose pas de pb... si tu veus recuperer la 1 colonne en variable

exemple

code user

Code:

Private Sub UserForm_Initialize()
  ComboBox1.List = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row).Value
End Sub
Private Sub ComboBox1_Click()
MsgBox ComboBox1.List(ComboBox1.ListIndex, 0)
End Sub

en complement en restant sur le meme code

si tu veus afficher les 3 colonnes tu peus faire cela

Code:

Private Sub UserForm_Initialize()
  ComboBox1.List = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row).Value
End Sub
Private Sub ComboBox1_Click()
 With ComboBox1
 MsgBox .List(.ListIndex, 0)
 ComboBox1 = .List(.ListIndex, 0) & "  " & .List(.ListIndex, 1) & "  " & .List(.ListIndex, 2)
 End With
End Sub

 

Dernière édition: 1 Juin 2014

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 1 Juin 2014

• #8

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour Laetita90
merci pour ta réponse mais c'est à peu près la mêmeque MJ13.
Tu concatenes les 3 colonnes en une seule .
Ce que je voudrais c'est avoir 3 colonnes dans ce combobox1 avec respectivement les 3 valeurs.
Cordialement
Carlos

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Juin 2014

• #9

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour à tous

carlos
Si tu lis Robert

3 ColumnCount, je suppose que tu veux dire que la propriété [ColumnCount] de la combobox est égale à 3..

Cliquez pour agrandir...

Et que cette propriété est bien a trois alors le code de leti fonctionne.
Je le sais car j'ai lu Robert et j'ai testé le code de leti 😉
Et j'obtiens bien ce que tu souhaites (le preuve en image)

Ce que je voudrais c'est avoir 3 colonnes dans ce combobox1 avec respectivement les 3 valeurs.

Cliquez pour agrandir...

 

Dernière édition: 1 Juin 2014

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 1 Juin 2014

• #10

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour Staple1600
Je ne vois pas le message de Leti.C'est Laetitia ?
Sa proposition est de concaténer les 3 colonnes en une seule .
Ce qui ne me convient pas car je souhaitais récupérer la colonne 1 comme variable par la suite par un click.C'est la réponse que j'avais fait à MJ13
Je suis étonné car on peut facilement le faire sur une listbox mais à priori pas sur une combobox .
C'est dommage .

Merci
Merci
Carlos

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 1 Juin 2014

• #11

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour
Code à adapter :

Code:

Private Sub UserForm_Initialize()
Dim cel As Range
i = 0
    For Each cel In [Prix]
        With ComboBox1
        .ColumnCount = 3
        .AddItem cel.Row
        .List(i, 1) = cel
        .List(i, 2) = Format(cel.Offset(, 5), """Frs ""0.00")
        End With
            i = i + 1
    Next cel
 End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Juin 2014

• #12

Re : Afficher apres selection les 3 colonnes dans combobox

Re, bonjour Regueiro

carlos
???

Ce que je voudrais c'est avoir 3 colonnes dans ce combobox1 avec respectivement les 3 valeurs.

Cliquez pour agrandir...

C'est bien ce que montre ma copie d'écran, non ? (voir mon précédent message)
Et oui leti= laetitia

 

Dernière édition: 1 Juin 2014

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 1 Juin 2014

• #13

Re : Afficher apres selection les 3 colonnes dans combobox

Bonjour Le Forum, Carlos
Voici ton fichier en PJ
J'ai transformé tes données en Tableau1 sur la Feuille 1

PHP:

Private Tableau As ListObject
Private LR As ListRow

Private Sub ComboBox1_Click()
With ComboBox1
'MsgBox .List(.ListIndex, 0)
i = ComboBox1.ListIndex + 1
Set LR = Tableau.ListRows(i)
  'ComboBox1 = Tableau.DataBodyRange.Cells(i, 1).Value
  ComboBox1 = LR.Range.Cells(1, 1) & " - " & LR.Range.Cells(1, 2) & " - " & LR.Range.Cells(1, 3)
  End With
End Sub

Private Sub UserForm_Initialize()
Set Tableau = Sheets(1).ListObjects("Tableau1")
    With ComboBox1
        .ColumnCount = 3
        .List = Tableau.DataBodyRange.Cells.Value
    End With
End Sub

Peut-être que les spécialistes pourront encore la raccourcir
A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Juin 2014

• #14

Re : Afficher apres selection les 3 colonnes dans combobox

Re, Bonjour à toi aussi Regueiro

Staple1600 à dit:

Re, bonjour Regueiro

Cliquez pour agrandir...

carlos
T'es devant le tennis?
(C'est rapport à ma question de mon précédent message, on est d'accord ou pas ?)

 

Dernière édition: 1 Juin 2014

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 1 Juin 2014

• #15

Re : Afficher apres selection les 3 colonnes dans combobox

Re
Avec le fichier en PJ c'est mieux
A+

 

Pièces jointes

• XLD-Combobox 3 Colonnes.xlsm

  30.4 KB · Affichages: 42
• XLD-Combobox 3 Colonnes.xlsm

  30.4 KB · Affichages: 35
• XLD-Combobox 3 Colonnes.xlsm

  30.4 KB · Affichages: 36

Vote positif 0 Vote négatif