Remplir une Combolist avec tabulation

[ericTA]

Boujour a tous,
Encore une foi je fais appel à vos compétences.
Voici mes deux questions:
- Je voudrais remplir à l'ouverture du classeur une Combolist (voir fichier joint)
- Dans cette liste je copie la colonne A + colonne B pour former le corps de la liste. Mais j'aimerai que le dans la liste la valeur de la colonne B soit toujours alignée comme quand on a une tabulation.
ex:

aaa eeeeee
dddddd zzzzzzz
www ooo

Merci d'avance
Eric

 

[Pierrot93]

Re : Remplir une Combolist avec tabulation

Bonjour ericTA

peut être qu'avec un combobox à 2 colonnes cela résoudrait ton problème. ton fichier modifié en retour, regarde si cela te convient.

bonne fin d'après midi
@+

 

[ericTA]

Re : Remplir une Combolist avec tabulation

Merci Pierrot,
Encore une fois tu me sauves.
Par contre comment fait-on pour que la combolist se remplisse à l'ouverture du fichier?
Merci
Eric

 

[Pierrot93]

Re : Remplir une Combolist avec tabulation

Re

il faut mettre le code dans le module "ThisWorkbook", de ce fait bien préciser le nom de la feuille. ton fichier modifié.

@+

 

[ericTA]

Re : Remplir une Combolist avec tabulation

Franchement cela devient plutôt frustrant de voir à quel point c'est facile pour toi.
Mais bon j'ose encore abuser de ton savoir.
Dans ta réponse, tu utilises une liste double entrée, cela marche super bien, mais y a-t-il ?
Eric

 

[ericTA]

Re : Remplir une Combolist avec tabulation

Franchement cela devient plutôt frustrant de voir à quel point c'est facile pour toi.
Mais bon j'ose encore abuser de ton savoir.
Dans ta réponse, tu utilises une liste double entrée, cela marche super bien, mais y a-t-il moyen de régler l'espace entre les deux valeurs (régler la largeur de la tabulation ) ?
Eric

 

[Pierrot93]

Re : Remplir une Combolist avec tabulation

Re

ce n'est pas une tabulation, mais un combo à 2 colonnes. De ce fait nous pouvons trés bien modifier les largeurs avec la propriété "ColumnWidths". comme dans le code ci dessous :

Option Explicit
Private Sub Workbook_Open()
Dim i As Integer
With Sheets("Feuil1")
.ComboBox1.Clear
.ComboBox1.ColumnCount = 2
.ComboBox1.ColumnWidths = "70;70"
For i = 0 To 2
    .ComboBox1.AddItem .Range("A" & CStr(i + 1)).Value
    .ComboBox1.List(i, 1) = .Range("B" & CStr(i + 1)).Value
Next i
End With
End Sub

bonne soirée
@+

 

[ericTA]

Re : Remplir une Combolist avec tabulation

Facile...
Encore Merci
Eric