Eviter la répétition d'une macro.

[Safety85]

Bonjour à tous,

Mon problème est le suivant, j'ai un fichier excel qui à 50 feuilles. Les noms de ces feuilles sont de ce type '01', '01G', '02', '02G' ....'25', '25G'.
Je veux qu'une macro s'exécute à chaque fois que je me trouve sur une feuille avec un G ('01G', '02G', ...'25G').

Merci de me donner l'astuce.

Safety85

NB: Vous pouvez encore noter que je ne suis pas très bon dans visual basic.

 

[Arnaud]

salut 🙂,

tu peux par exemple faire comme ça : ( a écrire dans le ThisWorkbook )

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If InStr(1, UCase(ActiveSheet.Name), "G", vbTextCompare) <> 0 Then

'écris ton code ici

End If

End Sub

 

[@+Thierry]

Bonjour Safety85, le Forum

Une macro évènementielle à mettre dans le Private Module de "ThisWorkBook" (Voir mon message précédent pour Eric)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If InStr(Sh.Name, "G") <> 0 Then
Call TaMacro
End If
End Sub

La Macro "TaMacro" peut, quant à elle se trouver dans un module standard (Module1).

Bon Après Midi
@+Thierry

 

[@+Thierry]

Bonjour Arnaud

Encore gagné !! lol

Et en prime tu proposes le Ucase qui donc ne fera pas de distinction entre "G" et "g" si Safety en a besoin au cas où !

Par contre si dans ta Function "Instr" tu fixes la Constante "vbTextCompare" alors plus besoin du Ucase car ça fait double emploi.

Bon Aprèm
@+Thierry

 

[Arnaud]

re,

héhé 🙂 il y a de la bousculade pour réponde 🙂 au moins les gens qui postent ici ne peuvent pas se plaindre de pas avoir de réponse vu qu'ils en ont souvent deux pour le prix d'une.

sinon pour ce qui est de la fonction Instr, et bien en fait je l'ai tjs utilisé comme ça donc j'avais jamais fait gaffe que c'été un parramètre optionel ( et je savais pas non plus qu'il faisai derrière forcement plus la distinction des maj/min).
merci du renseignement 😉

 

[Safety85]

Merci à tous les deux. j'ai essayé les deux méthodes et l'une comme l'autre me plaise.
Encore merci