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

A

Arnaud

Guest

• 17 Août 2004

• #2

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

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 17 Août 2004

• #3

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

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 17 Août 2004

• #4

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

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 17 Août 2004

• #5

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

 

Vote positif 0 Vote négatif

S

Safety85

Guest

• 17 Août 2004

• #6

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

 

Vote positif 0 Vote négatif