Exit Sub en VBA

Nous allons présenter les différentes méthodes Exit Sub en VBA avec des exemples.

Utiliser l’instruction Exit Sub en VBA

Lorsque vous travaillez avec Sub dans VBA, nous pouvons vouloir le quitter ou l’empêcher de s’exécuter davantage s’il y a une erreur ou si l’utilisateur a fourni la mauvaise entrée. Nous pouvons également utiliser le sous-marin de sortie pour terminer le sous-marin à tout moment.

Dans VBA, chaque ligne est exécutée une par une, donc si nous avons atteint le résultat ou si la réponse souhaitée à un certain point d’exécution n’est pas celle que nous voulions, nous pouvons utiliser le sous-marin de sortie pour terminer le sous-marin.

Il existe de nombreuses situations dans lesquelles nous pouvons utiliser cette fonction. Passons en revue un exemple et essayons de quitter le sous-marin au milieu du code.

Exemple de code :

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
Exit Sub
MsgBox Application.WorksheetFunction.RoundUp(num, 1)
End Sub

Dans l’exemple ci-dessus, j’ai ajouté le sous-code de sortie avant la boîte de message, et lorsque nous exécutons ce code, aucune boîte de message n’apparaît.

Prenons un autre exemple utilisant l’instruction if-else. Si l’instruction est true, elle exécutera le code jusqu’à la fin. Sinon, il va casser.

Exemple de code :

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
If Application.WorksheetFunction.RoundUp(num, 1) = 6 Then
    MsgBox num
Else
    MsgBox "Wrong Number"
    Exit Sub
num = num + num
End If
End Sub

Production:

Lorsque nous travaillons avec des données importantes et que nous voulons nous assurer que s’il y a une erreur ou que l’une des entrées est erronée, nous devons quitter le sous-marin immédiatement pour nous assurer qu’il n’y a pas de perte de données ou qu’il n’y a pas de données erronées dans les données de l’entreprise.