Macro avec paramètre d'entrée

[Sylvain]

Bonjour à tous,
Je viens de réaliser un fichier Excel avec pas mal de feuilles, des macros et je cherche maintenant à l'alléger car niveau taille, il dépasse les 2 Mo. Je recherche donc de l'aide pour deux choses :
- existe t il un moyen de gagner de la place dans un fichier Excel
- pour réduire le nombre de ligne de code, il me faudrait utiliser des
macros avec paramètres d'entrée mais là, mes connaissances me
bloquent...

Ma macro est la suivante :
Sub Mois_avril()
Sheets("Avril").Select
Application.Goto reference:="R1C1"
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End Sub

J'en ai une pour chacun des mois... Est il possible de passer le nom du mois en paramètre d'entrée pour n'avoir plus qu'une macro ?

Merci à tous pour votre aide et bonne continuation
Sylvain

 

[myDearFriend]

Bonsoir Sylvain, le Forum.


Pour appeler la procédure en passant le nom du mois en paramètre, tu peux faire :

Sub ActivMois(M As String)
Sheets(M).Select
Application.Goto reference:="R1C1"
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End Sub

Pour l 'appeler :
ActivMois "Avril"


Cela dit, si tu veux raccourcir d'avantage, tu peux aussi simplifier ta procédure comme ci-dessous :

Sub ActivMois(M As String)
Sheets(M).Activate
Range("A1").Select
End Sub


Ce qui devrait te donner la même chose (sauf erreur de ma part)...


Cordialement,
Didier_mDF

 

[Sylvain]

Bonjour Didier_mDF, le forum,

Ta méthode fonctionne à merveille et elle m'a déjà permis de gagner 200 Ko, ce qui est déjà pas mal...

Je continue le régime !

Merci