Bonjour à tous,
Je suis en train de créer un formulaire de saisie pour le transfert de courrier interne à ma boite où des cellules sont à cocher.
J'ai pu trouver sur divers forum ces petits codes qui me mettent en bonne voix.
Comme on est jamais assez satisfait du résultat final… mais surtout que mes collègues sont les champions pour aller cliquer là où il ne faut pas, je souhaiterais limiter l'action "double clic" à des cellules spécifiques telles que:
("F9"; "F11"; "F13"; "F15"; "F17"; "M9"; "M11"; "M13"; "M15"; "T9", "T11"; "T13"; T15")
Voilà les codes trouvés sur le web:
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'If Intersect(Range("A1:IV65536"), Target) Is Nothing Then Exit Sub
'If ActiveCell.Value = "" Then ActiveCell.Value = "X"
'End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If UCase(Target) = "X" Then Target = "" Else Target = "X"
Cancel = True
End Sub
Le deuxième code est génial, dans le sens où je peux mettre et enlever la croix en "double-cliquant".
J'aimerais garder cette action.
Merci de l'attention que vous portez déjà à ma demande et espère vous lire bientôt !
Cordialement
Willau