UserForm si date dépassé

[Nostradamus26]

Bonjour et merci à tous d'être toujours aussi présent pour les différentes questions posés.

Voila n'étant pas du tout un grand programmeur d'excel,
j'appel à votre aide pour faire une petite application de type UserForm.

Voila j'ai un tableau avec nom prénom fonction et date.

Et mettant déjà fait avoir pour une date que j'ai pas regardé,
je recherche une application qui se déclenche lorsque la daté à été dépassé dans la cellule date à l'ouverture de la feuille excel.

en clair si la une cellule X dans la partie date est dépassé sa déclenche un UserForm de type: Attention le "nom" est de retour de "fonction"
merci à vous pour votre aide

Christophe

 

[kjin]

Re : UserForm si date dépassé

Bonsoir,
Une faiblesse dans les prévisions ! 😀
Plus terre à terre, je pense qu'un fichier exemple serait bien venu pour répondre à ta demande.
A+
kjin

 

[Nostradamus26]

Re : UserForm si date dépassé

Yess je fais ça 🙂

 

[kjin]

Re : UserForm si date dépassé

Re,
Dans le module ThisWorkbook :

Private Sub Workbook_Open()
With Sheets("feuil1")
For Each cel In Range("D8: D20")
If cel.Value = Date Then
MsgBox "Attention, retour de repos de" & " " & cel.Offset(0, -3).Value
End If
Next
End With
End Sub

Ouvre une boite de message si date du jour

A+
kjin

 

[Compte Supprimé 979]

Re : UserForm si date dépassé

Salut,
KJin,

Pour plusieurs retour dans un seul message, voir fichier joint 😉

A+

 

[Nostradamus26]

Re : UserForm si date dépassé

Merci à tous, c'est nikel 😉