Affichage userform sur plusieurs cellules

Bonjour,

Etant vraiment une quiche en VBA, mais toujours trouvé de bon conseil sur ce forum, je viens une fois de plus pour une aide qui doit-être d'une simplicité pour vous.

J'ai un code qui affiche un userform de calendrier lorsque je sélectionne une cellule. en l’occurrence la cellule C23 dans mon modèle.

Mon souhait : pouvoir afficher le userform sur d'autres cellules que la C23. (les unes indépendamment des autres bien sur; pas multi-sélection)

Comment dois-je procédé pour avoir un code simple et pas trop volumineux....

si vous avez besoin de plus de précision me dire, ou si pas assez précis !

Merci par avance de votre avis et aide .......

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C23")) Is Nothing Then
            Call Cmd_UseCalendar
        End If
    End If
End Sub

Bonjour malpas,

Pour s'améliorer, il faut essayer de comprendre et apprendre

Tout ce passe ici

 If Not Intersect(Target, Range("C23")) Is Nothing Then

En français cela veut dire que lors de la modification d'une cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Si cette cellule est contenu dans l'intersection avec C23 alors

Il faut donc modifier le Range, exemple

If Not Intersect(Range("C23,D2,F10"), Target) Is Nothing Then

A+

Bonjour,

Merci @BrunoM45 pour ta réponse et surtout les explications !

@+++