Combobox excel

Salut Eric
bonjour le Forum bonne fête à toutes et à tous
Eric peut être en mettant ceci
Worksheets('DONNEES').Range('B3') = CDate(Combobox1.value)
tiens nous au courant

Bonjour Jean Marie,
merci pour ton aide !
effectivement, le rajout de Cdate enlève le '^'.
mais j'ai un aure soucis maitenant !
j'ai 3 combobox dans le meme Userfrom :
le résultat de ces 3 combobox doivent aller en celulle 'B3' pour le 1er combo, en cellule 'B5' pour le 2eme combo et en cellule 'B7' pour le 3eme combo.
avec ta formule, seule la cellule 'B3' est remplie ? (et remplie avec la valeur du 3eme combobox !!!??????)

je vous joint une partie de ma macro :

Worksheets('DONNEES').Range('B3') = CDate(DATEDEBUTL1.Value)

Worksheets('DONNEES').Range('B3') = CDate(DATEFINL1.Value)

Worksheets('DONNEES').Range('B3') = CDate(DATELIVRL1.Value)

Private Sub UserForm_Activate()
For Row = 12 To 2113
DATES_L1.DATEDEBUTL1.AddItem Format(CDate(Sheets('DATES_CIS').Cells(Row, 1)), 'dd/mm/yyyy')
Next Row
For Row = 12 To 2113
DATES_L1.DATEFINL1.AddItem Format(CDate(Sheets('DATES_CIS').Cells(Row, 1)), 'dd/mm/yyyy')
Next Row
For Row = 12 To 2113
DATES_L1.DATELIVRL1.AddItem Format(CDate(Sheets('DATES_CIS').Cells(Row, 1)), 'dd/mm/yyyy')
Next Row
End Sub

merci pour votre aide !!
Eric

re
je ne comprends pas bien tu veux remplir trois cellules avec le contenu de tes 3 combobox donc il suffit si j'ai bien compris de modifier la cellule cible
Worksheets('DONNEES').Range('B3') = CDate(DATEDEBUTL1.Value)

Worksheets('DONNEES').Range('B5') = CDate(DATEFINL1.Value)

Worksheets('DONNEES').Range('B7') = CDate(DATELIVRL1.Value)
sinon met un exemple pour une meilleur compréhension
bonne fin de Journée

Message édité par: Chti160, à: 16/04/2006 17:54

Re Jean Marie,
Merci beaucoup pour le coup de main !
l'erreur est d'avoir fait 'copier/coller' et d'avoir recopié 3x 'B3' !!!!!
je n'étais pas attentif !!!!
Merci merci merci !!!
et bonnes fetes !
Eric

Ok
reviens quand tu le veux ou quand tu en as besoin ou quand tu en as envie lol