Bonjour le forum
J’ai essayé de pondre une petite application, mais je suis perdu.
Si quelqu’un peut me dépanner ou me guider il sera le bienvenu.
Dans la colonne ' B ' il y a des dates de réintégrations de matériel. Dans les autres, le nom des personnes qui ont emprunté ce matériel. A l’ouverture de la feuille je veux qu’il me dise qu’untel est en retard
Merci pour votre aide
Francis
Private Sub Worksheet_Activate()
Dim c As Range
For Each c In Range('b7:b25')
If c.Value <= Date And Not IsEmpty(c) Then
‘ chercher dans la ligne où il y a ' c.adress ' le premier mot, me l’extraire et ensuite me faire apparaître un MsgBox contenant ' Untel (le premier mot) est en retard '
End If
Next c
End Sub
J’ai essayé de pondre une petite application, mais je suis perdu.
Si quelqu’un peut me dépanner ou me guider il sera le bienvenu.
Dans la colonne ' B ' il y a des dates de réintégrations de matériel. Dans les autres, le nom des personnes qui ont emprunté ce matériel. A l’ouverture de la feuille je veux qu’il me dise qu’untel est en retard
Merci pour votre aide
Francis
Private Sub Worksheet_Activate()
Dim c As Range
For Each c In Range('b7:b25')
If c.Value <= Date And Not IsEmpty(c) Then
‘ chercher dans la ligne où il y a ' c.adress ' le premier mot, me l’extraire et ensuite me faire apparaître un MsgBox contenant ' Untel (le premier mot) est en retard '
End If
Next c
End Sub