Action double-clic pour insérer ou enlever une croix dans cellule

Question

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...

oxydum · Answer

C'est donc ça que tu veux faire : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Range("F9,F11,F13"), Target) Is Nothing Then Exit Sub If UCase(Target) = "X" Then Target = "" Else Target = "X" Cancel = True End Sub...