Microsoft 365 filtrages que je ne parviens pas à coder

Phil69970

XLDnaute Barbatruc

• 3 Mars 2022

• #16

Re

Désolé aussi je ne comprends pas tout
Tu as 7 onglets différents ?

Et ils ne s'appellent surement pas ....

Usine à gaz à dit:

4) Je traite ligne par ligne toutes tes conditions = NON, il faut traiter les onglets séparément car chaque onglet est un exemple de filtrage dont j'aurais besoin,

Cliquez pour agrandir...

Ma macro ne va JAMAIS dans les autres onglets mais uniquement dans l'onglet "TOUTES LES LIGNES"

Dis autrement que viens faire alors la feuille "TOUTES LES LIGNES" dans l'histoire.

Si tu veux une macro différentes par feuille
Tu prends ma macro tu déactives les conditions que tu ne veux pas pour garder pour chaque feuille et tu gardes uniquement ce que tu veux garder


@Phil69970

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 3 Mars 2022

• #17

Re-Phil,
J'avais compris ça mais je n'ai pas réussi !
Si tu veux bien me faire l'onglet "J=vide - K = vide"
Je comprendrai certainement mieux et je pourrais faire chaque code pour les autres onglets,
Mais je vais continuer à chercher

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 3 Mars 2022

• #18

je ne suis pas un pro,mais j'avais eu un code qui fesait genre
set dest= onglet1
set dest2=onglet2
une boucle genre
for each cell in range "a6:a&derligne"
if cell offset (0;6)estdate and cell offset (0;7)=empty
then entire row.copy
_dest2
je recherche dans mes archives, là, c'était dans ma mémoire, mais l'idée était là, définir l'onglet de destination en fonction des valeurs d'une même ligne

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 3 Mars 2022

• #19

Re

Lionel

J'ai fait les 2 premiers



A toi de faire les autres

Si tu n'y arrives pas je ferais les autres


@Phil69970

 

Pièces jointes

• Filtre V2.xlsm

  203.4 KB · Affichages: 3

Dernière édition: 3 Mars 2022

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 3 Mars 2022

• #20

Merci Phil
Je vais regarder dès que je peux.
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Mars 2022

• #21

Re-Phil
Tu es un champion ... c'est nickel et j'ai pu faire tous les codes.
Juste 1 petite mise modif :
- comme tu le verras onglet "TOUTES LES LIGNES", les lignes 1 et 3 sont à hauteur = 0.
Il faudrait que les filtres ne "touchent" les lignes qu'à partir de la ligne 6,

Je joins le fichier
Grand merci Phil pour ton travail et ta patience.
Bonne nuit,
lionel,

 

Pièces jointes

• filtre_Phil.xlsm

  149.2 KB · Affichages: 2

Dernière édition: 4 Mars 2022

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 4 Mars 2022

• #22

Re

Une version plus simple de toutes les feuilles

Edit : J'ai pas vu ton message je regarde..... et toi regarde de ton coté

Tu rajoutes

Sub FiltreTotal()
Dim ValCol_J, ValCol_K, ValCol_L
Dim Derlig&

With Worksheets("TOUTES LES LIGNES") 'A adapter au vrai nom de ta feuille
Derlig = .Range("A" & Rows.Count).End(xlUp).Row
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
.Rows.EntireRow.Hidden = False

'****** Ligne à ajouter
.Rows(1).Hidden = True
.Rows(3).Hidden = True
'****** Fin de ligne à ajouter

For i = Derlig To 6 Step -1

Cliquez pour agrandir...

@Phil69970

 

Pièces jointes

• Filtre V3.xlsm

  189.9 KB · Affichages: 6

Dernière édition: 4 Mars 2022

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Mars 2022

• #23

lol, je préfère celui que je viens de te renvoyer au #post 21

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 4 Mars 2022

• #24

Re

Comme tu veux

Par contre je pense qu'il faut intervertir 1 ligne sur toutes les macros pour être sur que la dernière ligne soit bien la ..... dernière ligne

With Worksheets("TOUTES LES LIGNES") 'A adapter au vrai nom de ta feuille

Derlig = .Range("A" & Rows.Count).End(xlUp).Row
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
.Rows.EntireRow.Hidden = False
Derlig = .Range("A" & Rows.Count).End(xlUp).Row

Cliquez pour agrandir...

@Phil69970

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Mars 2022

• #25

Sans doute trop fatigué et prêt à rejoindre mon lit qui m'appelle.
lol, je n'ai rien compris

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 4 Mars 2022

• #26

Re

On en reparle demain si la lumière reste éteinte

Bonne nuit

@Phil69970

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Mars 2022

• #27

Chez moi aussi.
Bonne nuit et encore un Gros MERCI

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 4 Mars 2022

• #28

Ci-joint une possibilité avec une méthode différente : utilisation des filtres d'Excel.

Note : évidemment le filtre 3 fonctionne mais n'affiche sûrement pas ce tu veux vu qu'il n'y a en réalité aucune date en colonne K.

 

Pièces jointes

• Test_For.xlsm

  55.8 KB · Affichages: 5

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Mars 2022

• #29

Bonjour Marcel de nuit,
Merci pour ta solution.
Je regarde dès que j'ai un moment et je te réponds.
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Mars 2022

• #30

Re-Marcel
J'aime bien aussi ta solution.

J'ai trouvé comment fonctionne ta liste mais je ne vois pas du tout comment tu la créé ???
Tu veux me dire ?
lionel

 

Vote positif 0 Vote négatif