Merci Dubois !!!! ton code marche parfaitement , c'est tres aimable à toi et merci pour le temps que tu y a consacré
bonne journée
bonsoir , disposant du présent code qui me permet d'operer un tri sur la colonne C de me feuille lorsque je vide une ou plusieurs cellules de cette meme colonne tout en remontant successivement les plages de cellules se trouvant plus bas
si mon tableau est de dimension C6:D17 comment modifier ce code pour pouvoir operer un tri cette fois ci dans la colonne D
et non plus sur la colonne C ?
Public Flag As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lg&
Lg = Range("c" & Rows.Count).End(xlUp).Row
If Flag Then Exit Sub
If Not Application.Intersect(Target, Range("c6:d" & Lg)) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Flag = True
Range("c6:d" & Lg).Sort _
Key1:=Range("c6"), Order1:=xlAscending, _
Key2:=Range("d6"), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("c6").Activate
End If
Flag = False
End Sub
Merci