L’instruction `End` dans VBA (Visual Basic for Applications) est utilisée pour terminer un bloc de code ou arrêter l’exécution d’un programme. Il existe plusieurs variantes de l’instruction `End`, chacune ayant sa propre utilisation. Voici quelques exemples de comment utiliser l’instruction `End` dans différentes situations :
- Fin d’une procédure ou d’un programme :
Utiliser simplement `End` sans rien d’autre pour arrêter complètement l’exécution d’un programme. Cependant, cette utilisation est assez radicale et il est généralement préférable de laisser le programme se terminer naturellement ou de gérer les erreurs autrement.
Sub TerminateProgram()
' Code here
End ' Stops the program
End Sub
- Fin d’un bloc `If` :
Lorsque vous utilisez des instructions conditionnelles, vous devez clôturer le bloc `If` avec `End If`.
Sub CheckValue()
Dim value As Integer
value = 10
If value > 5 Then
MsgBox "Value is greater than 5"
End If ' Ends the If block
End Sub
- Fin d’une boucle `Select Case` :
Pour une structure `Select Case`, utilisez `End Select` pour marquer la fin du bloc.
Sub GradeStudent()
Dim score As Integer
score = 85
Select Case score
Case Is >= 90
MsgBox "Grade A"
Case Is >= 80
MsgBox "Grade B"
Case Is >= 70
MsgBox "Grade C"
Case Else
MsgBox "Grade D"
End Select ' Ends the Select Case block
End Sub
- Fin d’une boucle `With` :
Quand vous utilisez une structure `With`, terminez-la avec `End With`.
Sub FormatRange()
With Sheets("Sheet1").Range("A1:A10")
.Font.Bold = True
.Font.Color = RGB(255, 0, 0)
End With ' Ends the With block
End Sub
Chacune de ces utilisations de l’instruction `End` permet de structurer le code et de s’assurer que chaque bloc est clairement délimité, ce qui aide à prévenir les erreurs et à améliorer la lisibilité du code VBA.