Evènement sur sélection ligne ou cellule

Résolu
Bonjour,
sous VBA EXCEL je veux faire apparaître un Msgbox si une ligne entière est sélectionnée, avec : if ActiveCell.EntireRow.Select Then ...., le message apparaît bien.
Mais si je clique sur une cellule, le message apparaît aussi, et 2 fois ?
Merci d'éclairer la lanterne d'un amateur.

2 réponses

  1. Dans le module de feuille :
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.EntireRow.Address = Selection.Address Then
        MsgBox "Ligne sélectionnée"
      End If
    End Sub
    
    1. Bonsoir, mon message est destiné à prévenir l'utilisateur de ne pas supprimer la ligne lorsqu'il la sélectionne entièrement (dans la marge). Par contre, s'il sélectionne une cellule, le msg ne doit pas apparaître. Or, non seulement ce msg apparaît, mais il apparaît 2 fois, même en mettant exit sub après le msgbox.
      Syntaxe : If ActiveCell.EntireRow.Select Then Msgbox "Attention.. " Exit Sub End If. Merci
    2. C'est bien le cas du code proposé !

      essaies le dans un nouveau classeur si tu as un doute !
  2. Bonjour,
    j'ai essayé ton code et je l'ai adopté; ça marche. Merci mille fois.
    Bonne journée.
    1. De rien, à te relire sur le Forum