actions successives au double clic

Le
Greg
Bonjour,

Est-il possible de créer des actions successives après les doubles-clics sur
la cellule?

Je m'explique: je souhaiterais qu'au premier double clic, une croix
apparaisse au centre de la cellule et que la cellule soit colorée en rouge.
S'il y a un nouveau double clic sur la cellule, la croix subsiste mais la
cellule redevient blanche.

Merci pour vos lumières

Greg
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #17962641
Bonjour Greg,

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Cancel = True
With Target
Select Case Len(.Value)
Case 0
.Value = "X"
.HorizontalAlignment = xlCenter
.Interior.ColorIndex = 3
Case Else
If .Interior.ColorIndex = 3 Then
.Interior.ColorIndex = 0
Else
.ClearContents
End If
End Select
End With
End Sub

'lSteph

Greg a écrit :
Bonjour,

Est-il possible de créer des actions successives après les doubles-clics sur
la cellule?

Je m'explique: je souhaiterais qu'au premier double clic, une croix
apparaisse au centre de la cellule et que la cellule soit colorée en rouge.
S'il y a un nouveau double clic sur la cellule, la croix subsiste mais la
cellule redevient blanche.

Merci pour vos lumières...

Greg




Greg
Le #17963271
Merci Steph! Ca marche du tonnerre!

à+

Greg
Publicité
Poster une réponse
Anonyme