Case à cocher

Bonsoir,

Ci-joint un classeur pour vous expliquer ce que je recherche.

Je voudrais sur une zone définie "en jaune" en colonne et en ligne mettre par un clic un seul "A" dans la cellule concernée puis renvoyer le chiffre au dessus en N4, de même en N3 pour les lettres.

Je voudrais réaliser ça de cette façon sans passer par un groupe d'option et case à cocher Excel.

En VBA ça doit être possible ?

Merci d'avance,

Philippe

Bonjour,

copier cette macro sur la page code de la feuille,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("D3:K14"))
If Not isect Is Nothing Then
  If Cells(Target.Row, 3) = "A" Then Cells(Target.Row, 3) = "" Else Cells(Target.Row, 3) = "A"
  If Cells(2, Target.Column) = "A" Then Cells(2, Target.Column) = "" Else Cells(2, Target.Column) = "A"
  Cells(3, "N") = Cells(Target.Row, 2).Value
  Cells(4, "N") = Cells(1, Target.Column).Value
End If
End Sub

est ce que ça convient ?

Merci beaucoup; ça me convient.

Bonne soirée

Philippe

merci pour ce retour et bonne continuation, @+ isabelle

ps/ s.v.p. n'oublie pas de marquer la question comme étant résolu (un clic sur le bouton V vert)