XL 2019 Erreur sur filtres avec Tableaux VBA

[bambi]

Bonjour à tous 🙂

Il y a plus d'un an, j'avais sollicité votre aide pour créer une page de filtres
Il s'agissait de filtrer un tableau présent dans une feuille (Carnet) et de reporter les données filtrées dans une autre (Filtres)
Le tableau contient des formules, des dates, des heures, des données diverses
@job75 avait parfaitement résolu ma demande à l'aide de Tableaux VBA >> ici

Cette année, sur ce même fichier, je dois filtrer depuis la ligne 53 de la feuille Carnet au lieu de la ligne 23
Je pensais avoir fait les ajustements nécessaires dans le VBA
Mais j'ai une erreur d'exécution 5 sur les deux filtres JOUR et MOIS de la feuille FILTRES
Et le débogage surligne le code .Resize(n) = Application.Transpose(b)

Tous les autres filtres fonctionnent
Précision : Le filtrage se fait depuis la feuille Filtres avec des listes dans les cellules B24 à J24

Pourriez-vous m'aider à résoudre ce problème ?

Merci d'avance 😉

 

[job75]

Bonsoir bambi,

Vous avez modifié les formats textes des jours et des mois donc dans la macro remplacez :

X = Application.Proper(Format(99 + i, "dddd")) '----nom propre

par :

X = Application.Proper(Left(Format(99 + i, "ddd"), 3)) '----nom propre

et remplacez :

X = Application.Proper(Format("1/" & i, "mmmm")) '----nom propre

par :

X = Application.Proper(Format("1/" & i, "mmm")) '----nom propre

Nota : vous avez ajouté des Application.ScreenUpdating = False/True, ils sont inutiles.

A+

 

[job75]

Remplacez aussi :

.Resize(n).Sort .Cells, xlAscending, Header:=xlNo

par :

.Resize(n, 2).Sort .Cells, xlAscending, Header:=xlNo 'au moins 2 cellules

C'est nécessaire pour le filtrage de TRIM.

 

[bambi]

Merci beaucoup pour toutes ces réponses @job75
Tout est rentré dans l'ordre et fonctionne parfaitement
Très bonne journée à vous 🙂

 

[job75]

Bonjour bambi, le forum,

Tout est rentré dans l'ordre et fonctionne parfaitement

Sauf que chez moi sur Excel 2019 Excel plante une fois sur deux et je ne sais pas pourquoi.

Dans le fichier joint j'ai résolu le problème en ajoutant les Application.EnableEvents = False/True.

Bonne journée.

 

[job75]

Je suis arrivé à savoir pourquoi Excel plantait.

C'est à cause dut tri en colonne AM :

.Resize(n, 2).Sort .Cells, xlAscending, Header:=xlNo 'au moins 2 cellules

qui curieusement relançait la macro SelectionChange qui ainsi bouclait sans fin.

Mais très curieusement cela se produisait seulement quand on sélectionnait B29 D29 F29 G29.

Et pas quand on sélectionnait C29 E29 H29 I29 J29...

 

[bambi]

Merci @job75
Comme toujours, une réponse très complète et opérationnelle
De mon côté cela fonctionnait car j'ai introduit directement tes changements dans mon fichier initial en l'adaptant.
Mais encore merci pour tous ces détails et explications qui me permettent de mieux appréhender la mécanique du code VBA

 

[job75]

Ah mais j'ai finalement tout élucidé.

Le tri en colonne AM faisait planter Excel parce que la ligne 2 était masquée.

Dans ce fichier (2) elle est affichée, plus besoin des Application.EnableEvents.

Tout ça m'a permis de découvrir un problème que je n'avais jamais rencontré, merci bambi.

 

[bambi]

Voilà pourquoi cela a fonctionné sans souci dans mon fichier origine. Cette ligne n'y est pas masquée.
D'ailleurs elle n'était pas non plus masquée dans le fichier exemple que j'ai posté en tout début de thread.
Excel a ces propres mystères. 🙂
Encore bravo @job75 pour cette issue que je valide comme solution

 

[job75]

D'ailleurs elle n'était pas non plus masquée dans le fichier exemple que j'ai posté en tout début de thread.

Très juste et sur le fichier du post #1 avec la macro modifiée la ligne 2 se masque toute seule quand on sélectionne les cellules D29 E29 F29 G29, je ne vois vraiment pas pourquoi !!!

 

[job75]

Bon eh bien la ligne 2 ne se masque pas si l'on utilise pour le tri de la colonne AM :

If n > 1 Then .Resize(n).Sort .Cells, xlAscending, Header:=xlNo 'au moins 2 cellules

Fichier (3).

 

[bambi]

Je ne suis pas sûre de tout comprendre mais je vais regarder ça de plus près, et essayer 😉

 

[job75]

Rassurez-vous pour moi aussi cette histoire de tri qui masque une ligne reste mystérieuse.

 

[job75]

Bonjour bambi, le forum,

Ajouter la colonne N° SEM n'est pas bien difficile, voyez ce fichier (4).

A+

 

[bambi]

@job75

Je croyais que mon message n'était pas visible, j'en ai donc créé un nouveau
Mille merci pour cette réponse
Je vais de ce pas supprimer l'autre