Mettre un X avec un double clic

Page modifiée le 15/09/2012

Comment faire une macro qui mettrait un X dans une cellule vide avec un double clic et qui enleverait ce X avec un nouveau double clic ?

A mettre dans le module de la feuille 

Private sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As

 Boolean)
   On Error Resume Next
   If IsEmpty(ActiveCell.Value) Then

   ActiveCell.Value = "X"
   ElseIf ActiveCell.Value = "X" Then

 ActiveCell.Value = ""
   End If
 Cancel = True
 end sub
Auteur(s) : 
Eric Jeanne
Page modifiée le 15/09/2012

Commentaires

Submitted by Invité
on mer, 03/10/2010 - 23:14

comment faire lorsque l'on veut uniquement les cellules A1:C35""

Submitted by Invité
on jeu, 03/18/2010 - 11:53

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If estDansPlage(Target.Address, Range(Cells(1, 1), Cells(35,3))) Then
Target = Chr(True * (IsEmpty(Target)) * 88)
End If
End Sub
,supprime le X avec un autre click


Ce mois-ci sur Excelabo

- 8 nouvelles pages ajoutées.
- 39 pages modifiées.