Discussion :

[ln0331]

Bonjour,


je vous sollicite à nouveau pour ce nouveau pb.

Dans mon programme, j'ai une colonne (M) avec des dates de fin de contrat et une colonne avec des durées de préavis (N).
Pour alerter l'utilisateur des dates de préavis, je fais afficher un message.
Pour cela, je compare la date de preavis à la date d'aujourd'hui et je fais afficher un message pour avertir.
Or cela suppose d'ouvrir le fichier tous les jours.

code utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If Not IsNull(Range("M" & i).Value) Or Not IsNull(Range("N" & i).Value) Then
    delais = Range("M" & i).Value - (Range("N" & i).Value * 30) 'pour convertir le mois en jours
    Range("AA" & i).Value = delais
 
        If Date = delais Then
            MsgBox ("Attention préavis pour la chaîne " & Cells(i, 1).Value)
        End If
End If

Par conséquent, si le fichier est ouvert plusieurs jours après, il n'y aura pas de message.

Donc est-ce qu'il y aurait qqch qui dit que tant qu'on n'a pas validé, le message continue a être affiché.
Du coup quand on ouvrirait le fichier plusieurs jours après la date de préavis, le message nous le rappelerait.


J'espère avoir été assez claire...

Merci d'avance.

[pgz]

Bonjour.

Tu peux enregistrer l'info : 'l'avertissement a été donné' dans un colonne. Si tu choisis 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If (Date >= delais) and (Range("O" & i)<>"averti") Then
MsgBox ("Attention préavis pour la chaîne " & Cells(i, 1).Value)
Range("O" & i).Value = "averti"
End If

Bon courage,

PGZ

[Jean-Philippe André]

bonjour,
tu peux passer par un flag de type vrai/faux ou 1/0 dans une cellule, que tu ajoutes dans ta série de tests.
Non ?

[ln0331]

Merci PGZ
ça marche bien mais comment faire pour gérer les cellules vides
(à savoir s'il n'y a pas de date de fin de contrat ou pas de préavis ou aucun des deux) ?
Parce que j'ai aussi le message qui s'affiche quand le programme rencontre des cellules vides..........


Je n'ai pas compris ta réponse jpcheck : serait-il possible d'avoir un exemple ?

[Jean-Philippe André]

plop;
un exemple, à adapter bien sûr hein

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If (Not IsNull(Range("M" & i).Value) Or Not IsNull(Range("N" & i).Value)) and Range("AZ" &i).value <> "testé"  Then
delais = Range("M" & i).Value - (Range("N" & i).Value * 30) 'pour convertir le mois en jours
Range("AA" & i).Value = delais
Range("AZ" &i).value = "testé" 
 
If Date = delais Then
MsgBox ("Attention préavis pour la chaîne " & Cells(i, 1).Value)
End If
End If

[random]

pour gérer ta date tu peux ajouter une propriété personnalisée à ton classeur

en faisant fichier/propriétes/personnalisation

là tu ajoutes la propriété dtrait de type date
tu ajoutes cette fonction à ton classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Function datrait(Optional x As Variant) As Date
If Not IsMissing(x) Then ActiveWorkbook.CustomDocumentProperties("dtrait") = x
datrait = ActiveWorkbook.CustomDocumentProperties("dtrait")
End Function

quand tu fais ton traitement tu invoques madate=datrait()
ceci te donnera la dernière date de traitement
en fin de traitement tu fais madate=datrait(date()) qui va garder trace du dernier traitement

[pgz]

Re,

Tu peux essayer cela, si je ne me trompre pas sur les noms de colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If (Not IsEmpty(Range("M" & i).Value)) And (Not Isempty(Range("N" & i).Value)) Then
    delais = Range("M" & i).Value - (Range("N" & i).Value * 30) 'pour convertir le mois en jours
    Range("AA" & i).Value = delais
    If (Date >= delais) and (Range("O" & i)<>"averti") Then
        MsgBox ("Attention préavis pour la chaîne " & Cells(i, 1).Value)
        Range("O" & i).Value = "averti"
    End If
End if

PGZ