Remplir une combobox

re-Bonjour à tous,

J'ai actuellement une base de données stagiaires avec des listes déroulantes que je remplis avec ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize()   Dim i   For i = 2 To 7000   ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)   Next   End Sub

---

Mais ce code ne me convient pas car lorsque la base augmente je dois modifier la valeur 2 to 7000 à 7500, etc....
J'aimerais avoir quelque chose qui compte automatiquement le nombre de valeur dans la table, si possible?

Bonne journée

Bonjour,

à la place du :

Code:

---

For i = 2 To 7000

---

Essaye :

Code:

---

For i = 2 To Range("A2").End(xlDown).Row

---

Si tes informations sont dans la colonne A sinon tu remplace par ta colonne souhaitée, cela va chercher la dernière ligne non vide de ta table.

Bonne journée

---

Bonjour Marc31,

Tu peux utiliser la propriété .RowSource du ComboBox pour remplir directement avec un Range et non ligne par ligne dans une boucle.

Ensuite tu peux utiliser la méthode .End avec comme paramètre possible xlUp, XlDown, xlToLeft ou xlToRight qui sont en fait les équivalents de Ctrl + flèche
Cells(Application.Rows.Count, 1).End(xlUp) est donc la dernière cellule de la colonne A qui est utilisée.

Donc le code devient :

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() Dim rg As Range Set rg = Range(Cells(2, 1), Cells(Application.Rows.Count, 1).End(xlUp)) UserForm1.ComboBox1.RowSource = rg.Address End Sub

---

Merci pour le code mais j'ai testé et il mets qu'un certain nombre de stagiaire...j'ai pas toute la liste qui apparaît dans la combobox....

De quel code parles tu ?

Combien d'UserForm as tu ?
UserForm1.ComboBox1 c'est toujours mieux que ComboBox1 ;)

Merci Anthony et je parlais du code de Gaet76 que j'aime bien parce qu'il est simple....

Oui j'ai plusieurs d'userforms mais j'ai fais comme ta dit et cela ne change rien....

Simple à lire mais dans l'exécution ce n’est pas top une boucle de cette taille surtout quand une propriété te fais la même chose en une ligne.

Si tu veux rester sur une boucle, remplace

Code:

---

For i = 2 To Range("A2").End(xlDown).Row

---

par
For

Code:

---

i = 2 To Range("A1000000").End(xlUp).Row

---

ou même

Code:

---

For i = 2 To Cells(rows.count,1).End(xlUp).Row

---

Tu auras toutes tes données normalement.

Le problème du End(xlDown) c'est que s'il y a une ligne sans donnée, tu ne vas pas tout en bas. Il est donc plus efficace de partir d'en bas.

Ta liste est sur une autre feuille ?

A l'image de UserForme1.ComboBox1 mieux que ComboBox1,
Il est toujours préférable de mettre Sheets("NomDeLaFeuille").cells(.....)

Mais bon je ne le fais pas toujours non plus :pastaper:

Oui ma liste est sur une autre feuille et j'ai testé :

Code:

---

For i = 2 To Cells(rows.count,1).End(xlUp).Row

---

. Ma liste est vide du coup.....

Il faut que tu précise la feuille concerné devant tes objets Cells, Range, Rows.. par exemple

Code:

---

1 2 3 4 5

with ThisWorkBook.Worksheets("Mafeuile")   For i = 2 To .Cells(.rows.count,1).End(xlUp).Row   end with

---

Mercccciiiiiiiiiiiiiiiii à tout le monde, ça marche super....... et BRAVO, vous êtes balaises......!!