XL 2013 pb récupérerer valeur combobox dans textbox sur userform

[bidochon34800]

bonjour à toutes
j'ai à nouveau besoin de votre aitre pour peaufiner un ficher.
Je joins un résumé de mon dossier que j'adapterai par la suite.
Je voudrais à l'affichage de mon userform, dès que j'entre une date dans la combobox, que la valeur s'affiche automatiquement dans la textbox à droite (la verte)

 

[jecherche]

Bonjour,

Private Sub CB_dates_de_fin_Change()
Me.CB_dates_de_fin.Value = Format(CB_dates_de_fin.Value, "dd/mm/yyyy")
  Set c = Worksheets(1).Range("C:C").Find(What:=DateValue(Me.CB_dates_de_fin), LookIn:=xlFormulas)
  If Not c Is Nothing Then
  firstAddress = c.Address
  Me.TextBox1 = Worksheets(1).Range(firstAddress).Offset(, 2).Value
  End If
End Sub

Jecherche

 

[bidochon34800]

Merci beaucoup de t'être penché sur mon problème mais je me suis mal expliqué. Ce que je souhaite, c'est de récupérer dans la textbox le nom qui figure sur la feuille1 en face de la date !

 

[jecherche]

Bonjour,

À évaluer ...
J'ai modifié le code donné précédemment.


Jecherche

 

[bidochon34800]

bonsoir,
et merci pour tout. J'ai réussi à adapter le code à mon fichier complet.
Tout marche nickel. Merci encore.
bon week-end

 

[bidochon34800]

une autre petite question, lorsque j'entre les données sur l'userform, celles-ci sont s'ajouter sur la feuille "mois".
le problème c'est que lorsque j'entre la date du "6/8" celle-ci vient s'inscrire en "8/6". Je pense qu'il fait ajouter
un format quelque part mais où ?
Pouvez-vous m'aider ?
Merci

 

[jecherche]

Bonjour,

Il faut forcer un format ... Exemple : range("A2") = Format(CB_dates_de_fin.Value, "dd/mm/yyyy") ... le format est à adapter selon le besoin.


Jecherche

 

[bidochon34800]

Impec, c'est exactement ce que je voulais.
merci pour tout.