Discussion :

[Philippe608]

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.

[joe.levrai]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

Bonjour Philippe, bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe608]

Merci à vous trois c'est parfait !

Bonne journée,
@+

[gnain]

Bonjour,
ou encore
avec un double click

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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