Macro événementielle de sélection

Le
Emile63
Bonjour Í  tous,

Je cherche Í  sélectionner entièrement sa ligne et activer la cellule en cours, sélectionnée avec la souris dans une zone donnée.
Le problème avec cette macro événementielle, c'est que comme il y deux changement elle s'exécute 2 fois et donc ne fonctionne pas.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range

Set Plage = Intersect(Target, Range("B1:B400"))
If Plage Is Nothing Then Exit Sub

Rows(ActiveCell.Row).Select
ActiveCell.Offset(0, 1).Activate

End Sub
-
Je vous remercie d'avance pour les solutions possibles en dans l'attente de votre aide, vous souhaite une bonne soirée.
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
MichD
Le #26560279
Le 18/11/20 Í  12:10, Emile63 a écrit :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("B1:B400"))
If Plage Is Nothing Then Exit Sub
Rows(ActiveCell.Row).Select
ActiveCell.Offset(0, 1).Activate
End Sub
--------------------------------

Bonjour,
Essaie comme ceci :
'------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("B1:B400"))
If Not Plage Is Nothing Then
Application.EnableEvents = False
ActiveCell.EntireRow.Select
Application.EnableEvents = True
End If
End Sub
'------------------------------------------
MichD
MichD
Le #26560285
Utilise plutÍ´t ceci, j'avais pas lu la question.
'---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range
Set Plage = Intersect(Target, Range("B1:B400"))
If Not Plage Is Nothing Then
Application.EnableEvents = False
Rows(ActiveCell.Row).Select
ActiveCell.Offset(0, 1).Activate
Application.EnableEvents = True
End If
End Sub
'---------------------
MichD
Poster une réponse
Anonyme