bonjour, j'ai un code sur mon fichier qui fonctionne a merveille, mon souci je souhaite , quand je fait ma recherche qui me range avant recherche l'ordre de la colonne du plus grand au plus petit nombre je vous mets le code si dessous
merci d'avance de votre aide
Private Sub CommandButton2_Click()
Dim Lig As Long
Lig = Sheets("Vos Commandes").Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With Sheets("Commande en cours")
.Range("K12:K2512:S12:S2512").ClearContents
.Range("I1") = "N° Semaine"
.Range("J1") = " Client"
.Range("k1") = "N°CDE TECHNAL"
.Range("L1") = "N°Affaire"
.Range("I2") = .Range("C6")
.Range("J2") = .Range("E6")
.Range("k2") = .Range("G6")
.Range("L2") = .Range("I6")
Sheets("Vos commandes").Range("C2: K2" & Lig).AdvancedFilter Action:=xlFilterCopy, _
'je pense sur la ligne ci dessus surement a modifier une chose
CriteriaRange:=.Range("I1:J2:K2:L2"), CopyToRange:=.Range("K12:S12"), Unique:=False
merci d'avance de votre aide
Private Sub CommandButton2_Click()
Dim Lig As Long
Lig = Sheets("Vos Commandes").Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With Sheets("Commande en cours")
.Range("K12:K2512:S12:S2512").ClearContents
.Range("I1") = "N° Semaine"
.Range("J1") = " Client"
.Range("k1") = "N°CDE TECHNAL"
.Range("L1") = "N°Affaire"
.Range("I2") = .Range("C6")
.Range("J2") = .Range("E6")
.Range("k2") = .Range("G6")
.Range("L2") = .Range("I6")
Sheets("Vos commandes").Range("C2: K2" & Lig).AdvancedFilter Action:=xlFilterCopy, _
'je pense sur la ligne ci dessus surement a modifier une chose
CriteriaRange:=.Range("I1:J2:K2:L2"), CopyToRange:=.Range("K12:S12"), Unique:=False