recherche dans onglets et lancement macro

[sri75]

Bonjour, je voudrais adapter la macro suivante qui me servait à imprimer les onglets où je trouvais QUESTIONNAIRE pour rechercher QUESTIONNAIRE mais cette fois m'arreter sur le premier onglet qui contient QUESTIONNAIRE, stocker le nom de cet onglet , et lancer une macro ( ex mamacro ).



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

Merci à tous pour votre aide

Stephane

 

[Robert]

Re : recherche dans onglets et lancement macro

Bonjour Stéphane, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim sh As Worksheet, laCell As Range
Dim no As String ''declare la variable nf (nom de l'Onglet)
 
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
        no = sh.Name 'définit la variable no
        Exit For 'sort de la boucle
        Call mamacro 'lance la macro "mamacro"
    End If
Next sh
End Sub

 

[sri75]

Re : recherche dans onglets et lancement macro

ca marche en placant le call après le next.

Merci beaucoup et bonne journée !

Sub Macro1()
Dim sh As Worksheet, laCell As Range
Dim no As String ''declare la variable nf (nom de l'Onglet)

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
no = sh.Name 'définit la variable no
Exit For 'sort de la boucle
End If
Next sh

Call mamacro 'lance la macro "mamacro"

End Sub