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


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Jeudi 23 mai 2019 - Semaine 21 - Saint Didier de Vienne (Demain: Saint Donatien)
Aujourd'hui, c'est l'anniversaire de François Feldman (1958-61 ans), auteur-compositeur-interprète français (Joue pas, Les Valses de Vienne, Joy...).
Haut de page Easy-Micro