MSGBOX Date dépassée

Bonjour tout le monde,

Ce matin, j'ai besoin d'un coup de main et donc, de votre bon cœur et de vos connaissances.

En effet, je possède un tableau avec deux colonnes dates.

Lorsqu'une des dates est dépassée, j'aimerais qu'une message box apparaissent à l'ouverture du fichier en m'indiquant qu'elles lignes sont impactées ?

J'ai trouvée une macro sur le net mais je n'arrive pas à l'adapter .

Les dates concernées sont en colonnes AT et BC et j'aimerais que la textbox affiche le nom et matricule du sortant (AG/AH) ou nom et matricule de l'entrant (AZ/AY) le cas échéant

Sub Alerte2()

With Sheets("entrees-sorties")

For lig = 4 To .Cells(Rows.Count, 3).End(xlUp).Row

If IsDate(.Cells(lig, "AT")) And .Cells(lig, "AT") <= Date Then ch = ch & vbCr & .Cells(lig, 1) & " en ligne " & lig

Next lig

End With

MsgBox "Sont en retard ... ou presque: " & vbCr & ch

End Sub

En espérant que vous me compreniez et vous puissiez m'aider et m'expliquer

Bonjour BNJ et

Pa rapport à ta demande, il faudrait un fichier avec à minima :

• des dates
• au moins 2 voir 3 lignes différentes

A+

Bonjour,

BrunoM45 a raison, ce serait mieux.

Néanmoins, voilà une solution faites avec les moyens du bord. A tester...

    Private Sub Workbook_Open()
    Dim texte As String
    With Sheets("GEST")
    For lig = 4 To .Cells(Rows.Count, 3).End(xlUp).Row
    If IsDate(.Cells(lig, "AT")) And .Cells(lig, "AT") <= Date Then
    ch = ch & vbCr & .Cells(lig, 1) & " en ligne " & lig
    Nom = Range("AG" & lig).Value
    Prenom = Range("AH" & lig).Value
    End If
    If IsDate(.Cells(lig, "BC")) And .Cells(lig, "BC") <= Date Then
    chdeux = chdeux & vbCr & .Cells(lig, 1) & " en ligne " & lig
    Nomarrive = Range("AZ" & lig).Value
    Prenomarrive = Range("AY" & lig).Value
    End If
    texte = texte + ch & " : " & vbCr & Nom & " " & Prenom & vbCr & chdeux & " : " & vbCr & Nomarrive & " " & Prenomarrive
    ch = ""
    chdeux = ""
    Nom = Empty
    Prenom = Empty
    Nomarrive = Empty
    Prenomarrive = Empty
    Next lig
    End With
    If texte <> "" Then
    MsgBox "Sont en retard ... ou presque: " & vbCr & texte
    'ne rien faire
    End If
    End Sub

Je joins également le fichier

Cordialement

Bonjour,

Merci de vous pencher sur ma requête.

J'ai testé mais quelques problèmes subsistent.

notamment dans la mise en page de la textbox car elle indique toutes les lignes qui ne sont pas concernées par " : ", ce qui pose un soucis car le tableau réel comprend + de 9000 lignes.

par ailleurs, si jamais la fenêtre n'est pas assez grande, est-il possible d'y rajouter une barre de défilement (ascenseur) ?

en pièce jointe, le fichier