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

Microsoft 365 filtrages que je ne parviens pas à coder

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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

J'ai des filtrages à mettre en place et voilà une semaine que je tourne en rond sans parvenir à réussir les codes.
J'ai tenté en boucle mais je n'y arrive pas 😡

Dans le fichier joint, j'ai créé les onglets pour montrer mes besoins selon les conditions :
1 - TOUTES LES LIGNES à filtrer selon les critères dans les onglets qui suivent,
Résultats attendus
2 - J=date - K = vide (si la col J contient des dates et la col K est vide),
3 - J=vide - K = vide (si les col J et K sont vides),
4 - J=date - K = date (si les col J et K contiennent des dates),
5 - J K L= vide (si les col J K L sont vides),
6 - si la col J contient "NPR",
7 - si la col J contient "RdV Fait",
8 - si la col J contient "RdV Fait Facturé",

J'ai les neurones en forme de chou fleur lol,
Pourriez-vous m'aider ?
Fichier test joint,

Je vous remercie par avance.
Je continue mes tests,
Amicalement,
lionel,
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re à toutes et à tous 🙂
Je "bat ma coulpe" lol

Il est vrai que je suis souvent compliqué, pas toujours clair et que je fais des demandes "fantaisistes" pour certains et trop souvent je titille vos p'tits nerffffsss (si, si, je le sens lol) 😃😄😁

Mais avouez que je maintiens vos neurones en "grosse" activité lol

Et souvent des solutions comme celles de ce fil doivent être utiles à beaucoup d'autres d'où :
"J'suis nul .. mais je fais avancer mes alter-égo !"

Merci pour tout ce que vous faites, votre patience et le temps que vous passez à me supporter
Très reconnaissant,
lionel 🙂
 
Vote positif 0 Vote négatif
Bonjour Phill, Bonjour Marcel, le Forum 🙂

Vraiment MERCI à vous deux pour vos codes qui fonctionnement parfaitement 🙂
Je suis actuellement à l'étude d'intégration de vos codes dans mes fichiers de travail.
Vos 2 solutions vont m'être très utiles pour 2 utilisations différentes.

@ Marcel32 ... En ce qui concerne ton code :
J'ai besoin d'ajouter un filtrage qui concerne une info en col Z
Mais ça beug lol
J'ai pourtant l'impression d'avoir modifié et ajouté ce qu'il faut mais certainement que j'ai zappé un truc 😡

Bon sang ... j'ai zappé koi ???
Veux-tu m'aider encore ?
Je joins le fichier
Merci Marcel 🙂
lionel,
 

Pièces jointes

Vote positif 0 Vote négatif
Non, je ne veux pas dire que ça devrait fonctionner. J'explique à quoi servent ces deux choses.
Et j'ajoute que tu as modifié ces deux choses correctement.

Je ne peux pas tester pour l'instant.
Mais si tu as aussi modifié le reste correctement, ça devrait marcher.
 
Vote positif 0 Vote négatif
Voici ce que j'ai fait :
- le code modifié
VB: 
Sub Activer_Filtrage()
    Set MaZone = ActiveSheet.Range("A5:M" & Cells(Rows.Count, 1).End(xlUp).Row)
    Application.ScreenUpdating = False

    For MaCol = 1 To 13
        MaZone.AutoFilter Field:=MaCol, Visibledropdown:=False
    Next MaCol

    Select Case Sheets("Feuil1").Range("Q5").Value
    Case 2  ' Rappels
        MaZone.AutoFilter Field:=10, Criteria1:=">=1", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="="
    Case 3  ' Répondeurs
        MaZone.AutoFilter Field:=10, Criteria1:="=", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="="
        MaZone.AutoFilter Field:=12, Criteria1:="<>"
    Case 4  'RdVs annulés
        MaZone.AutoFilter Field:=10, Criteria1:=">=1", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="<>"
    Case 5  'NON traités
        MaZone.AutoFilter Field:=10, Criteria1:="=", Operator:=xlAnd
        MaZone.AutoFilter Field:=11, Criteria1:="="
        MaZone.AutoFilter Field:=12, Criteria1:="="
    Case 6  'NPR
        MaZone.AutoFilter Field:=10, Criteria1:="NPR"
    Case 7  'RdV Fait
        MaZone.AutoFilter Field:=10, Criteria1:="RdV Fait"
    Case 8  ' RdV Facturé
        MaZone.AutoFilter Field:=10, Criteria1:="RdV Fait Facturé"
