Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Filtre des donnés Excel suivant des conditions

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tsimbina

XLDnaute Junior
Bonjour,

J'ai besoin d'aide pour faire VBA de filtre de donnée.

Les conditions du filtre son dans la feuille filtre les donnée à filtré sont dans la feuille Mouvement.
Même si, l'un des condition des filtre son rempli on peut valider.

Merci d'avance!
 

Pièces jointes

Solution
T
VB: 
Sub Ellipse_Cliquer()
Dim i As Byte
Dim debut As String, fin As String, mois As String, element As String

With Sheets("Filtre")
    debut = Format(.Range("E9").Value, "\>\=mm/dd/yyyy")
    fin = Format(.Range("G9").Value, "\<\=mm/dd/yyyy")
    mois = .Range("E11").Value
    element = .Range("E13").Value
End With

'valeur null
If debut <> vbNullString Then jour = debut: i = 1
If fin <> vbNullString Then jour = fin: i = 1
If debut <> vbNullString And fin <> vbNullString Then i = 2

With Sheets("Mouvement").ListObjects(1)
    .AutoFilter.ShowAllData

    Select Case i
        Case Is = 1
            .Range.AutoFilter field:=1, Criteria1:=Array(1, jour)
        Case Is = 1
            .Range.AutoFilter field:=3, Operator:=xlAnd...
Trier par date Trier par votes
Bonjour,
On m'a donné un code vba mais le filtre date ne fonctionne pas quelqu'un peut m'aider s'il vous plais?
VB: 
Sub Ellipse1_Cliquer()
Dim i As Byte
Dim debut As String, fin As String, mois As String, element As String

With Sheets("Filtre")
    debut = Format(.Range("E9").Value, "\>\=mm/dd/yyyy")
    fin = Format(.Range("G9").Value, "\<\=mm/dd/yyyy")
    mois = .Range("E11").Value
    element = .Range("E13").Value
End With

If debut <> vbNullString Then jour = debut: i = 1
If fin <> vbNullString Then jour = fin: i = 1
If debut <> vbNullString And fin <> vbNullString Then i = 2

With Sheets("Mouvement").ListObjects(1)
    .AutoFilter.ShowAllData

    Select Case i
        Case Is = 1
            .Range.AutoFilter Field:=1, Criteria1:=Array(1, jour)
        Case Is = 1
            .Range.AutoFilter Field:=1, Operator:=xlAnd, Criteria1:=debut, Criteria2:=fin
    End Select
    If element <> vbNullString Then .Range.AutoFilter Field:=2, Criteria1:=element
    If mois <> vbNullString Then .Range.AutoFilter Field:=9, Criteria1:=mois
End With
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
VB: 
Sub Ellipse_Cliquer()
Dim i As Byte
Dim debut As String, fin As String, mois As String, element As String

With Sheets("Filtre")
    debut = Format(.Range("E9").Value, "\>\=mm/dd/yyyy")
    fin = Format(.Range("G9").Value, "\<\=mm/dd/yyyy")
    mois = .Range("E11").Value
    element = .Range("E13").Value
End With

'valeur null
If debut <> vbNullString Then jour = debut: i = 1
If fin <> vbNullString Then jour = fin: i = 1
If debut <> vbNullString And fin <> vbNullString Then i = 2

With Sheets("Mouvement").ListObjects(1)
    .AutoFilter.ShowAllData

    Select Case i
        Case Is = 1
            .Range.AutoFilter field:=1, Criteria1:=Array(1, jour)
        Case Is = 1
            .Range.AutoFilter field:=3, Operator:=xlAnd, Criteria1:=debut, Criteria2:=fin
    End Select
    'filtre date
    If debut <> vbNullString Then .Range.AutoFilter field:=1, Criteria1:=debut, Operator:=xlAnd, Criteria2:=fin
    'filtre element
    If element <> vbNullString Then .Range.AutoFilter field:=2, Criteria1:=element
    'filtre mois
    If mois <> vbNullString Then .Range.AutoFilter field:=9, Criteria1:=mois
End With
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 VBA activer filtre élaboré suite changement donnée d'une cellule
Réponses
5
Affichages
343
Chounoé
C
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
112
aurejotrail
A
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
360
sousou
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
175
Altfkat
A
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
207
fanch55
E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
283
Phil69970
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
933
dysorthographie
  • Résolu(e)
Microsoft 365 Concaténer colonne d'un tableau des cases visibles uniquement
Réponses
12
Affichages
315
Jean-Eric
  • Question Question
XL 2021 Filtrer un tableau structuré avec protection
2 3
Réponses
31
Affichages
570
Orson83
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
753
Nain porte quoi
N
M
  • Résolu(e)
XL 2016 Filtre automatiquement avec VBA excel et powerpoint
2
Réponses
29
Affichages
2 K
melltel
M
H
  • Question Question
XL 2016 fonction FILTRE sur Excel 2016
Réponses
9
Affichages
1 K
Hynnuh
H
E
  • Résolu(e)
XL 2016 Liste déroulante semi-automatique sur excel 2016
2
Réponses
15
Affichages
996
Phil69970
S
  • Question Question
Microsoft 365 Tableaux Structurées : récupérer des données uniques pour consolider un bilan
Réponses
4
Affichages
247
vgendron
M
  • Question Question
Microsoft 365 Mon TCD ne prend pas en compte le filtre de la table auquel il est lié.
Réponses
3
Affichages
113
chris
  • Résolu(e)
XL 2021 And/Or dans If
Réponses
3
Affichages
328
thunder23
R
  • Résolu(e)
Microsoft 365 Problème avec unique(filtre
2
Réponses
16
Affichages
1 K
raf26
R
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
347
Yogean
Y
B
  • Question Question
XL 2013 Transposition de filtres multiples sur plusieurs feuilles
Réponses
11
Affichages
751
BIROULIG
B
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
618
steph_29120
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…