Contenu

# 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.

### Syntaxe :

      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]

### Paramètres :

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.

### Exemple :

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

Rubriques connexes

Instruction Select Case

Fonction lif ou Switch

Aidez-nous !