Evènement sur sélection ligne ou cellule

Résolu/Fermé
Jazz - 22 nov. 2011 à 12:21
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 23 nov. 2011 à 09:37
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.
A voir également:

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
22 nov. 2011 à 13:41
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
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 22/11/2011 à 22:07
C'est bien le cas du code proposé !

essaies le dans un nouveau classeur si tu as un doute !
0
Bonjour,
j'ai essayé ton code et je l'ai adopté; ça marche. Merci mille fois.
Bonne journée.
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
23 nov. 2011 à 09:37
De rien, à te relire sur le Forum
0