Excel - Boîte de dialogue

[invite62304092]

Bonsoir,

Je viens sur ce forum car j'ai besoin d'un petit, voire un gros coup de main.
En effet, j'ai un tableau avec de nombreuses dates, et j'aimerai avoir un boite de dialogue qui s'affiche avec le nom et le prénom de la personne ainsi que de la date qui s'approche (délai de 30 jours avant la date d'échéance).

J'ai créé une macro (voir ci-dessous) mais il n'y a rien qui s'affiche.

J'espère que j'ai été claire !!!
Pourriez-vous m'aider ?

Merci d'avance

Voilà la macro que j'ai créé

Sub Verification()
Dim Nblg As Long
Dim Msg1 As String, Msg2 As String
Dim Cel As Range

  Application.ScreenUpdating = False
  With Sheets("master list")
    Nblg = .Range("B" & "C" & Rows.Count).End(xlUp).Row
    .Range("V5:V" & Nblg).AutoFilter field:=1, Criteria1:="<" & CSng(Date) - 30
    If Application.Subtotal(103, .Columns("V")) > 1 Then
      For Each Cel In .Range("V6:V" & Nblg).SpecialCells(xlCellTypeVisible)
        Msg1 = Msg1 & vbCr & "Sonde " & Cel.Offset(0, -4)
      Next Cel
    End If
    .Range("V5:V" & Nblg).AutoFilter
  End With
  If Len(Msg1) > 0 Then
    MsgBox Msg1, , "Prévoir Formation ou Visite Médicale"
  End If
End Sub

-----

[mécano41]

Bonjour,

Je n'ai pas regardé le reste mais je vois :

Application.ScreenUpdating=False

et pas

Application.ScreenUpdating=True

Cordialement