Pop up avertissement en vba
Hors ligneWilder Le 20/11/2006 à 03:34 Profil de Wilder Configuration de Wilder

Viconaute Modérateur
Salut tous le monde,

Dans mon document excel, je veux créer en vba un popup qui m'avertir si un permis de conduire est expiré pour un chauffeur et cela, à l'ouverture du fichier excel.

Dans la colone A, ce trouve le nom du chauffeur et dans la colone D ce trouve la date d'expiration.


Merci.



Private Sub workbook_open()
Dim Dt As Range
Dim Ws As Worksheet
Set Ws = Worksheets("StatutPermis")  For Each Dt In Ws.Range("D8:D" & Ws.Range("D65536").End(xlUp).Row)
If Dt < Date Then _
MsgBox "La date a expiré pour " & Dt.Offset(0, -3) & " '" & _ Dt & "'", _ vbExclamation, " message d'alerte "  
Next Dt
End Sub
--


Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels