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