Modifier liste combobox

[Demouret]

Bonjour le Forum

J'ai déniché ce qui suit sur ce forum mais je n'arrive pas à le modifier pour que je n'ai dans ma combobox que les cellules à partir de la F16 (vers le bas)

Merci de votre aide... Bonne journée


Sub Auto_open()
feuille1 = 'contacts'
sheets(feuille1).ComboBox1.Clear
ndl = sheets(feuille1).Range('F').End(xlDown).Row
For I = 3 To ndl
noms = sheets(feuille1).Range('F' & I)
sheets(feuille1).ComboBox1.AddItem (noms)
Next I
End Sub

 

[salim]

Bonjour Demouret

Une façon de faire :

Option Explicit

Private Sub UserForm_Initialize()
Dim L&, Plage
    L = Range('F65536').End(xlUp).Row
    Plage = Range(Cells(16, 6), Cells(L, 6))
    Me.ComboBox1.List = Plage
End Sub

salim.

 

[Demouret]

Bonjour Salim.

Merci pour ta réponse j'ai déjà qques combo dans des USF et là ca fonctionne bien.
Sauf que celui dont j'ai envoyé le code n'est pas dans un USF mais au beau milieu de ma feuille... donc je ne pense pas que ca marche avec Userform Initialise
En fait je ne sais pas comment remplir mon combo sans passer par Userform Initialise :S

Merci tout de même

 

[salim]

Je t'envoi alors un fichier exemple avec une combo sur la feuille la combo se rempli a l'activation de la feuille voici le code qui est dans le fichier joint

Option Explicit

Private Sub Worksheet_Activate()
Dim L&, Plage
    L = Range('F65536').End(xlUp).Row
    Plage = Range(Cells(16, 6), Cells(L, 6))
    Me.ComboBox1.List = Plage
    Me.ComboBox1.ListIndex = 0
End Sub

[file name=PourDemouret.zip size=9288]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourDemouret.zip[/file]

 

[Demouret]

Mais c'est tout à fait ce qu'il me faut ça...

Merci Salim pour ta grande classe B)

Bonne après midi