IDDN CertificationIDDN Certification 		 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal
 Accueil
 Jeu de rôle en ligne
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Conseiller à un ami
 Statistiques-TOP 10
 Me contacter
 		 

   

 
SERVICES
 OFFRES D'EMPLOI
 Appartement à vendre
 		 

 
Partenaires
 Les Partenaires

 		 
 

Mettre une période en années dans une ComboBox  



Placez ce code dans un module :

Public Sub AnneesDansComboBox(CMB As ComboBox, AnneeDebut As Integer, AnneeFin As Integer)
   CMB.Clear
   For i = AnneeDebut To AnneeFin
       CMB.AddItem i
   Next
End Sub

Placez sur une feuille un contrôle ComboBox (dans notre exemple il se nomme Combo1).
Dans Form_Load de la feuille placez ce code :

AnneesDansComboBox Combo1, 1900, 2010

Dans la liste apparaît des dates allant de 1900 à 2010.
 		 



[ Jeux gratuits ] - [ photo ] - [ photo numerique ] - [ programmation ]
[ Foot Phocéen / Olympique de Marseille ] - [ turf / pmu / paris ] - [ payer moins d'impot ] -

Copyright © 2000-2009 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192