Mettre un caractère d'un clic

[Wolf]

bonjour,




Comment mettre un caractère (coche ou x) dans une cellule en cliquant sur celle-ci ??

Et comment enlever ce caractère de la cellule en cliquant dessus ???

Merci

wolf

 

[Gérard DEZAMIS]

Bonjour Wolf

A mettre dans le code de la feuille Alt F11

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = 'X' Then
Target.Value = ''
Else: Target.Value = 'X'
End If

L'action se produira sur un double click

@+ GD

 

[Startus]

Bonjour,

Bravo Wolf , plus rapide que moi ...

Ce code marche également :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
For Each c In Selection
If c = '' Then
c.Value = 'x'
End If
Next
End Sub

@+Startus

 

[Wolf]

Gérard DEZAMIS écrit:

Bonjour Wolf

A mettre dans le code de la feuille Alt F11

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = 'X' Then
Target.Value = ''
Else: Target.Value = 'X'
End If

L'action se produira sur un double click

@+ GD

Merci, ça répond à ma question.


Mais lors de la mise en place de ce prog, il me réclame un : end sub

J'ai donc ajouté un 'end sub' à la suite de End if

Est-ce suffisant ???


Cordialement

wolf

 

[Wolf]

Startus écrit:

Bonjour,

Bravo Wolf , plus rapide que moi ...

Ce code marche également :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
For Each c In Selection
If c = '' Then
c.Value = 'x'
End If
Next
End Sub

@+Startus

Bonjour Startus,

Merci également pour ta réponse.
Est-ce beaucoup plus compliqué, pour adapter cette procédure UNIQUEMENT à une colonne ???


Merci

 

[Moa]

Salut wolf !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A:A')) Is Nothing Then
If Target.Value = 'X' Then
Target.Value = ''
Else: Target.Value = 'X'
End If
End If
Cancel = True
End Sub


En exemple joint.

@ +++


Moa [file name=Wolf.zip size=6949]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Wolf.zip[/file]

 

[Wolf]

Moa écrit:

Salut wolf !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A:A')) Is Nothing Then
If Target.Value = 'X' Then
Target.Value = ''
Else: Target.Value = 'X'
End If
End If
Cancel = True
End Sub


En exemple joint.

@ +++


Moa [file name=Wolf.zip size=6949]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Wolf.zip[/file]

Un grand MERCI, Moa, c'est pile poil ce que je cherchais

Cordialement
wolf