Utiliser Macro sur une seule page de classeur

[noel33]

Bonjour à tous,

je voudrais utiliser cette macro:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not TypeOf Sh Is Worksheet Then Exit Sub
If Intersect([B7:B50], Target) Is Nothing Then Exit Sub
If Target.Columns.Count <> 1 Then Exit Sub
If Target.Rows.Count <> 1 Then Exit Sub
UFmCalend.Posit Target, 0, 1
Target.Value = UFmCalend.Saisie(Titre:="Calendrier", DInit:=Target.Value, Défaut:=Target.Value)
End Sub


Mais uniquement sur une seule page d'un de mes classeurs.

Malheureusement, cette macro fonctionne pour toutes les pages du classeur, je en sais pas comment faire...

Quelqu'un a une solution?

D'avance merci,

N.

 

[pierrejean]

Bonjour Noel

Comme ceci ?

 

[noel33]

Exactement!

 

[noel33]

J'ai du mal a comprendre la différence (mais je suis a un très bas niveau point de vue macro...)

 

[noel33]

En tout cas, merci, beaucoup!

 

[pierrejean]

La différence est que la macro est dans le module de la feuille et non plus dans le module Thisworkbook