Question sur l'Evenement doubleclick

[Tophe2]

Bonjour le forum
Suite à quelques recherches d'information sur l'évenement beforedoubleclick voici ma question j'aimerai lorsque je double clique sur un cellule que le curseur n'apparaisse pas.

double click sur une cellule une croix, 1 click sur la cellule qui contient une croix celle ci s'efface mais je souhaiterai que le curseur ne s'affiche pas dans la cellule lors du double ckick.
Cordialement Christophe.

 

[Robert]

Re : Question sur l'Evenement doubleclick

Bonjour Tophe, bonjour le forum,

La marco événementielle ci-dessous agit au double-clic. Si la cellule est vide elle place une crois si la cellule contient une croix elle la supprime...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'evite le mode édition lié au double-clic
If Target.Value = "" Then 'condition : si la céllule est vide
    Target.Value = "X" 'place une croix (un X majuscule) dans la cellule
    Target.HorizontalAlignment = xlCenter 'allignement centré
    Target.Font.Bold = True 'gras
End If 'fin de la condition
'si la cellule contient une croix (un X majuscule), efface
If Target.Value = "X" Then Target.Clear
End Sub

 

[Tophe2]

Re : Question sur l'Evenement doubleclick

Bonjour Robert
J'ai copié le code mais cela ne fonctionne pas c'est à dire qu'il y a bien une croix qui apparaït mais elle reste une demi seconde pour s'effacer après.
Cordialement Christophe.

 

[Risleure]

Re : Question sur l'Evenement doubleclick

Bonjour a tous
ne serait-ce pas avec un else if ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'evite le mode édition lié au double-clic
If Target.Value = "" Then 'condition : si la céllule est vide
Target.Value = "X" 'place une croix (un X majuscule) dans la cellule
Target.HorizontalAlignment = xlCenter 'allignement centré
Target.Font.Bold = True 'gras

ElseIf Target.Value = "X" Then Target.Clear 'si la cellule contient une croix (un X majuscule), efface
End If 'fin de la condition
End Sub

 

[Tophe2]

Re : Question sur l'Evenement doubleclick

Bonjour Risleure
Merci encore à vous deux (Robert et Risleure)
Pour votre aide cela fonctionne.
Christophe.

 

[Risleure]

Re : Question sur l'Evenement doubleclick

Bonjour Tophe, bonjour le forum,

La marco événementielle ci-dessous agit au double-clic. Si la cellule est vide elle place une crois si la cellule contient une croix elle la supprime...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'evite le mode édition lié au double-clic
If Target.Value = "" Then 'condition : si la céllule est vide
    Target.Value = "X" 'place une croix (un X majuscule) dans la cellule
    Target.HorizontalAlignment = xlCenter 'allignement centré
    Target.Font.Bold = True 'gras
End If 'fin de la condition
'si la cellule contient une croix (un X majuscule), efface
If Target.Value = "X" Then Target.Clear
End Sub

Bonjour Robert

une question subsidiaire a cette macro évenementielle
Comment faire pour qu'elle ne réagisse qu'au double clic en colonne D par exemple

J'ai pensé
...
If Target.Address = ("D : D") And Target.Value = "" Then
...
Mais cela ne fonctionne pas

Merci

 

[Excel_lent]

Re : Question sur l'Evenement doubleclick

Salut à tous,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[COLOR=Red]If Target.Column = 4 Then[/COLOR]
  If Target.Value = "" Then
    Target.Value = "X"
  ElseIf Target.Value = "X" Then Target.Value = ""
  End If
End If
End Sub

devrait convenir.

 

[Risleure]

Re : Question sur l'Evenement doubleclick

Merci Excel_lent

Utiliser AND était une idée fixe .... et je n'avançais pas 😉

Ta soluce est correcte

Bon WE

 

[Robert]

Re : Question sur l'Evenement doubleclick

Bonjour le fil, bonjour le forum,

Merci à Risleure d'avoir rectifié le tir... Le pire c'est que j'avais testé avec ElseIf puis au dernier moment j'ai voulu changé sans tester... Quel c... !