Croix au clique

[Tail]

bonjour
j'ai un fichier normal, j'aimerai lorsque je clique sur une cellule qu'un "X" s'affiche et disparaisse lorsque je reclique dessus.
merci de votre aide

 

[pascal21]

Re : Croix au clique

bonsoir
un extrait d'un de mes classeurs
pour les colonnes f à j (à modifier en fonction de ton classeur)
inscrit un "1" avec un clic droit
à reserver de préférence uniquement aux colonnes qui en ont besoin

' clic droit pour afficher et effacer "1" colonnes f à j
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, Columns("[COLOR=Red]f:j[/COLOR]")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then

ActiveCell.Value = "[COLOR=Red]1[/COLOR]"
ElseIf ActiveCell.Value = "[COLOR=Red]1[/COLOR]" Then

ActiveCell.Value = ""
End If
Cancel = True
End Sub

en rouge ce qu'il faut modifier pour adapter

 

[CB60]

Re : Croix au clique

Bonsoir à tous
Une autre façon de faire
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Colonne As Integer
Cancel = True
Colonne = Target.Column
If Cells(Target.Row, Target.Column).Value = "X" Then
Cells(Target.Row, Target.Column).Value = ""
ElseIf Cells(Target.Row, Target.Column).Value = "" Then
Cells(Target.Row, Target.Column).Value = "X"
End If
End Sub

 

[Tail]

Re : Croix au clique

merci
le fichier fonctionne mais je n'arrive pas à l'insérer dans mon code.
on dois je le mettre ?
merci

 

[Tail]

Re : Croix au clique

Génial ça marche
merci