Rapport de message :*
 

Re: Case à Cocher

Titre du sujet : Re: Case à Cocher
par Mytå le 01/11/2011 04:38:40

 Re le forum

Rien à ajouter MTH, sinon que la macro ne centre pas le "X" sur la cellule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
If Not Intersect(Target, Range("Afficher")) Is Nothing Then
    Target = IIf(Target = "", "X", "")
    Target.HorizontalAlignment = xlCenter
End If
End Sub
Mytå