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.
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.