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

jecherche

XLDnaute Occasionnel

• 30 Juillet 2016

• #2

Bonjour,

Code:

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

 

Dernière édition: 30 Juillet 2016

Vote positif 0 Vote négatif

B

bidochon34800

XLDnaute Junior

• 30 Juillet 2016

• #3

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 !

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 30 Juillet 2016

• #4

Bonjour,

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


Jecherche

 

Vote positif 0 Vote négatif

B

bidochon34800

XLDnaute Junior

• 30 Juillet 2016

• #5

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

 

Vote positif 0 Vote négatif

B

bidochon34800

XLDnaute Junior

• 31 Juillet 2016

• #6

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

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 31 Juillet 2016

• #7

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

 

Vote positif 0 Vote négatif

B

bidochon34800

XLDnaute Junior

• 31 Juillet 2016

• #8

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

 

Vote positif 0 Vote négatif