'    Case 9  ' n/c
'        MaZone.AutoFilter Field:=26, Criteria1:="n/c"
    End Select

    [a2].Select
    Application.ScreenUpdating = True

End Sub
le format de contrôle

En feuil1


Je ne vois pas ce que j'aurais pu zapper 😡
 
Vote positif 0 Vote négatif
Pourtant, j'ai bien modifié :
ActiveSheet.Range("A5:M" en ActiveSheet.Range("A5:Z"
et
For MaCol = 1 To 13 en For MaCol = 1 To 26
------------------------------------------------------------------------------------------
Sub Activer_Filtrage()
Set MaZone = ActiveSheet.Range("A5:Z" & Cells(Rows.Count, 1).End(xlUp).Row)
Application.ScreenUpdating = False

For MaCol = 1 To 26
MaZone.AutoFilter Field:=MaCol, Visibledropdown:=False 'beug ICI
Next MaCol

Bon sang de Bon sang et B....l 🙂
 
Vote positif 0 Vote négatif
Il ne me manque pas de case : j'ai bien ajouté la nouvelle case

OUI les cellules N5 à Z5 sont vides.
Je viens de tester en mettant des "1" dans toutes les cellules.
Mais j'ai le même beug
🙂
 
Vote positif 0 Vote négatif
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

  • Résolu(e)
XL 2021 affectation et classement de mes appels selon contenu des cellules en colonnes J ou L ou M
2 3
Réponses
30
Affichages
2 K
Usine à gaz
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
472
desto
D
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
644
Usine à gaz
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
  • Résolu(e)
XL 2019 Ne pas utiliser les MFC
Réponses
5
Affichages
589
Usine à gaz
V
  • Question Question
XL 2016 Montant à calculer en fonction d'une date et création d'un fichier avec quelques colonnes du fichier initial
Réponses
1
Affichages
434
sylvanu
  • Résolu(e)
Microsoft 365 Formule que je ne parviens pas à adapter
Réponses
2
Affichages
507
Usine à gaz
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
D
  • Question Question
Valeur ComboBox imbriquée qui ne s'affiche pas du UserForm au tableau
Réponses
10
Affichages
1 K
DelfD
D
  • Résolu(e)
Microsoft 365 Macro modification que je ne sais pas faire
5 6 7
Réponses
98
Affichages
7 K
TooFatBoy
  • Résolu(e)
Microsoft 365 if condition que je ne parviens pas à coder
Réponses
11
Affichages
1 K
Usine à gaz
K
  • Question Question
Microsoft 365 Création d'un journal d'écriture à partir d'un tableau des ventes
2
Réponses
15
Affichages
2 K
CARTER92
C
S
  • Résolu(e)
Autres Pourquoi les coches dans le filtre ne s'affiche pas malgré code VBA semble marcher (uniquement filtre personnalisé dans table base de données)
Réponses
6
Affichages
1 K
Scoub
S
  • Question Question
XL 2016 Remplir une BDD à partir des feuilles Excel du meme classeur
Réponses
7
Affichages
1 K
sousou
C
  • Question Question
Microsoft 365 De Excel 2006 à EXCEL 365, ma macro ne fonctionne plus, que dois-je faire ?
2
Réponses
15
Affichages
2 K
Katido
K
T
  • Question Question
XL 2019 Conditions multiples à partir de "textes + [quantités]" dans une cellule
Réponses
0
Affichages
1 K
titoun007
T
B
  • Résolu(e)
XL 2019 format conditionnel selon texte puis effacer toutes les lettres de la cellule
Réponses
3
Affichages
1 K
Hasco
L
  • Résolu(e)
XL 2016 RechercheV sur plusieurs valeurs identiques
Réponses
7
Affichages
4 K
zebanx
  • Résolu(e)
Microsoft 365 filtrages temps exécution très long
2
Réponses
20
Affichages
2 K
Usine à gaz
A
  • Question Question
XL 2016 Bouton "mettre à jour" depuis classeur externe
Réponses
10
Affichages
2 K
arian
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…