recherche dans onglets

[sri75]

Bonjour , j'ai des fichers excel qui contiennent un nombre d'onglet aléatoire ( de 1 à 30 onglets environ ).

les onglets ont des noms qui se suivent feuil1, feuil2.....feuil30

je sais que dans un onglet en c1 j'ai le texte QUESTIONNAIRE.

Je voudrais que quand la macro trouve QUESTIONNAIRE dans l'onglet elle imprime l'onglet.

J'ai 200 fichiers dans un répertoire ( les prendre un par un et les ouvrir je sais faire ). D'ou ma recherche d'automatisation.

merci à tous

 

[skoobi]

Re : recherche dans onglets

Re bonjour,

ce message n'est pas le même que celui-ci? 🙄

 

[Robert]

Re : recherche dans onglets

Bonsoir le fil, bonsoir le forum,

Peut-ête une boucle du genre...

Sub Macro1()
Dim sh As Worksheet
For Each sh In Sheets
    If sh.Range("C1").Value = "QUESTIONNAIRE" Then sh.PrintOut Copies:=1, Collate:=True
Next sh
End Sub

 

[sri75]

Re : recherche dans onglets

Merci c'est super !

Cerise sur le gateau, existe il une commande qui ferait la meme chose à partir du moment ou le mot QUESTIONNAIRE est présent dans n'importe quelle cellule de l'onglet ?

Bonne journée.

 

[mromain]

Re : recherche dans onglets

bonjour sri75, Robert, Skoobi,

voici une solution :

Sub Macro1()
Dim sh As Worksheet, laCell As Range
For Each sh In Sheets
    Set laCell = sh.Cells.Find(what:="QUESTIONNAIRE", lookat:=xlWhole)
    If Not laCell Is Nothing Then sh.PrintOut Copies:=1, Collate:=True
Next sh
End Sub

a+

 

[sri75]

Re : recherche dans onglets

je vais tester, merci beaucoup !

 

[sri75]

Re : recherche dans onglets

j'ai essayé ca mais j'ai un bug

Sub Macro1()
Dim sh As Worksheet, laCell As Range
For Each sh In Sheets
Set laCell = sh.Cells.Find(what:="DOCUMENT PREPARATOIRE TABLEAU SUR 5 ANS", lookat:=xlWhole)
If Not laCell Is Nothing Then sh.PrintOut


'Copies:=1, Collate:=True

Set laCell = sh.Cells.Find(what:="EMPLOIS / RESSOURCES", lookat:=xlWhole)
If Not laCell Is Nothing Then editi

'sh.PrintOut Copies:=1, Collate:=True

Set laCell = sh.Cells.Find(what:="QUESTIONNAIRE", lookat:=xlWhole)
If Not laCell Is Nothing Then editi

'sh.PrintOut Copies:=1, Collate:=True


Next sh
End Sub



En fait je voudrais qu'il edit les onglets s'il trouve les données et qu'il ne donne un message s'il ne les trouve pas.

je voudrais que l'onglet s'imprime que sur une seule page avec le quadrillage.

merci à tous

 

[GCFRG]

Re : recherche dans onglets

Salut sri75, peux-tu joindre ton fichier, sans données confidentielles.

If Not laCell Is Nothing Then editi

je ne vois pas d'étiquette editi nullepart?

Gilbert

 

[sri75]

Re : recherche dans onglets

Bonjour, editi est une macro complémentaire, qui sert juste à paufiner les paramètres d'impression ( tout sur une seule feuille et avec quadrillage ).

Pour ce qui est du fichier je vais essayer mais il s'agit de données confidentielles alors ce n'est pas facile à nettoyer.

Merci pour votre aide

 

[jeanpierre]

Re : recherche dans onglets

Bonjour à tous,

Pour sri75, les données confidentielles ne concernent que les noms des personnes, les adresses éventuelles et numéros de téléphone. Pour le reste, il n'y a rien de confidentiel. Ce sont des chiffres, des textes comme on en trouve partout.

Bonne soirée.

Jean-Pierre

 

[mromain]

Re : recherche dans onglets

bonjour le fil,

j'ai fait un essai avec le code tel quel et ça a l'air de marcher, l'erreur doit venir de la macro "editi".

Sub Macro1()
Dim sh As Worksheet, laCell As Range
For Each sh In Sheets
    Set laCell = sh.Cells.Find(what:="DOCUMENT PREPARATOIRE TABLEAU SUR 5 ANS", lookat:=xlWhole)
    'If Not laCell Is Nothing Then sh.PrintOut
    
    
    'Copies:=1, Collate:=True
    
    Set laCell = sh.Cells.Find(what:="EMPLOIS / RESSOURCES", lookat:=xlWhole)
    If Not laCell Is Nothing Then editi
    
    'sh.PrintOut Copies:=1, Collate:=True
    
    Set laCell = sh.Cells.Find(what:="QUESTIONNAIRE", lookat:=xlWhole)
    If Not laCell Is Nothing Then editi
    
    'sh.PrintOut Copies:=1, Collate:=True
    

Next sh
End Sub


Sub editi()
MsgBox "editi"
End Sub

je vous met le fichier.

a+

 

[sri75]

Re : recherche dans onglets

Je vais essayer

Merci et bonne journée