IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Filtrer avec un Combobox [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Septembre 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Septembre 2011
    Messages : 21
    Par défaut 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.
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Bonjour,

    Pour la 1ère question: pas compris, manque de précisions.
    Pour la 2ème question:
    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
    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

  3. #3
    Membre averti
    Homme Profil pro
    Inscrit en
    Septembre 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Septembre 2011
    Messages : 21
    Par défaut
    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

  4. #4
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    Si j'ai bien compris, le code lié à la combobox "Rotation"
    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
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    ColonneTAtester = Me.ComboMois.ListIndex + 3
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  5. #5
    Membre averti
    Homme Profil pro
    Inscrit en
    Septembre 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Septembre 2011
    Messages : 21
    Par défaut
    Merci , Arturo83.

    Cela fonctionne bien , beau travail.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Débutant] Filtrer une datagrid avec une combobox
    Par Heinzou599 dans le forum Windows Forms
    Réponses: 4
    Dernier message: 07/12/2018, 10h36
  2. Comment filtrer un sous formulaire avec un combobox ?
    Par niamo dans le forum VBA Access
    Réponses: 2
    Dernier message: 21/05/2010, 14h35
  3. filtrer avec 2 combobox
    Par chyanon dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/04/2010, 20h07
  4. [formulaire] filtrer par une combobox
    Par Marie D dans le forum Access
    Réponses: 8
    Dernier message: 19/09/2005, 15h14
  5. [CR 8.5] filtrer avec l'expert selection un champs calculé!!
    Par abdel6908 dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 14/06/2005, 10h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo