Bonsoir à toutes et à tous
Je reviens sur l'utilisation de mon calendrier (fait par Roland-M).
Un autre souci a été résolu par Hasco dans ce fil https://excel-downloads.com/threads...n-existante-dans-la-portee-en-cours.20071761/
Je voudrais obliger la sélection d'une date sur le calendrier ouvert.
C'est à dire que si clic sur la "X" de sortie sans sélection de date, je voudrais que ce code s'exécute :
Ce code fonctionne sur un autre calendrier que je ne peux pas utiliser dans ce fichier.
Je n'arrive pas à le placer correctement.
Pourriez-vous m'aider ?
En cas, je joins le fichier test...
Un grand merci à tous
Je reviens sur l'utilisation de mon calendrier (fait par Roland-M).
Un autre souci a été résolu par Hasco dans ce fil https://excel-downloads.com/threads...n-existante-dans-la-portee-en-cours.20071761/
Je voudrais obliger la sélection d'une date sur le calendrier ouvert.
C'est à dire que si clic sur la "X" de sortie sans sélection de date, je voudrais que ce code s'exécute :
VB:
Si clic sur la "X" sans sélectionner de date alors
If ActiveCell = Cells(ActiveCell.Row, 15) Then
If CalendrierDateSELECT <= Date Then
Unload Me
Cells(ActiveCell.Row, 5).Select
Application.EnableEvents = True
Application.ScreenUpdating = True
Cells(ActiveCell.Row, 15) = ""
Exit Sub
End If
End If
If CalendrierDateSELECT <= Date Then
MsgBox ("Vous devez sélectionner une date de Rappel !")
Else
Cells(ActiveCell.Row, 13) = CalendrierDateSELECT
Unload Me
End If
End SubJe n'arrive pas à le placer correctement.
Pourriez-vous m'aider ?
En cas, je joins le fichier test...
Un grand merci à tous