créer un pop up avertissement vba excel

Version imprimable

20/11/2006, 03h37
avyrex

créer un pop up avertissement vba excel

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.

comment faire?

Merci.

;)

bonjour

tu peux tester cette procédure
L'evenement workbook_open est déclenché lors de l'ouverture du classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

michel

Merci beaucoup pour la formule:
;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub workbook_open() Dim Dt As Range Dim Ws As Worksheet Set Ws = Worksheets("Permis") For Each Dt In Ws.Range("D7:D137") If Dt < Date Then _ MsgBox "LE PERMIS A EXPIRÉ POUR " & Dt.Offset(0, -3) & " " & " , " & _ Dt & " ", _ vbExclamation, " RENOUVELER LE PERMIS " Next Dt End Sub
Par contre, je dois finir la liste

Code:

For Each Dt In Ws.Range("D7:D137")

D137 car sinon tous les autres case qui sont vides par la suite, fait apparaitre le message d'alerte.

Comment faire pour éviter qu'une case vide fait apparaitre le message d'alerte?

22/11/2006, 10h45
SilkyRoad

bonjour

je ne suis pas sur d'avoir bien compris mais tu peux essayer

Code:

If Dt < Date And Dt <> "" Then

Tu peux aussi redéfinir la plage D7 : Dxx, pour ne pas prendre en compte les cellules vides.

michel

re bonjour,

j'ai essaié ce que tu me propose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub workbook_open()
Dim Dt As Range
    Dim Ws As Worksheet
 
    Set Ws = Worksheets("Permis")
 
    For Each Dt In Ws.Range("D7:D137")
              If Dt < Date And Dt <> "" Then
            MsgBox "LE PERMIS A EXPIRÉ POUR " & Dt.Offset(0, -3) & " " & " , " & _
Dt & " ", _
            vbExclamation, " RENOUVELER LE PERMIS "
    Next Dt
 
    'Masque directement la feuille si cette derniere est visible
If Sheets("Utilisateurs").Visible = True Then Sheets("Utilisateurs").Visible = False
 
 
'Rend la feuille visible si mot de passe OK
If InputBox("MOT DE PASSE POUR L'ACCÈS AUX UTILISATEURS", vbCritical) = "test" Then
   Sheets("Utilisateurs").Visible = True
End If
 
With ActiveWindow
        .DisplayHeadings = False
        .DisplayWorkbookTabs = False
    End With
 
       UserForm1.Show
 
End Sub

Mais il me donne comme message : erreur de compilation: Next sans for.

Je dois descentre plus bas dans la feuille excel car je rajoute des noms de chauffeurs régulièrement.

Code:

For Each Dt In Ws.Range("D7:D65000")

merci encore

;)

23/11/2006, 11h38
SilkyRoad

bonjour

il faut ajouter un underscore après l'instruction Then

Code:

If Dt < Date And Dt <> "" Then _

michel
23/11/2006, 21h38
avyrex

Merci beaucoup, tous fonctionne.

encore merci

:P