Resulat filtres plusieurs feuilles dans une seule

[hamster58]

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

 

[job75]

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 :

ActiveSheet.Range("A1").Select

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

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

A+

 

[fanfan38]

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

 

[hamster58]

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]