Dupliquer userform

bonjour tout le monde,

dans le fichier joint, le userform s'ouvre de façon tout a fait normale quand on clic en P10

Je n'arrive pas a modifier le code pour que celui s'ouvre également quand on clic en P11-P12-P13-P14-ET P15 !

si quelqu'un veut bien m'aider ...

Bonjour slygan,

Qu'est-ce qui vous parait compliqué dans ces lignes d'instruction

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Target.Address = "$P$10" Then Exit Sub
    If Target = "" Then Target.Offset(0, 1).Select
    UserForm1.Show
End Sub

A+

BrunoM45,

je comprend que pour vous cela puisse paraitre évident et j'apprécierai beaucoup que ce soit le cas également pour moi mais malheureusement ce n'est pas le cas...

je me doute que c'est pas grand chose et que je comprendrai la mani quand je verrai mais la... je bloque.

si vous voulez bien m'aider svp... merci d'avance.

Re,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ' Si la cellule sélectionnée n'est pas contenu dans la plage indiquée, on sort
  If Intersect(Range("P10:P15"), Target) Is Nothing Then Exit Sub
  ' Sinon on ouvre l'USF
  UserForm1.Show
End Sub

Nota : j'ai supprimé la ligne Target = "" qui pour moi ne sert à rien

A+

Merci !!!