Ouvrir un userform

Bonjour,

Je souhaite ouvrir un USF depuis :

Sub Calendar()

Calendrier.Show 0

End Sub

Je souhaite ouvrir l'usf seulement lorsqu'on clique sur l'une des cellules entre F17:F38

Merci d'avance

Bonjour,

A mettre dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("F17:F38")) Is Nothing Then: Calendrier.Show 0

End Sub

Theze a écrit :

Bonjour,

A mettre dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("F17:F38")) Is Nothing Then: Calendrier.Show 0

End Sub

bonjour,

super merci beaucoup