XL 2016 afficher nom dans un filtre

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2021

• #2

Bonjour Rodge,
Un essai en PJ avec :

VB:

=INDEX(B:B;MIN(SI(SOUS.TOTAL(3;DECALER(B3;LIGNE(A1:A200);));LIGNE(A4:B200))))

A valider par Ctrl+Maj+Entrée car formule matricielle.
Le défaut est que si tout est sélectionné, il donne la première valeur.

 

Pièces jointes

• afficher nom filtré (1).xlsx

  8.7 KB · Affichages: 6

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 4 Février 2021

• #3

la formule marche bien super merci !!
par contre, si l'onglet où ce filtre existe (disons onglet page 1) est copié-collé sur d'autres onglets du même classeur (disons onglets pages 2 3 4) avec une macro qui filtre toute les pages en même temps en pair ou impair, la formule ne marche plus et "plante" la macro..
Peut être n'y a t il pas de solution dans ce 2ème cas ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Février 2021

• #4

Bonjour Rodge,
Donnez un fichier test, car je ne vois pas comment cela est possible au premier abord.
Comment copiez/collez vous la formule par macro ?

 

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 5 Février 2021

• #5

Bonjour Sylvanu
Sur le fichier 1, ta formule marche si tu n'actives pas la macro
Si tu l'actives (fichier 2).. tout plante !!!

 

Pièces jointes

• 1-TEST avant activ macro.xlsm

  90.1 KB · Affichages: 3
• 2-TEST aprés activ macro.xlsm

  90.1 KB · Affichages: 6

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 5 Février 2021

• #6

rodge5895 à dit:

Bonjour Sylvanu
Sur le fichier 1, ta formule marche si tu n'actives pas la macro
Si tu l'actives (fichier 2).. tout plante !!!

Cliquez pour agrandir...

j'ai mis mon nom d'utilisateur rodge5895 en mot de passe

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2021

• #7

Bonjour,
La ligne en erreur est celle ci, dans Worksheet_Calculate ligne 16 :

VB:

Feuil.Range("A6:AG" & Feuil.[B65536].End(xlUp).Row).AutoFilter 2, Crit

Elle est incomplète, elle devrait être du type :

Code:

Feuil.Range("A6:AG" & Feuil.[B65536].End(xlUp).Row).AutoFilter 2, Criteria1:="impair"

Rien à voir avec les formules.

 

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 5 Février 2021

• #8

ok vu... merci !

 

Vote positif 0 Vote négatif