Discussion :

[marc56]

Bonjour,
Question de novice en VBA. J'ai une appli Excel avec des macros pour vider des cellules dans certaines feuilles. Au lieu de recopier à chaque fois toutes les lignes, est-il possible d'intégrer dans une macro un ordre du genre : execute...macroRAZ1
execute...macroRAZ2
Si oui, quelle est la syntaxe exacte?
A l'avance, merci.

[tirex28]

Bonjour,

Il suffit d'indiquer le nom de la procedure que tu veux appeler:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
'Instructions
Macro2
'Instructions
End Sub
 
Sub Macro2()
'Instructions
End Sub

Cordialement,

Tirex28/

[marc56]

Je ne comprends pas pourquoi le second "Macro2()" et pourquoi celle qui est appelée dans la première n'a pas les parenthèses?

[Pierre Fauconnier]

Bonjour Marc

La procédure Macro2 est appelée par Macro1 pour exécuter du code qui peut être également exploité par d'autres procédures.

Ainsi, si deux procédures doivent, à un moment ou l'autre, réaliser un même code, il est utile que cette partie du code soit "isolée" dans une procédure indépendante, appelée chaque fois que c'est nécessaire.

Les procédures sont toujours déclarées avec des parenthèses, mais l'appel d'une procédure au sein d'un code se fait sans parenthèses. Il n'y a en fait rien à comprendre dans cet aspect des choses, c'est la syntaxe VB qui veut cela...

Imaginons deux codes qui doivent, à un moment donné, enregistrer le classeur en mentionnant dans le nom la date de l'enregistrement.

Tu auras une procédure d'enregistrement

Code :

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

1
2
3
Sub Enregistrer()
    ThisWorkbook.SaveAs "Version " & Format(Date, "yymmdd")
End Sub

et cette procédure sera appelée chaque fois que c'est nécessaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
    ...
    ...
    Enregistrer
    ...
End Sub
 
Sub Macro3()
    ...
    ...
    Enregistrer
    ...
End Sub

Bien entendu, tu peux passer des paramètres à la procédure, comme pour n'importe quelle procédure VB. Ainsi, si tu veux passer un nom à la procédure qui enregistre, tu peux avoir comme code

Code :

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

1
2
3
Sub Enregistrer(NomFichier As String)
    ThisWorkbook.SaveAs NomFichier & " " & Format(Date, "yymmdd")
End Sub

et l'utiliser dans d'autres procédures

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
    ...
    ...
    Enregistrer "Version Macro1"
    ...
End Sub
 
Sub Macro3()
    ...
    ...
    Enregistrer "Version Macro3"
    ...
End Sub

La procédure Enregistrer est volontairement simpliste. L'exemple est complexifiable à l'envi... Et il est évident que plus la macro Enregistrer sera longue, plus l'intérêt de l'utiliser sera grand...

Ok?

[marc56]

Merci Pierre, ton explication est parfaite.