Mettre un X avec un double clic

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) : 

Commentaires

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

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

Est-ce possible de donner la longueur parcourue sur une ligne en plaçant le curseur sur la ligne et faire un clik?

Par exemple, si j'ai une ligne de 10 cm de long et que je clik au milieu sur cette ligne, j'obtiendrai 5 comme résultat.

Jeannot

Bonjour
votre question est sans aucun rapport avec la page. Merci d'utiliser le forum d'excel-downloads pour poser des questions particulières.
Celle-ci sera effacée.

Ou puis-je poster mon problème ?

Bonjour

comme il est écrit sur la page d'accueil du site : sur le forum d'excel-downloads.com. excelabo n'est PAS une forum de discussion


Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 8 pages modifiées.