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

Resulat filtres plusieurs feuilles dans une seule

  • Initiateur de la discussion Initiateur de la discussion hamster58
  • Date de début Date de début

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 !

H

hamster58

Guest
Voici mon souci. J'ai un classeur avec plusieurs feuilles, chacune contenant mes liste de MP3 avec Interprète, Album, N° CD.
A partir d'un filtre elaboré et d'une creation de macro, je veux affiché dans une feuille de résultat, ce qui correspond a mon critére de recherche .
J'ai trouvé comment enregistrer la macro et la modifier pour effectuer la recherche sur toutes les feuilles.
Mon soucis est dans l'affichage des resultat. A chaque fois que la requête trouve une occurence, elle efface celle de la feuille précédente.
EVIDEMMENT ce que je veux c'est que le resultat de chaque feuille s'affichent bout a bout .
Peut etre une sorte de compteur, mais je n'y connait rien en VBA
Merci d'avance
 
Re : Resulat filtres plusieurs feuilles dans une seule

Bonsoir,

J'ai trouvé comment enregistrer la macro et la modifier pour effectuer la recherche sur toutes les feuilles.
Mon soucis est dans l'affichage des resultat.

Alors on va faire avec ce que vous avez.

Avant de coller la liste dans la feuillle Résultat, vous avez sélection d'une cellule, par exemple A1 avec :

Code:
ActiveSheet.Range("A1").Select

Mais en fait il faut sélectionner la 1ère cellule vide, donc écrivez à la place :

Code:
ActiveSheet.Range("A65536").End(xlUp).Offset(1).Select

A+
 
Re : Resulat filtres plusieurs feuilles dans une seule

Bonsoir,
Bienvenue sur le site Excel Download (je me répète ce soir)
Un bon dessin vaut mieux qu'un grand discours...Donne nous un Un fichier exemple.

Merci A+ François
 
Re : Resulat filtres plusieurs feuilles dans une seule

Voici ce que donne la macro pour le moment
Sub recherche()

Range("RF01").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Criteria"), CopyToRange:=Range("resultat"), Unique:=False

Range("RF02").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Criteria"), CopyToRange:=Range("resultat"), Unique:=False

Range("RF03").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Criteria"), CopyToRange:=Range("resultat"), Unique:=False

Range("RF04").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Criteria"), CopyToRange:=Range("resultat"), Unique:=False

Range("RF05").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Criteria"), CopyToRange:=Range("resultat"), Unique:=False

Range("RF06").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Criteria"), CopyToRange:=Range("resultat"), Unique:=False

End Sub

RFxx = plages de données xx= N° de la feuille
Resultat = plage d'affichage de resultat a savoir a10 a d10 sur une autre feuille
[/SIZE]
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…