Evènement sur sélection ligne ou cellule

Résolu
Jazz -  
Patrice33740 Messages postés 8561 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.
A voir également:

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
Jazz
 
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
C'est bien le cas du code proposé !

essaies le dans un nouveau classeur si tu as un doute !
0
Réponse 2 / 2
Jazz
 
Bonjour,
j'ai essayé ton code et je l'ai adopté; ça marche. Merci mille fois.
Bonne journée.
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
De rien, à te relire sur le Forum
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses
Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses