Affichage d'une date dans une Combobox

Tentative pour joindr le fichier exemple [file name=dates_20050711021650.zip size=8242]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dates_20050711021650.zip[/file]

Message édité par: zzr09, à: 11/07/2005 02:16

Voici le code contenu dans le fichier exemple joint.
il s'agit d'initialiser la ComboBox1 dès l'ouverture de la feuille UserForm en déclarant les items contenus dans la plage de cellules non vides de la colonne A (Feuil1).


Private Sub UserForm_initialize()

'variable pour l'adresse de la dernière cellule
Dim var As String

'initialisation de la variable : on se place en fin de liste et on mémorise l'adresse
var = Sheets('feuil1').Range('a1').End(xlDown).Address

'initialisation de la ComboBox1
ComboBox1.RowSource = 'a1:' & var

'pointage de ComboBox1
ComboBox1.SetFocus

End Sub