ComboBox et Colonnes

Bonjour à tous ;)

J'ai sur une feuille une simple liste déroulante (vide) "ComboBox1".
J'ai une macro simple :

Code:

---

1 2 3

Sub Macro1() Feuil1.ComboBox1.Column(1, 1) = "TRUC" End Sub

---

J'ai regardé dans la doc d'Excel, ils présentent la syntaxe ainsi, alors j'ai du mal à voir pour cela bloque...

Merci d'avance pour ce petit blocage 8O ^^

Bonjour,
je pense que tu as dû mal lire l'aide

Voici comment ajouter des Item dans une liste déroulante

Code:

---

1 2 3 4 5 6 7

Sub test() Feuil1.ComboBox1.AddItem "TRUC" Feuil1.ComboBox1.AddItem "MACHIN" Feuil1.ComboBox1.AddItem "CHOSES" Feuil1.ComboBox1.AddItem "Muyces" End Sub

---

Oui cela je connais ^^
Mais lorsque l'on a plusieurs colonnes ? Pour lui dire d'ajouter à telle endroit de la colone n°4, etc. ... 8O

Bonjour,

Pour commencer, il faut savoir que la première ligne est la ligne 0 et que la première colonne est la colonne 0, par exemple pour une Combo comportant 10 lignes et 2 colonnes tu vas avoir les lignes de 0 à 9 et les colonnes 0 et 1.

Voici un exemple avec un ComboBox à 2 colonnes (ne pas oublier d'adapter la propriété ColumnCount de ta Combo)

On peut par exemple dans un premier temps remplir la 1ère colonne.

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim i As Integer   For i = 1 To 10 Feuil1.ComboBox1.AddItem "Ligne " & i Next   End Sub

---

Ensuite pour ajouter un élément dans la 2ème colonne et sur la 4ème ligne

Code:

---

Feuil1.ComboBox1.List(3, 1) = "toto"

---

Pour ajouter les éléments dans les deux colonnes en même temps

Code:

---

1 2 3 4 5 6 7 8 9

Sub test2() Dim i As Integer   For i = 1 To 10 Feuil1.ComboBox1.AddItem "Ligne " & i '<-- 1ère colonne Feuil1.ComboBox1.List(Feuil1.ComboBox1.ListCount - 1, 1) = "élément " & i '<-- 2ème colonne Next   End Sub

---

Ta proposition a l'air d'être ce que je recherche !

Je l'ai adapté à mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ComboBoxPoste_GotFocus() Dim i As Integer   ComboBoxPoste.Clear   For i = 5 To Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) Feuil16.ComboBoxPoste = Feuil1.Range("E" & i) If Feuil16.ComboBoxPoste.ListIndex = -1 And Feuil1.Range("E" & i) <> "" Then _ Feuil16.ComboBoxPoste.List(Feuil16.ComboBoxPoste.ListCount - 1, 0) = Feuil1.Range("E" & i) Next i End Sub

---

Mais j'ai une erreur "Impossible de lire la propriété List" sur :

Code:

---

Feuil16.ComboBoxPoste.List(Feuil16.ComboBoxPoste.ListCount - 1, 0) = Feuil1.Range("E" & i)

---

Tu mélanges 2 choses, le code que tu montres n'a rien à voir avec le fait d'ajouter un élément dans une des colonnes mais ce code sert à remplir la première colonne d'un Combo sans doublon.
De plus où vas tu chercher l'événement GotFocus, tu n'es pas en VBA là ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ComboBoxPoste_GotFocus() Dim i As Integer   ComboBoxPoste.Clear   For i = 5 To Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) Feuil16.ComboBoxPoste = Feuil1.Range("E" & i) If Feuil16.ComboBoxPoste.ListIndex = -1 And Feuil1.Range("E" & i) <> "" Then _ Feuil16.ComboBoxPoste.AddItem Feuil1.Range("E" & i) Next i End Sub

---