Discussion :

[Marc31]

re-Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gaet76]

Bonjour,

à la place du :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 2 To 7000

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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....

[antonysansh]

De quel code parles tu ?

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

[Marc31]

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....

[antonysansh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par
For

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[antonysansh]

---

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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