Comment utiliser l’instruction End dans VBA ?

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.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project