céation message d'alerte date

[jool]

bonjour à tous.

je souhaiterais créer un message box d'alerte m'indiquant l'immatriculation du véhicule quand une des deux dates des différents contrôles est supérieur à AUJOURDHUI()+30 à l'ouverture de mon fihier excel.
Je connais la mise en forme conditionnelle mais j'en veux toujours plus!!!
Je voudrais donc découvrir les maccros car je n'y connais rien
Si c'est possible de m'indiquer tout ce qu'il faut faire (ex: outils, macro ....)
merci !!!

 

[fanfan38]

Re : céation message d'alerte date

Bonjour
Appuyer sur ALT+F11 pour passer en mode VBA
dans THISWORKBOOK copier les lignes ci dessous

Private Sub Workbook_Open()
For lig = 9 To 34 'boucle de la ligne 9 à la ligne 34
If Cells(lig, 4).Value > Date + 30 Then
MsgBox "passage aux mines pour véhicule " & Cells(lig, 2).Value, vbOKOnly, "ATTENTION!"
End If
If Cells(lig, 5).Value > Date + 30 Then
MsgBox "CONTROLOGRAPHE pour véhicule " & Cells(lig, 1).Value, vbOKOnly, "ATTENTION!"
End If
Next
End Sub
Cette macro se déclenchera au lancement du fichier...

A+ François

 

[jool]

Re : céation message d'alerte date

merci bien, mais en fait je vais ajouter une colonne à coté de chaque contrôle en y indiquant les dates de rendez vous pris quand ils seront pris.
est il possible de m'indiquer une nouvelle macro qui m'alerte des dates supérieures à AUJOURDHUI()+30 pour lesquelles les rendez vous ne sont pas pris ?
merci

 

[fanfan38]

Re : céation message d'alerte date

Bonjour,
Il faut modifier: If Cells(lig, 4).Value > Date + 30 Then
par
If Cells(lig, 4).Value > Date + 30 and nbcar(Cells(lig, 5).Value)=0 Then
en considerant que la date est en colonne 4 et le rendez vous en colonne 5

A+ François

 

[jool]

Re : céation message d'alerte date

bonjour,
merci François mais ça ne fonctionne pas, ça surligne "nbcar" et ça me dis :

erreur de compilation
sub ou fonction non définie​

If Cells(lig, 4).Value > Date + 30 and nbcar(Cells(lig, 5).Value)=0 Then

 

[Staple1600]

Re : céation message d'alerte date

Bonsoir



Essayes
If Cells(lig, 4).Value > Date + 30 And Len(Cells(lig, 5))=0 Then

 

[jool]

Re : céation message d'alerte date

bonsoir,
merci à tous les deux, c cool
Ca fonctionne à merveille.
Bonne soirée.

A+ Julien.

 

[jool]

Re : céation message d'alerte date

Bonsoir,
j'aurai une dernière question : Comment faire pour recevoir, en plus une alerte 4 jours avant la date de rendez vous d'un contrôle, par mail sur mon adresse mail perso ?
Merci. (si possible détails)