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

guizmalin · 17 Octobre 2012

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 · 17 Octobre 2012

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

Bonjour,

pour définir ta plage :

Code:

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 · 17 Octobre 2012

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

Code:

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

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

guizmalin

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

Pièces jointes

Discussions similaires