Liste déroulante 3 colonnes 1 valeur

Bonjour à vous,

Je fais appel à vos connaissances,

J'ai une feuille1 avec plusieurs colonnes.

J'ai dans une feuille2 une mise en page, avec une cellule dans lequel j'aimerais y avoir...

une liste déroulante (composé de 3 des colonnes de la feuille1), qui affiche les informations sur 3 colonnes ayant des espaces fixes (ex. 10, 25, 10 et des espaces de 3 caractères entre les valeurs) et ce même si les valeurs dans les colonnes de la feuille1 ont des nombres de caractères différents, et lorsque je sélectionne une ligne (dans la liste déroulante), je ne veux que la première info ( soit la valeur de la première colonne).

Exemple....

contenu de la liste déroulante

P-18010001 Yamaha 2004

P-18010002 Harrington & son 1999

Donc les colonnes sont a espace fixe, peut importe les valeurs

et lorsque je sélectionne (ex. la première ligne), ça inscrit P-18010001 dans ma cellule.

J'espère avoir bien détaillé mon problème

Toute aide sera apprécié

Bonjour,

Je ne suis pas sûr d'avoir bien saisi

Il te faut poser sur ta feuille, un ComboBox issus de la boite à outils Contrôles ActiveX puis de coller dans le module de la feuille le code ci-dessous et exécuter la Sub "Remplir()" sachant que les valeurs récupérées se trouvent en colonnes A à C à partir de la ligne 1. Le choix de la valeur dans la ComboBox sera inscrit dans la cellule active :

Sub Remplir()

    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer

    With Feuil1

        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))

        .ComboBox1.Clear

        .ComboBox1.ColumnCount = 3
        .ComboBox1.ColumnWidths = "10 pt;25 pt;10 pt"

        For Each Cel In Plage

            .ComboBox1.AddItem Cel.Value
            .ComboBox1.Column(1, I) = Cel.Offset(, 1).Value
            .ComboBox1.Column(2, I) = Cel.Offset(, 2).Value
            I = I + 1

        Next Cel

    End With

End Sub

Private Sub ComboBox1_Click()

    With Feuil1.ComboBox1

        ActiveCell.Value = .List(.ListIndex)

    End With

End Sub
Rechercher des sujets similaires à "liste deroulante colonnes valeur"