Alerte à échéance à l'ouverture du fichier

Bonjour je crée ce post pour une problématique sur Excel.

Je souhaiterais que mon fichier m'indique à l'ouverture via une alerte les lignes pour lesquelles en colonne A, les dates arrivent ou bien ont dépassé l'échéance prévue.

exemple : si en A2, la date est aujourd'hui ou passée, alors le fichier m'indique par une alerte que l'échéance est atteinte ou passée.

merci bien pour votre aide

kad

Hello,

plusieurs possibilités,

la + simple est de faire une mise en forme conditionnelle,

sinon une macro ==> si j'ai 500 date dépassé, j'affiche 500 alertes ou j'affiche une alerte avec toutes les lignes ?

Hello merci bcp pour ton retour.

Dans l'idéal une macro qui s'exprimerait par une alerte avec toutes les lignes.

mervi +++ pour ton aide 😊

Hello,

voici une sub que tu peux placer dans l'evènement open de l'objet "Thisworkbook"

ça vérifie si chaque date est <= à la date du jour.

Un fichier txt se génère en fin de procédure, que tu es ou pas des lignes en retard (mettre ajour le chemin du fichier txt + mettre a jour le num de colonne & num de ligne si ça change)

Sub warning_date()

Const log_txt As String = "C:\Users\toto\Documents\EXCEL_VBA\test_txt\Log_date.txt"
Dim array_col_date
Dim i As Long, last_row As Long, f_row As Long, y As Long
Dim col_date As Integer
Dim today As Date
'Dim dico_date As Object

today = Date 'Date du jour
col_date = 1 'Colonne où les dates doivent être testées
f_row = 1 'Premiere ligne des dates
last_row = Sheets(1).Cells(Rows.Count, col_date).End(xlUp).Row 'Derniere ligne de date

'Remplissage array avec toutes les lignes impactées
y = 1
ReDim array_col_date(1 To y)
For i = f_row To last_row
    If Sheets(1).Cells(i, col_date).Value <= today Then
        ReDim Preserve array_col_date(1 To y)
        array_col_date(y) = i
        y = y + 1
    End If
Next i

' Creation d'un fichier txt avec les lignes en retard
Open log_txt For Output As #1
    For i = LBound(array_col_date) To UBound(array_col_date)
        If UBound(array_col_date) = 1 _
            And array_col_date(i) = "" Then
                Print #1, "Aucune Ligne en retard"
        Else: Print #1, "Ligne : " & array_col_date(i)
        End If
    Next i
Close #1

End Sub

merci ++ pour ta réponse😊

je test cela demain en arrivant au bureau 😊

bonne soirée à toi

hello j'ai tenté celà, mais ça ne fonctionne pas.

J'ai créé un fichier txt sur mon disque et mis à jour le lien. Peut être ai-je oublié de faire des modifications sur la macro? C'est vrai que je n'ai pas changé les noms de colonnes et lignes car je ne vois pas à quel niveau le faire dans la macro (j'ai un niveau de base sur excel).

sinon tu m'as parlé de mise en forme conditionnelle. J'ai essayé et ça me sort les échéances à aujourd'hui et en retard en rouge....je pense que ça peut le faire comme ça

merci

K

Hello,

hello j'ai tenté celà, mais ça ne fonctionne pas.

ça bug sur quelle ligne ?

Dans le code que je t'ai donné la colonne avec les dates à tester est la colonne 1 (donc A) de la première feuille du classeur.

Et la première ligne testée de la colonne 1 de la feuille 1 est la ligne 1

Si la colonne de date est la colonne B par exemple changer cette ligne et mettre 2 à la place de 1

col_date = 1 'Colonne où les dates doivent être testées

Si la premiere ligne a tester est la 5 par exemple alors remplacer 1 par 5 sur cette ligne

f_row = 1 'Premiere ligne des dates

Et si ta colonne date n'est pas dans la feuille 1 il faut modifier ces lignes et remplacer 1 par 2 par exemple :

last_row = Sheets(1).Cells(Rows.Count, col_date).End(xlUp).Row 'Derniere ligne de date

devient

last_row = Sheets(2).Cells(Rows.Count, col_date).End(xlUp).Row 'Derniere ligne de date

&

If Sheets(1).Cells(i, col_date).Value <= today Then

devient

If Sheets(2).Cells(i, col_date).Value <= today Then

On peut aussi faire comme ceci :

last_row = Sheets("nom_de_la_feuille").Cells(Rows.Count, col_date).End(xlUp).Row 'Derniere ligne de date

&

If Sheets("nom_de_la_feuille").Cells(i, col_date).Value <= today Then

merci pour ton retour. Je vais regarder de nouveau :)