Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [PlageDates]) Is Nothing Then
Load fm_CalendrierCellule
If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
fm_CalendrierCellule.Show: Cancel = True
End If
End Sub
j'ai éssayé le code et il marche parfaitement. Une fois de plus grand merci le forum
je ne suis cependant pas a la fin de mes ennuis. je voudrai que l'apparution de ce calendrier fasse un bref effet sonore.
JE PEUX ENCORE RËVER
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [PlageDates]) Is Nothing Then
Beep
Load fm_CalendrierCellule
Beep
If IsDate(Target) Then fm_CalendrierCellule.Tag = Target Else fm_CalendrierCellule.Tag = Date
fm_CalendrierCellule.Show: Cancel = True
Beep
End If
End Sub