recherche mot clé dans un classeur

  • Initiateur de la discussion Initiateur de la discussion philest
  • 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 !

P

philest

Guest
Salut à tous

je galère sur ma macro. j'ai besoin d'aide.
un raccourci clavier (ctrl + i)lance ma macro
ci-dessous qui fait la recherche du mot selectionné de la cellule active dans la feuille toute entière. lorsqu'il trouve plusieurs occurences identiques, il selectionne les lignes entières et copies toutes lignes dans la feuille Conso. Mon problème c'est que je voudrais que cette recherche s'effectue sur toutes les feuilles de mon classeur. et là je cale...

merci pour votre aide, c'est super urgent

philest
(nouveau dans ce forum génial) [file name=Recherche_20060609163118.zip size=40881]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recherche_20060609163118.zip[/file]
 

Pièces jointes

Bonsoir Philest et le forum

Je pense avoir compris ta demande
Sheets('a').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('b').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('x').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('y').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
Sheets('z').Select
Selection.Copy
Sheets('Conso').Select
Columns('A:A').Select
Selection.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveSheet.Paste
End Sub

Marc
 
- 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

Retour