Combobox a 2 colonne

[ptitepo]

Bjr,
Je souhaite que ma combobox est 2 colonnes, qye chacune fasse référence a une colonne de ma feuille excel, Et ensuite récuperé la valeur de ma colonne 2 pour continué ma macro.
Pour l'instant je n'arrive qu'a mettre les valeurs des 2 colonnes de ma feuille sur une seul colonne de ma combobox? Comment puis-je faire, voici un bout de mon code faux. Merci

    ColumnCount = 1
    For Each c In Range("K1:K" & Sheets("Gestion").Range("K65536").End(xlUp).Row)
        If c.Value <> "" Then
            ComboBox_nom.AddItem c.Value
        End If
    Next c
    ColumnCount = 2
    For Each c In Range("L1:L" & Sheets("Gestion").Range("L65536").End(xlUp).Row)
        If c.Value <> "" Then
            ComboBox_nom.AddItem c.Value
        End If
    Next c
    Me.ComboBox_nom.BoundColumn = 2

 

[Pierrot93]

Re : Combobox a 2 colonne

Bonjour ptitepo

regarde le code ci dessous, en supposant que tu récupères le même nombre de lignes colonne K et L :

ComboBox_nom.ColumnCount = 2
With Sheets("Feuil1")
    ComboBox_nom.List = .Range("K1:L" & .Range("K65536").End(xlUp).Row).Value
End With

bonne journée
@+

 

[ptitepo]

Re : Combobox a 2 colonne

Merci j'ai bien les 2colonnes remplis dans ma combobox, le problème c'est que j'ai des lignes blanche. Comment je peux faire pour les supprimer, Comment je peux adapté une condition avec ta formule?

 

[Pierrot93]

Re : Combobox a 2 colonne

Re

essaye comme ci dessous, en supposant que pour une même ligne, les colonnes K et L soient vides :

Dim c As Range
ComboBox_nom.List.ColumnCount = 2
With Sheets("Feuil1")
    For Each c In .Range("K1:K" & .Range("K65536").End(xlUp).Row)
        If Not IsEmpty(c.Value) Then
            With ComboBox1
                .AddItem c.Value
                .List(.ListCount - 1, 1) = c.Offset(0, 1).Value
            End With
        End If
    Next c
End With

bon après midi
@+

 

[ptitepo]

Re : Combobox a 2 colonne

Oui mes colonnes K et L sont vides à la même lignes.
J'ai tester ton code mais il ne fonctionne pas, il me met 1 message d'erreur : "objet recquis"
J'ai modifier un peu le code, mais non, tjr le même message.

            With ComboBox_nom
                .AddItem c.Value
                .List(.ListCount - 1, 1) = c.Offset(0, 1).Value
            End With

 

[Pierrot93]

Re : Combobox a 2 colonne

Re

comprends pas trop si tu as bien modifié le nom des différents objets... regarde exemple fichier joint.

@+

 

[ptitepo]

Re : Combobox a 2 colonne

Bon alors je ne comprend pas, j'ai le même code, mes colonnes sont rempli correctement, sauf que j'ai toujours les lignes vides qui apparaisse.
Je vien de penser a une chose... pe être un peu tard, mes case sont vide, mais il y a des formules SI dedans, qui les rendent vide. Cela y est il pour quelque chose?

 

[Pierrot93]

Re : Combobox a 2 colonne

Re

oui cela a son importance, modifies comme suit :

Dim c As Range
ComboBox1.ColumnCount = 2
With Sheets("Feuil1")
    For Each c In .Range("K1:K" & .Range("K65536").End(xlUp).Row)
        If c.Value <> "" Then
            With ComboBox1
                .AddItem c.Value
                .List(.ListCount - 1, 1) = c.Offset(0, 1).Value
            End With
        End If
    Next c
End With

@+

 

[ptitepo]

Re : Combobox a 2 colonne

J'avais deja essayer avec "If c.Value <> "" Then" et ca n'avais pas marcher, mais la c'est bon.
Du coup avant j'avais " Var = Me.ComboBox_nom.Value", qui me donner la valeur de la colonne L dans une variable nommé VAR, qui me permettais de continué mon programme. Or maintenant que j'ai changer tout mon code, comment je récupere la valeur de la colonne L qu'aura choisi l'utilisateur par la combobox?

 

[ptitepo]

Re : Combobox a 2 colonne

Otan pour moi j'ai rien dit ca marche 🙂 merci beaucoup de ton aide.
Si je peux me permettre une derniere question, je voudrais juste la signification de cette ligne, si ce n'est pas trop demander. J'essaye de comprendre le code.

.List(.ListCount - 1, 1) = c.Offset(0, 1).Value

 

[Pierrot93]

Re : Combobox a 2 colonne

Bonjour Ptitepo

avec un peu de retard... désolé...

".list" est la liste des entrées de ta combo, entre parenthèses le numéro de la ligne et le numéro de la colonne.

Pour déterminer le numéro de la ligne, utilisation de la propriété "listcount", qui renvoie le nombre total de lignes de la combo, et le "-1" car numéro d'index de la 1ère ligne d'un combo est 0. Le 1 qui suit, représentant la 2ème colonne de ta combo (même principe d'indexation, 1er = 0) .

En espérant avoir été clair...

bonne journée
@+