Appeler Sub en VBA

Nous présenterons comment appeler un sous-marin dans un autre sous-marin avec un exemple en VBA.

Appeler Sub en VBA

En travaillant sur plusieurs sous-procédures, nous pouvons rencontrer une situation où nous devrons peut-être appeler plusieurs sous-procédures pour la même fonction.

Certaines fonctions nécessitent une énorme quantité de code pour être écrites, et pour rendre ce code facilement compréhensible ; nous devons les faire en plusieurs parties. Et nous devons appeler ces parties dans un seul sous-programme pour nous assurer que l’ensemble du processus fonctionne de manière rationalisée.

Ce tutoriel nous apprendra à appeler plusieurs sous-marins dans un seul sous-marin. Passons en revue un exemple dans lequel nous obtiendrons la somme de plusieurs colonnes, puis obtiendrons la somme des multiples sommes, comme indiqué ci-dessous.

Sub sumOfA()
Dim result As Double
result = WorksheetFunction.Sum(Range("A2:A8"))
Range("A11") = "Sum Of A"
Range("A12") = result
End Sub
Sub sumOfB()
Dim result As Double
result = WorksheetFunction.Sum(Range("B2:B8"))
Range("B11") = "Sum Of B"
Range("B12") = result
End Sub
Sub totalSum()
Call sumOfA
Call sumOfB
Dim result As Double
result = WorksheetFunction.Sum(Range("A12:B12"))
Range("C11") = "Total Sum"
Range("C12") = result
End Sub

Production:

Comme nous pouvons le voir dans l’exemple ci-dessus, nous voulions obtenir la somme de plusieurs colonnes, et après cela, nous voulions obtenir la somme des sommes obtenues. À cette fin, nous avons décomposé le code en trois sous-marins différents et avons appelé les deux sous-marins dans notre dernier sous-marin.

Décomposer le code en plusieurs fonctions est une bonne pratique pour les rendre simples et faciles.