Question sur l'Evenement doubleclick

Robert

XLDnaute Barbatruc

Repose en paix

• 3 Août 2007

• #2

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...

Code:

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

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 3 Août 2007

• #3

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.

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 3 Août 2007

• #4

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

 

Vote positif 0 Vote négatif

T

Tophe2

XLDnaute Impliqué

• 3 Août 2007

• #5

Re : Question sur l'Evenement doubleclick

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

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 3 Août 2007

• #6

Re : Question sur l'Evenement doubleclick

Robert à dit:

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...

Code:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 3 Août 2007

• #7

Re : Question sur l'Evenement doubleclick

Salut à tous,

Code:

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.

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 3 Août 2007

• #8

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 3 Août 2007

• #9

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... !

 

Vote positif 0 Vote négatif