Tri decroissant

Bonjour le forum,

Comencant a connaitre le VBA, j'ai encore du mal a matriser toutes les subtilites des fonctions etc...

Aussi j'ai un bout de code qui me fait un tri croissant alors que je veux un tri decroissant...

Pourriew-vous me dire les instructions a mettre dans mon code pour avoir un tri decroissant SVP ?

Voila le code (se declenche par un double clic) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Sheets("Sheet1").Unprotect "safram"
Dim myRange As Range

Cancel = True

Set myRange = Range("D10").CurrentRegion

If Not Intersect(myRange, Target) Is Nothing Then
    myRange.Sort key1:=Cells(myRange.Cells(1).Row, Target.Column), Header:=xlYes
End If

Target.Select
Sheets("Sheet1").Protect Password:="safram", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Merci d'avance

Bonjour, remplace cette ligne :

  myRange.Sort key1:=Cells(myRange.Cells(1).Row, Target.Column), Header:=xlYes

par celle-ci :

  myRange.Sort key1:=Cells(myRange.Cells(1).Row, Target.Column), Order1:= xlDescending, Header:=xlYes

(je n'ai pas testé)

Comme toujours sur ce forum, reponse rapide et efficace

Merci beaucoup

Bonjour,

Un peu de lecture pour ce début d'après midi pluvieux.

Cdlt.

https://msdn.microsoft.com/fr-fr/library/office/ff840646.aspx

https://msdn.microsoft.com/fr-fr/library/office/ff834316.aspx

Merci bien.

Cependant je ne veux trier qu'a partir du certaine ligne, celles du dessus contenant plusieurs infos ainsi que des cellules fusionnees. Est-ce qu'il y a une instruction pour rajouter la ligne de depart ?