XL 2016 [RESOLU] Textbox selon date dans Combobox

[Mulder]

Bonjour à tous,

Je cale sur l'alimentation d'un USF.
Sur un onglet, j'ai toutes les dates de l'année avec différentes valeurs en face.
Je souhaite, à l'aide d'un USF, sélectionner une date à l'aide d'un combobox (date présente dans la liste).
Au combobox.change, les textbox doivent s'alimenter avec les valeurs en face des dates.

Sauf que ça plante au comboboxchange.
Je pense que le problème vient du fait que je fais un vlookup à partir d'une valeur type date contenue dans le combobox et le vba ne l'interprète pas correctement.
Qu'en pensez-vous ?

Fichier ci-joint...
D'avance merci.

 

[Compte Supprimé 979]

Bonjour Mulder

Tout ce que je peux dire, c'est que la vérité est ailleurs

Selon le fichier et le tableau qui commence en Q9, première valeur en S9 voici le code de la combo

Private Sub ComboBox1_Change()
  Dim Ind As Long
  ' Récupérer l'index sélectionné
  Ind = Me.ComboBox1.ListIndex
  ' L'index de la combo commenc à 0
  ' Le tableau commence à la ligne 9
  Me.TextBox2 = Range("S" & 9 + Ind).Value
End Sub

A+

 

[Jacky67]

Bonjour à tous,

Je cale sur l'alimentation d'un USF.
Sur un onglet, j'ai toutes les dates de l'année avec différentes valeurs en face.
Je souhaite, à l'aide d'un USF, sélectionner une date à l'aide d'un combobox (date présente dans la liste).
Au combobox.change, les textbox doivent s'alimenter avec les valeurs en face des dates.

Sauf que ça plante au comboboxchange.
Je pense que le problème vient du fait que je fais un vlookup à partir d'une valeur type date contenue dans le combobox et le vba ne l'interprète pas correctement.
Qu'en pensez-vous ?

Fichier ci-joint...
D'avance merci.

Bonjour à tous
La colonne R étant masquée
Le tableau complet est [Freq_stats] et non pas ("Freq_dates")
Essaye comme ceci

Private Sub ComboBox1_Change()
   ' Me.TextBox2 = Application.WorksheetFunction.VLookup(CDate(Me.ComboBox1), Sheets(2).range("Freq_dates"), 2, False)
    Me.TextBox2 = Application.VLookup(CLng(CDate(ComboBox1)), [Freq_stats], 3, 0)
End Sub

 

[Mulder]

Bonjour Brno, bonjour Jacky,

Bon honte à moi, effectivement, je me suis persuadé que c'était la date qui me posait problème sans me rendre compte que que les caractéristiques de la matrice étaient pas bonnes...
Du coup, effectivement, juste en prenant les bonnes références, ça passe mieux...

Merci !!!