Recherche dans un tableau Résolu

Question

Bonjour,

existe-t-il une fonction sous VBA pour faire une recherche dans un tableau, en fonction de deux entrées.
J'ai par exemple un tableau avec, en colonne, de A1 à A12, Janvier Fevrier... Decembre ; et en ligne, de B1 à AE1, les chiffres de 1 à 30. Le tableau est rempli de valuers diverses. 
Avec ma fonction, il faudrait qu'apres avoir choisi dans deux listes déroulantes un mois et une date, la valeur correspondante soit affichée. 
Y a t-il une fonction pouvant répondre à cette attente, et comment la programmer?

Merci d'avance pour vos réponses !

dct33 · Answer

Bonjour,
avec deux combos et un label dans un userform

Janvier sur ma page est ligne 2 colonne 1
le 1 est en ligne 1 colonne 2        2 Ligne 1 colonne 3   etc



Private Sub ComboBox1_Change()
Choix
End Sub



Private Sub ComboBox2_Change()
Choix
End Sub

Private Sub UserForm_Initialize()
For X = 2 To 13
ComboBox1.AddItem (Sheets(1).Cells(X, 1))
Next X
ComboBox1.Text = ComboBox1.List(0)

For X = 1 To 31
ComboBox2.AddItem (X)
Next X
ComboBox2.Text = ComboBox2.List(0)
End Sub
Sub Choix()
Label1.Caption = Sheets(1).Cells(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 2)
End Sub

RussellD · Answer

Bonjour et merci de ta réponse. 

J'ai essayé ton code, mais j'ai un problème  de type incompatibilité sur la derniere ligne Label1.Caption = Sheets(1).Cells(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 2) 
J'ai essayé de remplacer le Label par une TextBox et de mettre des .Value des 2 côtés, cela ne fonctionne pas... 
Est-ce que cela marchait chez toi? 

Amicalement

dct33 · Answer

Bonjour,
le fait de remplacer le label par un TextBox ne change rien
Il faut juste .Text au lieu de .Caption

J'ai vérifié tout fonctionne bien. 
J'ai une vieille version d'excel 2000 mais je ne vois pas pourquoi cela ne fonctionnerait pas sur une version plus récente. 
Question,les combos se chargent-ils ?
Que dit le débug ?

amicalement

RussellD · Answer

Bonjour,

je n'ai plus de bug, il y avait une erreur de ma part je crois.
Mais par contre les combos box ne se chargent pas... J'ai exactement suivi ton code, fais le même tableau que toi, et bien mis le nom de la feuille dans lequel se trouve le tableau dans Sheets().
Ton code est censé charger les combobox avec les données si j'ai bien compris? 

Amicalement

Recherche dans un tableau

4 réponses

Newsletters