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
End Sub
-------------------------------------------------------------------
Je vous remercie d'avance pour les solutions possibles en dans l'attente de votre aide, vous souhaite une bonne soirée.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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
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
'------------------------------------------
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
'------------------------------------------
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
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
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
'---------------------
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
