Show calendar date in specific column

[sofas]

Hello. How can I modify the code to show the date calendar when clicking on several cells? Now it only appears when clicking on cell b4. I want it to appear when clicking on cells b4:b100

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    
    Dim UnJour As Date
    If Target.Address = "$B$4" Then
        Application.EnableEvents = False
        Cancel = True
            UnJour = FormCal.Calendrier
            If UnJour <> 0 Then
                Target = Format(UnJour, "mm/dd/yyyy")
            Else
                Target = ""
            End If
        Selection.Offset(1, 0).Select
        Application.EnableEvents = True
    End If
End Sub

 

[Legacy 143009]

You can wrap around your code with an If condition. You can check your range with Not Intersect Is Nothing method:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("B4:B100")) Is Nothing Then
    Dim UnJour As Date
    If Target.Address = "$B$4" Then
        Application.EnableEvents = False
        Cancel = True
            UnJour = FormCal.Calendrier
            If UnJour <> 0 Then
                Target = Format(UnJour, "mm/dd/yyyy")
            Else
                Target = ""
            End If
        Selection.Offset(1, 0).Select
        Application.EnableEvents = True
    End If
  End If
End Sub

 

[sofas]

You can wrap around your code with an If condition. You can check your range with Not Intersect Is Nothing method:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("B4:B100")) Is Nothing Then
    Dim UnJour As Date
    If Target.Address = "$B$4" Then
        Application.EnableEvents = False
        Cancel = True
            UnJour = FormCal.Calendrier
            If UnJour <> 0 Then
                Target = Format(UnJour, "mm/dd/yyyy")
            Else
                Target = ""
            End If
        Selection.Offset(1, 0).Select
        Application.EnableEvents = True
    End If
  End If
End Sub

Thank you, this code helped me to solve the problem.

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B4:B100")) Is Nothing Then
Dim UnJour As Date
Application.EnableEvents = False
Cancel = True
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
Else
Target = ""
End If
Selection.Offset(0, 0).Select
Application.EnableEvents = True
End If

End Sub

 

[Legacy 143009]

Thanks for the feedback!