Création d'une combobox auto rempli à partir d'une liste excel

[kyros21]

Bonjour à tous, alors voila, je cherche à crée une combobox qui se remplirai à partir de la feuille nommé "Fin" de mon classeur, et particulierement à partir de la colonne E et de la ligne 4 jusqu'a la derniere cellule rempli pour éviter à la macro de scanner toute la colonne.

donc pour cela j'ai créé ma userform1, puis a l'intérieur ma combobox1 et je pensais écrire mon code pour faire ceci :

declarer la variable finliste qui va stocker le numero de la ligne de la derniere cellule non vide de la colonne E
ensuite je fais une boucle for de i = 4 to finliste, mais bon visiblement j'ai pas la bonne syntaxe, si vous pouviez me corriger?

Code :

1
2
3
4
5
6
7
8
9
      Dim i
                Dim finliste as integer
                Sheets("Fin").Columns(E, E).Find("*", [C1], , , , xlPrevious).row
                For i = 4 To finliste
                UserForm1.ComboBox1.AddItem Sheets("Fin").Cells(i, 5)
                Next
 
                UserForm1.Label1.Caption = "Merci de renseigner le type du tube  " & produit
                UserForm1.Show

Derniere petite chose, ma userform est donc composé de cette combobox, et d'un bouton valider, j'aimerai obliger l'utilisateur à choisir une valeur dans la combobox, comme sa si la combobox est vide, le bouton valider ne ferme pas la userform, car derriere le bouton valider, il y a une vlookup à partir de la valeur du combobox, et si il n'y a pas de valeur, la macro plante...


Merci


merci

[Ormonth]

Bonjour et bienvenue

Tu peux utiliser une plage nommée Dynamique, à chaque ajout de valeurs consécutives, elle se redimensionnera.

OrmonthDatazz2.jpg

ensuite tu mets un code du genre pour l'alimentation :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Piste()
Dim objPlageCible As Range
Dim cell As Range
 
Set objPlageCible = Worksheets("MaFeuille").Range("Parcellez")
For Each cell In objPlageCible
    If cell.Value <> "DG-Solutions" Then cboNomParcelle.AddItem cell.Value
    'J'ai toujours une valeur neutre après la ligne de titre que je saute dans l'alim / plage dynamique pour éviter des pb sur liste vierge au départ etc....
    'ça ne va pas plus loin que la dernière cellule remplie dans la plage sans "trous"
Next cell
 
Set objPlageCible = Nothing
End Sub

Point 2 :

Code :

1
2
3
Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then MsgBox "Vous devez préalablement sélectionner un xxxx !": Exit Sub
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier