Macro pour des signes par double clic sur une plage de cellules

[guizmalin]

Bonjour,
Je souhaiterais que, sur une plage de cellule A5:AF43, le premier double clic fasse apparaître le signe "-" dans la cellule cliquée, le deuxième double clic un "|", le troisième un "+" et le quatrième rien (""). J'ai bidouillé une macro pour l'adapter aux quatre signes et ça fonctionne (ci-dessous) mais je n'arrive pas à définir la plage de cellules. Merci d'avance.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sign()
sign = Array("", "-", "|", "+")
On Error GoTo Signe
Target.Value = sign(Application.WorksheetFunction.Match(Target.Value, sign, 0) Mod 4)
Cancel = True
Exit Sub
Signe:
Target.Value = sign(1)
Cancel = True
End Sub

 

[Pierrot93]

Re : Macro pour des signes par double clic sur une plage de cellules

Bonjour,

pour définir ta plage :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:AF43")) Is Nothing Then
    'ton code
End If
End Sub

bon après midi
@+

 

[JBARBE]

Re : Macro pour des signes par double clic sur une plage de cellules

Bonjour,

Un choix de double clic pour x et redouble clic pour "" ( à modifier à ta convenance)!

Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("zcoche"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
  Target = "x"
  Cancel = True
Else
 If Target = "x" Then
 Target = ""
 Cancel = True
 End If
End If
End Sub