XL 2016 [RESOLU] Textbox selon date dans Combobox

Mulder

XLDnaute Junior
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.
 

Pièces jointes

  • Classeur1.xlsm
    80.3 KB · Affichages: 5
C

Compte Supprimé 979

Guest
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Mulder.xlsm
    77.9 KB · Affichages: 14
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 894
Messages
2 093 379
Membres
105 712
dernier inscrit
CARLO 82