XL 2016 VBA - Restoration filtres sur tableau structuré quand TypeOf Criteria1 Is Object

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #16

Difficile à suivre votre code

Cliquez pour agrandir...

Oui je sais je code d'une manière extrêmement complexe et illisible. C'est pas comme toi.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #17

Je maintiens que RGB est un entier Long.

Cliquez pour agrandir...

Tu peux maintenir tout ce que tu veux. Même que 2 + 2 = 4 (en base 10).
Moi je maintiens que Critéria1 est un Object. Et ça n'avance pas le schimblick de savoir que RGB renvoie un Long, ce que tout le monde sait.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Mars 2022

• #18

Oui TabFiltres(j).Criteria1 est un objet, et plus précisément un Interior. J'ignore pourquoi c'est comme ça mais Il possède alors une propriété Color. Hélas elle n'est pas convenablement initialisée.

 

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #19

@Staple1600,

Moi, j'essaie juste d'aider

Cliquez pour agrandir...

Oui je sais bien
D'ailleurs le code que tu as trouvé montre que le problème est bien réel; c'est une confirmation et c'est déjà ça.
Je me sens moins seul

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #20

@Dranreb,
Comment sais-tu que c'est un Interior ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Mars 2022

• #21

Un espion sur TabFiltres(j).Criteria1 l'indique en colonne Type: Variant/Object/Interior

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #22

Grandiose. Il faudra que je m'intéresse à ces espions.
Et si, je la trouve bien valorisée: .Criteria1.Color = 65535 ce qui est bien la couleur du jaune en l'occurrence.
Je fais un test en changeant l'Objet en Long, on va voir.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #23

Bravo @Dranreb, tu as éclairci le mystère en identifiant l'objet comme étant un Interior !!!
Cette fois ça marche. On peut:
- Sauvegarder les filtres
- Supprimer les filtres
- Restaurer les filtres

J'espère que c'est le seul cas de filtre qui présente un Object en Criteria1.
Edit: Apparemment oui. Voir Post #28.

 

Dernière édition: 9 Mars 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #24

@Dranreb,
Merci encore, j'y ai passé plusieurs heures à essayer des tas de trucs.
Pourrais-tu STP expliquer en 2 mots comment tu mets un espion sur une variable ?

@Staple1600,
Merci aussi de t'être intéressé à ce problème un peu tordu.
Donc on fait plus fort que le code que tu as trouvé

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mars 2022

• #25

Re

Dudu2
Je ne vois pas ce que tu as changé dans ton code entre le premier fichier et le dernier fichier.
(mais effectivement cela fonctionne -> test sur Excel 2013)

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Mars 2022

• #26

Lors d'un débogage je selectionne une expression dans le code, menu Débogage, commande Ajouter un espion… puis OK s'il n'y a rien à corriger.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 8 Mars 2022

• #27

OK merci pour l'explication.

J'ai juste changé ça dans la capture / sauvegarde des filtres:
Ancien:

Code:

With .AutoFilter.Filters(j)
    If TypeOf .Criteria1 Is Object  Then
        Set TabFiltres(j).Criteria1 = .Criteria1
    Else
        TabFiltres(j).Criteria1 = .Criteria1
    End If

Nouveau:

VB:

 With .AutoFilter.Filters(j)
     If TypeOf .Criteria1 Is Object  Then
         TabFiltres(j).Criteria1 = .Criteria1.Color
     Else
         TabFiltres(j).Criteria1 = .Criteria1
     End If

De sorte qu'à la restauration des filtres:

VB:

Case Else
    .Range.AutoFilter Field:=j, Criteria1:=TabFiltres(j).Criteria1, Operator:=TabFiltres(j).Operator

Ne plante plus puisqu'il n'y a plus d'Object impliqué.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Mars 2022

• #28

Bonjour,

Juste un petit complément concernant les filtres sur couleur.

Ils sont de 2 types:
1 - sur la couleur de fond (Operator = xlFilterCellColor)
2 - sur la couleur de caractères (Operator = xlFilterFontColor)

Curieusement, seul le 1er génère un Object Interior pour Criteria1.
Pourquoi un telle particularité ? Seul Excel le sait !
Le 2ème génère un Long pour Criteria1 ce qui semble plus "normal" dans le cas d'une couleur dans les 2 cas définie par la fonction RGB() pour Criteria1.

Illustré dans ce fichier au code cosmétiquement modifié.

 

Pièces jointes

• FiltresTableauStructuré.xlsm

  34.7 KB · Affichages: 2

Dernière édition: 9 Mars 2022

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Mars 2022

• #29

Bonjour.
Je soupçonne un bogue de Microsoft
Toutefois je me demande si ce n'est pas parce que c'était le seul moyen de reproduire aussi ces conneries de ThemeColor et TintAndShade que je n'utilise jamais …

 

Dernière édition: 9 Mars 2022

Vote positif 0 Vote négatif