Un clic pour un A

Bonjour,

Serait-il possible en VBA d'écrire un code qui permettrait de cliquer dans une cellule pour y inscrire un A majuscule ou au contraire l'enlever s'il est présent ?

J'ai une zone concernée de A1 jusqu'à F31.

Merci d'avance. :roll:

Bonjour,

voici, à coller dans le module de la feuille concernée

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:F31")) Is Nothing Then If Target.Value = "A" Then Target.Value = "" Else Target.Value = "A" End If End If End Sub

---

le seul inconvénient, c'est que si tu cliques sur la cellule déjà sélectionnée, l'évènement ne se déclenche pas ... il faut d'abord changer de cellule

Bonjour Philippe, bonjour le forum,

Lle code ci-dessous à mettre dans le composant de l'onglet concerné (Feuil1(Feuil1)) :

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.Intersect(Target, Range("A1:F31")) Is Nothing Then Exit Sub Target.Value = IIf(Target.Value = "", "A", "") End Sub

---

Bonjour,
ou encore
avec un double click

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Target.Column <= 7 And Target.Row <= 31 Then If Target <> "" Then Target = "" Else Target = "A" End If End If   End Sub

---

Merci à vous trois c'est parfait !

Bonne journée,
@+ :zoubi: