XL 2016 Alerte excel

job75

XLDnaute Barbatruc

• 3 Avril 2024

• #2

Bonjour marc94600,

Voyez le fichier .xlsm joint et ces 2 macros, d'abord dans ThisWorkbook :

VB:

Private Sub Workbook_Open()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AZ2", .Range("AZ" & .Rows.Count).End(xlUp))
        If IsDate(c) Then Application.OnTime c, "Alerte"
    Next
End With
End Sub

Ensuite dans Module1 :

VB:

Sub Alerte()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AZ2", .Range("AZ" & .Rows.Count).End(xlUp))
        If IsDate(c) Then
            If c <= Date And .Cells(c.Row, "BG") = "" Then
                MsgBox "Echéance " & .Cells(c.Row, "B") & " " & c
                .Cells(c.Row, "BG") = "X"
            End If
        End If
    Next
End With
End Sub

A+

 

Pièces jointes

• DOUBLONS 03-04-2024.xlsm

  48.3 KB · Affichages: 14

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 4 Avril 2024

• #3

merci pour ton travail,

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 4 Avril 2024

• #4

Bonjour,
Quand je retranscris les formule VBA sur mon tableau il me donne une erreur (image 1)
et si je fais débogage j'obtiens (image 2)
Pourtant dans ton exemple sur mon tableau sa marche
merci

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 4 Avril 2024

• #5

Bonjour,
Les images ne sont pas passées

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 4 Avril 2024

• #6

image 1

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 4 Avril 2024

• #7

image 2

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2024

• #8

Bonjour marc94600, nat54,

Les valeurs en colonne AZ doivent être des dates c'est à dire des nombres.

Dans votre fichier ce sont probablement des textes, convertissez-les.

On peut faire faire les conversions par les macros en utilisant CDate :

VB:

Private Sub Workbook_Open()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AZ2", .Range("AZ" & .Rows.Count).End(xlUp))
        If IsDate(c) Then Application.OnTime CDate(c), "Alerte"
    Next
End With
End Sub

VB:

Sub Alerte()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AZ2", .Range("AZ" & .Rows.Count).End(xlUp))
        If IsDate(c) Then
            If CDate(c) <= Date And .Cells(c.Row, "BG") = "" Then
                MsgBox "Echéance " & .Cells(c.Row, "B") & " " & c
                .Cells(c.Row, "BG") = "X"
            End If
        End If
    Next
End With
End Sub

A+

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 10 Avril 2024

• #9

job75 à dit:

Bonjour marc94600, nat54,

Les valeurs en colonne AZ doivent être des dates c'est à dire des nombres.

Dans votre fichier ce sont probablement des textes, convertissez-les.

On peut faire faire les conversions par les macros en utilisant CDate :

VB:

Private Sub Workbook_Open()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AZ2", .Range("AZ" & .Rows.Count).End(xlUp))
        If IsDate(c) Then Application.OnTime CDate(c), "Alerte"
    Next
End With
End Sub

VB:

Sub Alerte()
Dim c As Range
With Sheets("HPM_ARCHIVES")
    For Each c In .Range("AZ2", .Range("AZ" & .Rows.Count).End(xlUp))
        If IsDate(c) Then
            If CDate(c) <= Date And .Cells(c.Row, "BG") = "" Then
                MsgBox "Echéance " & .Cells(c.Row, "B") & " " & c
                .Cells(c.Row, "BG") = "X"
            End If
        End If
    Next
End With
End Sub

A+

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 10 Avril 2024

• #10

Bonjour
La formule fonctionne bien mais j'ai des dates qui ne sont pas pris en compte (Dans mon tableau je souhaiterai qu'il y ait une alerte lorsque la date de fin d'habilitation d'une société (-1 an) arrive à expiration.
dans mon tableau feuille HPM_ARCHIVES colonne AZ.
Les données du tableau sont fictives.)
Je ne comprend pas car tout est correcte quand aux dates.

merci à vous

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 11 Avril 2024

• #11

Bonjour tout le monde
sur ma programmation je retrouve des erreurs. toutes les dates ne sont pas reconnues...
Je souhaite avoir une alerte des sociétés dont la fin d'habilitation(H) arrive à échéance. L'alerte devra intervenir à H-365 jours.
Dans ma programmation actuelle j'ai des dates qui ne sont pas reconnues.
Voilà
j'espère que j'ai pu me faire comprendre?
merci à vous

 

Pièces jointes

• DOUBLONS 03-04-2024.xlsm

  56.7 KB · Affichages: 7

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 11 Avril 2024

• #12

Bonjour,
Aucun onglet ne présente de date en colonne H.
Quelles dates vous semblent poser pb ?

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 11 Avril 2024

• #13

c'est normal il ne s'agit pas de la colonne H c'est la colonne AY . J'ai mis H pour faire comprendre qu'il s'agit de la date en AY par rapport à la date d'aujourd'hui

 

Vote positif 0 Vote négatif

L

Laurent78

XLDnaute Occasionnel

• 12 Avril 2024

• #14

Bonjour,
En espérant ne pas déranger, il y a un truc que je ne comprends pas la colonne AY est intitulée "durée de l'habilitation" et pourtant il semblerait que le contenu soit des date. Et la colonne AZ "Date de fin de l'habilitation" est vide. Il n'y a pas un truc qui cloche ?
Cdlt

 

Vote positif 0 Vote négatif

M

marc94600

XLDnaute Occasionnel

• 24 Avril 2024

• #15

Bonjour Laurent
Bien sur que non vous ne pouvez pas déranger...
Concernant la date de fin d'habilitation est vide car c'est une mesure préventive et donc exceptionnelle.
Je n'ai pas eu de réponse concernant ma précédente demande ou j'ai des dates qui ne sont pas en alerte dans mon tableau original.

 

Vote positif 0 Vote négatif