Combobox excel

[Eric]

bonjour à tous !

j'ai un petit problème avec un combobox.
Mon combobox est inséré dans un userForm.
Il fait référence à une liste de date insérées dans une feuille :
For Row = 1 To 2000
UserForm1.Combobox1.AddItem Format(CDate(Sheets('DATES').Cells(Row, 1)), 'dd/mm/yyyy')
Next Row

je choisis ma date dans ce combobox et quand je clique sur le bouton Ok dans mon UserForm,
je recopie la date dans une cellule : Worksheets('DONNEES').Range('B3') = Combobox1

mon problème : je retrouve ^15/04/2006 (exemple) dans la cellule B3 au lieu de 15/04/2006 !!!
pourquoi y a t il le '^' et comment l'enelver ?????
je suis sous excel97 en anglais !

merci de votre aide !!!!

et bonnes fetes !

Eric

 

[ChTi160]

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

 

[Eric]

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

 

[ChTi160]

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

 

[Eric]

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

 

[ChTi160]

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