Macros identiques avec variables différentes

**retraite83** · 20/09/2018, 16h38

Bonjour,

un petit problème très simple pour ceux qui savent…

J'ai 2 macros identiques dans 2 classeurs, seules différences les valeurs des variables dans les déclarations au début.

Jusqu'à maintenant je reporte manuellement les modifs dans les 2 macros avec tous les risques d'erreur. Maintenant que j'ai plus de temps pour affiner mon travail, je me dis qu'il doit être possible d'avoir un tronc commun et de l'appeler avec des valeurs spécifiques des variables pour chaque macro.

j'ai parcouru les notions de fonctions (jamais encore utilisées) , est-ce la bonne piste ?

**Jean-Philippe André** · 20/09/2018, 19h50

Bonjour,

tu peux effectivement partir de tes macros (Sub sans paramètre) vers des procédures (Sub avec paramètre(s)) ou des fonctions (Function).

Si tu as le même code, tu peux effectivement aller chercher le commun et "fusionner" ton code dans une seule partie de code, utilisant les variables entrées en paramètres.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub A()
Dim i As Integer
i=5
MsgBox i
End Sub
 
Sub B()
Dim i As Integer
i=10
MsgBox i
End Sub

fusionnées en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub C(i as Integer)
MsgBox i
End Sub

et appelées respectivement par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Invité · 21/09/2018, 07h40

Bonjour,
On appel ça espace de nom.

Code module1 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sub test()
End sub

Code module2 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sub test()
End Sub

Code module3 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub principal()
Module1.test
Module2.test
End sub

Tu peux également passé tes variable en paramètres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test (byref var as integer)
Ens sub
Sub programme()
Dim i1 as integer,i2 as intégrer 
Test i1
Test i2
End sub

Code espace de nom :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim wb1 as workbook,wb2 as workbook
Set wb1=workbooks(1)
Set wb2=workbooks(2)
Wb1.application.run "test"
Wb2.application.run "test"

**Menhir** · 21/09/2018, 10h14

Je ne sais pas si ça pourrait résoudre ton problème mais tu pourrais placer ta macro dans un fichier XLAM chargé automatiquement à l'ouverture d'Exel.
Cette macro pourrait commencer par un Select Case qui, en fonction du nom (ou du chemin) du fichier appelant, renseigne un certain nombre de paramètres spécifiques.