Discussion :

[Alasgard]

Bonjour à tous, je viens solliciter votre aide car vous m'avez déjà apporté de nombreux conseils concernant la résolution de certains de mes problèmes au sujet du VBA

Voici mon problème:

Je dispose de 3 combobox en cascade:

- Une première permettant de sélectionner une année
- Une seconde pour sélectionner un des 4 trimestres associés à l'année sélectionnée
- Une troisième pour sélectionner un mois parmi les 3 du trimestre

Mes données sont disposées de la façon suivante (en vert il s'agit du numéro de ligne) :

12012	1	Janvier
22012	1	Février
32012	1	Mars
42013	1	Janvier
52014	1	Janvier
62013	2	Avril
72013	2	Mai
82013	2	Juin
92015	1	Janvier
102015	1	Mars
112016	3	Aout
122016	4	Novembre
132016	4	Décembre

Par exemple on choisit: 2015 - 1 - Mars
Ce que je souhaiterai obtenir après la sélection de l'année, du trimestre et du mois, c'est le numéro de la ligne associée à ce choix : Ici la ligne 10
Mais je ne vois pas trop comment faire.

Le but de ceci est de choisir un intervalle de données à l'aide d'un formulaire, ici ce que je vous présente concerne la sélection de la date de début.

Merci par avance pour votre aide

[patricktoulon]

Bonjour
il y a l'aide (F1) dans le VBE
regarde du cote de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
nomdecombobox.listindex 'index de l'element element selection
nomdecombobox .listcount' nombre de ligne total de la combobox

F1!!!! c'est pas pour extraterrestres

[Alasgard]

Oui, malgré mon pseudo rappelant une race dans Stargate, tu peux te rassurer je n'en suis pas un !

Mais ListCount et ListIndex donnent le numéro de la ligne une fois que nous sommes dans le combobox non?

Ce que je veux dire c'est que si j'ai 5 éléments dans ma combobox, et que je sélectionné le dernier .. ListIndex me renverra la valeur 5 (ou 6 je ne sais plus)


Je l'ai certainement mal exprime précédemment
Mais ce que j'aimerai .. C'est retrouver la ligne de ma valeur sur ma feuille excel et non dans le combobox !

J'espère avoir été plus clair

[patricktoulon]

Bonjour

rien de plus facile

la fonction FIND fera très bien l'affaire dans le click de la combobox

exemple le msgbox t'affiche le numéro de la ligne si l'item existe sur la feuille 1 dans la plage A1:A10 a toi d'adapter le sheets et la plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Click()
with sheets(1)
Set lig = Range("A1:A10").Find(ComboBox1, LookIn:=xlValues)
If Not lig Is Nothing Then MsgBox lig.Row
end with 
End Sub