Bonjour à tous
je reviens vers vous après avoir pas mal avancé grâce à vous
J'ai un nouveau soucis:
dans une feuille, j'ai deux Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) dont les instructions sont très différentes
-une pour une plage F1:F60
-l'autre pour U7:U???? (définie par Range("U7").CurrentRegion.Resize(1, Range("U7").CurrentRegion.Columns.Count).Name = "Plage" )
et elles rentrent en conflit quand le double click
J'ai fais cela moi pour la procédure selectionChange
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range
Dim Plage1 As Range
Set Plage = Range("A1:L7")
If Application.Intersect(Target, Plage) Is Nothing Then
Else
Action
End If
Set Plage1 = Range("A77:J87")
If Application.Intersect(Target, Plage1) Is Nothing Then
Else
Action1
End If
End Sub
A voir si tu peux faire de même avec Worksheet_BeforeDoubleClick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:L7")) Is Nothing Then Action
If Not Application.Intersect(Target, Range("A77:J87")) Is Nothing Then Action1
End Sub