bonjour
je cherche a reinitialise un combobox en fonction d'un OptionButton coché
j'ai joins un fichier extra ligh
pour me faire mieux comprendre
merci pour toutes vos interventions
bon dimanche
E et F
[file name=combobox1.zip size=16344]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/combobox1.zip[/file]
Private Sub OptionButton2_Click()
Dim cel As Range
ComboBox1.Clear
For Each cel In Sheets('materiel').Range('B2:B20')
ComboBox1.AddItem cel.Value
Next
End Sub
EVIDEMENT @CHRISTOPHE @ c'est bien plus leger
merci beaucoup pour ce coup de main ,,et de balais lol
d'autre part pour avoir les dates directement dans les trois combobox
(combobox3 4 et 5)
jai mis cette macro....ci dessous
a la fin de celle ci j'ai place ''ComboBox3 = Format(Now, 'dd/mm/YY')''
pour avoir la Date DU jour
cependand le menu deroulant de ce combobox3 reste lui au 1/1/2005
Y a til une solution pour qu'il suive la date ???
merci d'avance .................
je rejoins le fichier modifié (ca me semble plus pratique)
....
EetF
Private Sub UserForm_Initialize()
Dim cel As Range
OptionButton1 = True
For Each cel In Sheets('MATERIEL').Range('K1:K400')
ComboBox3 = Format(ComboBox3, 'dd/mm/yy')
ComboBox4 = Format(ComboBox4, 'dd/mm/yy')
ComboBox5 = Format(ComboBox5, 'dd/mm/yy')
ComboBox3.AddItem cel.Value
ComboBox4.AddItem cel.Value
ComboBox5.AddItem cel.Value
Next
ComboBox3 = Format(Now, 'dd/mm/YY')
End Sub [file name=matoss.zip size=21806]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/matoss.zip[/file]
@christophe
Oui j'avais bien pense a utiliser un 'calandar'
mais les micros de mon boulot n'en sont pas equipe
(pas access d'install)
pas de calandar , et de plus il faot etre administrateur pour installe
un fichier quelconque
tu as vu (je pense ) dans mon fichier que la date du jour se met dans les comboxboxs 3 4 et 5
mais le menu deroulant lui reste sur le 1/1
en fait j'aurai trouve plus pratique qu il se trouve lui aussi sur la date du jour
J'ai une solution pour toi. Dans le code suivant remplace la ligne suivante ComboBox3 = Format(Now, 'dd/mm/YY') par ComboBox3.ListIndex = Date - DateSerial(Year(Date), 1, 0) - 1
Ton code:
Private Sub UserForm_Initialize()
Dim cel As Range
OptionButton1 = True
For Each cel In Sheets('MATERIEL').Range('K1:K400')
ComboBox3 = Format(ComboBox3, 'dd/mm/yy')
ComboBox4 = Format(ComboBox4, 'dd/mm/yy')
ComboBox5 = Format(ComboBox5, 'dd/mm/yy')
ComboBox3.AddItem cel.Value
ComboBox4.AddItem cel.Value
ComboBox5.AddItem cel.Value
Next
ComboBox3 = Format(Now, 'dd/mm/YY')
End Sub
Ligne à remplacer:
Code:
Private Sub UserForm_Initialize()
...
ComboBox3.ListIndex = Date - DateSerial(Year(Date), 1, 0) - 1
End sub
Re:combobox reactualise en fonction d'un option bu
Salut E&F
re @Christophe@
si je comprends bien
la liste de ta combobox3 commence toujours par la date du jour For i = 0 To 400
ComboBox3.AddItem Format(Now + i, 'dd/mm/yy')
si oui il suffit donc de faire
Combobox3.listIndex=0
Amicalement
Re:combobox reactualise en fonction d'un option bu
Bonjour ChTi160
Tu comprends très bien, dans le dernier exemple que je lui ai donné, avec la boucle oui. Mais je crois que cela ne lui convient pas et qu'il faut que la plage de date débute avec 01/01/2005, c'est pour cela que j'utilise 'Date - DateSerial(Year(Date), 1, 0) - 1'.
Re:combobox reactualise en fonction d'un option bu
super
merci @christophe@ merci chti160
c'est exatement ce que je 'revé'!!!!!!!!
ca marche tres bien ................
bonne fin de journée
et vraiment merci pour tout
E et F