Discussion :

[bob254]

Bonjour,
je débute en VBA, voila mon problème:
J'ai une ComboBox rempli avec des mois, comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox2_Change()
 
    ComboBox2.AddItem "01 - January"
    ComboBox2.AddItem "02 - February"
    ComboBox2.AddItem "03 - March"
    ComboBox2.AddItem "04 - April"
    ComboBox2.AddItem "05 - May"
    ComboBox2.AddItem "06 - June"
    ComboBox2.AddItem "07 - July"
    ComboBox2.AddItem "08 - August"
    ComboBox2.AddItem "09 - September"
    ComboBox2.AddItem "10 - October"
    ComboBox2.AddItem "11 - November"
    ComboBox2.AddItem "12 - December"
 
End Sub

Puis j'ai ma fonction qui permet de garder dans un tableau uniquement les lignes qui m'intéressent en fonction du mois, ici le mois de mars (3):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Select_Month()
 
    Dim Mois As Integer
    Dim i As Long
 
    Mois = 3
 
    For i = Range("b" & Rows.Count).End(xlUp).Row To 2 Step -1
 
    If Range("b" & i) <> Mois Then Rows(i & ":" & i).Delete
 
    Next i
End Sub

J'aimerais pouvoir sélectionner le mois dans ma ComboBox et que celui-ci soit renvoyé dans ma fonction "Select_Month()" pour qu'il la passe en paramètre.

Si quelqu'un peut m'expliquer, merci d'avance.
Bob

[rvtoulon]

Slt,
si c'est la valeur que tu sélectionnes dans ta combo que tu souhaites utiliser alors tu dois mettre:

Code :

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

1
2
Dim Mois as string
Mois = ComboBox2.Value

Maintenant si c'est le numéro du mois donc 3 pour mars par exemple, alors met ceci:

Code :

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

1
2
Dim Mois as integer
Mois = ComboBox2.ListIndex + 1

@+

n'oublie pas si cela te convient