Instruction If...Then...Else

Définit un ou plusieurs blocs d'instructions ne devant s'exécuter que si une condition donnée est True.

  If condition Then 
      statements
  [{ElseIf} condition Then
      statements]
  [Else 
      statements]
  {EndIf|End If}

Au lieu de End If, vous pouvez écrire EndIf.

L'instruction If peut être raccourcie à une seule ligne lors de l'utilisation de blocs d'instruction unique.

  If condition Then statement [Else statement]

L'instruction If...Then exécute des blocs de programme en fonction de conditions données. Lorsque %Productname Basic rencontre une instruction If, la condition est évaluée. Si la condition est remplie True, toutes les instructions suivantes jusqu'à la prochaine instruction Else ou ElseIf sont exécutées. Si la condition est False et si elle est suivie d'une instruction ElseIf, LibreOffice Basic évalue la condition suivante et, si elle est TRUE, exécute les instructions suivantes. Si la condition est FALSE, le programme s'exécute conformément à la prochaine instruction ElseIf ou Else. Les instructions suivant Else ne sont exécutées que si aucune des conditions précédemment évaluées n'est True. Après avoir évalué toutes les conditions et exécuté les instructions correspondantes, le programme continue de s'exécuter suivant l'instruction figurant après EndIf.

Vous pouvez imbriquer plusieurs instructions If...Then.

Les instructions Else et ElseIf sont facultatives.

Vous pouvez utiliser GoTo et GoSub pour quitter un bloc If...Then, mais non pour entrer dans une nouvelle structure If...Then.

L'exemple suivant permet de saisir la date d'expiration d'un produit et de déterminer si cette date est dépassée.

Sub ExampleIfThenDate
    Dim sInput As String
    Dim dInput As Date
 
  On Error Goto inputError
    sInput = InputBox("Enter the expiration date (YYYY-MM-DD)")
    dInput = DateValue(sInput)
 
    If dInput < Date() Then
        MsgBox "La date d'expiration est dépassée."
    ElseIf dInput > Date() Then
        MsgBox "La date d'expiration n'est pas encore dépassée."
    Else
        MsgBox "La date d'expiration est aujourd'hui."
    End If
 
inputError:
    If dInput = 0 Then MsgBox "Invalid input"
End Sub