Filtrer avec un Combobox

Version imprimable

29/08/2019, 12h46
ASCAL

1 pièce(s) jointe(s)

Filtrer avec un Combobox

Bonjour ,
Je butte pour filtrer une liste avec un 4 ème Combobox.
De plus sur le 2 ème Combobox je souhaiterais afficher le mois de la date du jour lors de l'initialisation de l'Userform.

Je m'en remet à vos compétences et vous en remercie par avance.

Bonjour,

Pour la 1ère question: pas compris, manque de précisions.
Pour la 2ème question:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
    With Sheets("Déroulant")
    For Each cell In .Range("A1:A" & .Range("A20").End(xlUp).Row)
        Me.ComboMois.AddItem (cell)
    Next
    Me.ComboMois.ListIndex = Month(Date) - 1
    For Each cell In .Range("B1:B" & .Range("B10").End(xlUp).Row)
        Me.ComboMoisSemis.AddItem (cell)
    Next
    For Each cell In .Range("C1:C" & .Range("C10").End(xlUp).Row)
        ComboFamilleQuePlanter.AddItem (cell)
    Next
    For Each cell In .Range("E1:E" & .Range("E20").End(xlUp).Row)
        Me.ComboRotation.AddItem (cell)
    Next
    End With
End Sub

Cdlt

30/08/2019, 09h46
ASCAL

Bonjour , merci pour l'affichage du mois en cours.

Pour la première question , il s'agirait de filtrer les cultures en fonction de leur type (Grain , Fleur , Fruit , Feuille ,Bulbe , Racine ) à partir de la sélection du ComboRotation

Si j'ai bien compris, le code lié à la combobox "Rotation"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub ComboRotation_Change()
    Dim ColonneTAtester As Byte
    Dim LigneATester As Integer
    Dim Variable As String
    Dim NbLigneUtilisée As Integer
    Dim Types As String
 
    ListLégumes.Clear
    Select Case ComboMoisSemis.ListIndex
        Case 0
            Variable = "SI"
        Case 1
            Variable = "SER"
        Case 2
            Variable = "FR"
        Case Else
            Exit Sub
    End Select
 
    Types = ComboRotation.Text
    With Sheets("BaseJM")
        ColonneTAtester = Me.ComboMois.ListIndex + 4
        For LigneATester = 3 To .Range("C65536").End(xlUp).Row
            If .Cells(LigneATester, ColonneTAtester) = Variable And .Cells(LigneATester, 2) = Me.ComboFamilleQuePlanter And .Cells(LigneATester, 22) = Types Then
                Me.ListLégumes.AddItem
                Me.ListLégumes.List(NbLigneUtilisée, 0) = .Range("C" & LigneATester)
                NbLigneUtilisée = NbLigneUtilisée + 1
            End If
            Next
    End With
End Sub

Dans la macro ComboMoisSemis_Change, j'ai remplacé

Code:

ColonneTAtester = Me.ComboMois.ListIndex + 3

par

Code:

ColonneTAtester = Me.ComboMois.ListIndex + 4

(le N° de l'index commence à 0, donc pour obtenir janvier il faut faire un décalage de 4)

le fichier(avec la modif ci-dessus incluse)
Pièce jointe 500364

Cdlt

30/08/2019, 18h30
ASCAL

Merci , Arturo83.

Cela fonctionne bien , beau travail.:merci::merci::merci: