Easy-Micro

ESPACEMEMBRE Structures de contrôles VBA
If Then

Condition If Then Else

Cette instruction permet d'exécuter 1 ou plusieurs instructions selon le résultat d'une condition.

Une seule instruction à exécuter si la condition est vraie (If - End If) :
Sub Condition()
If Date > "01/01/2001" Then
   MsgBox "Nous sommes le " & Format(Date, "dddd d mmmm yyyy")
End If
End Sub

Plus d'une instruction à exécuter si la condition est vraie (If ? Else) :
Sub Condition()
Dim NbJours As Long
Dim UneDate As Date

UneDate = DateValue("01/10/2007")
NbJours = Date - UneDate
If NbJours > 0 Then
   MsgBox NbJours & " jours se sont déroulés depuis le " & Format(UneDate, "dddd d mmmm yyyy")
Else
   MsgBox "Encore " & -NbJours & " jours avant le " & Format(UneDate, "dddd d mmmm yyyy")
End If
End Sub

Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]