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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

guizmalin

XLDnaute Nouveau
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
 
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
@+
 
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
Retour