Double-clic réservé à 3 cellules

[kadelmalin]

Bonjour,
j'ai appliqué cette petite procédure à ma feuille, mais je voudrai que le double-clic ne concerne que les cellules E59, E61 et E63.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub

 

[Paf]

Re : Double-clic réservé à 3 cellules

Bonjour,

Une solution:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Count = 1 And Not Intersect(Target, Range("E59,E61,E63")) Is Nothing Then
    Target.Value = IIf(Target.Value = "X", Empty, "X")
 End If
 Cancel = True
End Sub

A+

 

[kadelmalin]

Re : Double-clic réservé à 3 cellules

Bonjour,
Merci Paf pour la solution, j'en ai trouvé une mais elle était plus laborieuse.
A+

 

[kadelmalin]

Re : Double-clic réservé à 3 cellules

Bonsoir,
La procédure a très bien marché, sauf que le curseur a été désactivé. J'ai cliqué dans la cellule E19 pour modifier un caractère, mais le curseur manquait à l'appel. Que dois-je faire ? merci

 

[Guest]

Re : Double-clic réservé à 3 cellules

Bonjour,

Mettre la ligne ' Cancel = True' Entre le If et le End If.

A+

 

[kadelmalin]

Re : Double-clic réservé à 3 cellules

bnj,
tout est rentré dans l'ordre maintenant. Merci beaucoup Hasco du coup de pouce et de la célérité avec laquelle vous m'avez répondu.