WorkSheetSelectionChange

Bonjour,

Voila, je ne comprends pas pourquoi ce petit programme ci joint ne fonctionne pas.

En cliquant sur une Cell, son adresse devrait être éditée mais rien?

Merci,

Cordialement,

Daniel

Bonjour,

Tu ne peux pas décider à ta guise des macros de ThisWorkbook

Remplacer la macro existante par

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveWindow
Application.EnableEvents = True

MsgBox Target.Address
MsgBox Target.Value

End With
End Sub

A+

OK Merci, sympa, ça a marché.

A présent, ci joint est mon programme. Quand je clique sur une cell, le numero a l'interieur de cette cell doit apparaître (après merge). Puis l'utilisateur doit cliquer sur une autre cell pour remplir le Sudoku.

Comment relancer la WorkSheetSelectionChange?