XL 2016 [RESOLU] Textbox selon date dans Combobox

Mulder · 23 Décembre 2021

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 · 24 Décembre 2021

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

VB:

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 · 24 Décembre 2021

Mulder à dit:
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

VB:

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 · 24 Décembre 2021

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 !!!

XL 2016 [RESOLU] Textbox selon date dans Combobox

Mulder

XLDnaute Junior

Pièces jointes

Compte Supprimé 979

Guest

Jacky67

XLDnaute Barbatruc

Pièces jointes

Mulder

XLDnaute Junior

Discussions similaires