Evènement sur sélection ligne ou cellule
Résolu
Jazz
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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.
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
-
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-
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 -
-
-
