Structures de contrôles VBAIf 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
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
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
