pierre dupont
XLDnaute Occasionnel
sujet effacé
Dernière édition:
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not TypeOf Sh Is Worksheet Then Exit Sub
If Target.CountLarge <> 1 Or Target.Column <> 2 Or Target.Row < 5 Then Exit Sub
UFmCalenS.Posit Target, 1, 0.9
Target.Value = UFmCalenS.Saisie(Titre:="En " & Target.Address(False, False) & " :", _
DInit:=Target.Value, Défaut:=Target.Value)
End Sub