RESOLU -- TRI sur colonnes...

[jlppap]

Bonjour,
J'ai un fichier avec 12 feuilles (1/mois) et 1 feuille regroupant les fournis. avec leur total.
Pas de problème jusque là.
Cela se complique 😕 dès que je veux inclure dans la macro un tri sur 2 colonnes en fonction du mois sous lequel la macro est lancée.

J'ai laissé le minimum d'onglets, de données et de codes VB pour la clarté.

Si un d'entre vous pouvait m'aider, cela serait très sympa.

en pièce jointe un exemple du fichier.

MERCI d'avance.

 

[Guest]

Re : TRI sur colonnes...

Bonjour,

En nommant tes feuilles exactement comme des dates au format (mmm-yy) c'est à dire Janv-12, Fév-12, Mars-12 etc, avec accent et tout ce qu'il faut pour qu'excel puisse y voir une date, la macro suivante devrait suffire, elle fonctionne sur l'exemple joint.

(j'ai pas trop compris tes ordres de tri, à toi de corriger)

Sub CLASSE_FOURNIS()
 Dim strDateRecherche As String
 Dim idx As Variant
 strDateRecherche = "1-" & ActiveSheet.Name
 If IsDate(strDateRecherche) Then
    With Sheets("Classement Four")
        idx = Application.Match(CDate(strDateRecherche) * 1, .Rows(1), 0)
        If Not IsError(idx) Then
            .Range(.Cells(2, idx), .Cells(Rows.Count, idx).End(xlUp)).Resize(, 2).Sort _
                key1:=.Cells(2, idx), Order1:=xlDescending, _
                key2:=.Cells(2, idx + 1), Order2:=xlAscending, _
                Header:=xlYes
                
        End If
    End With
 End If
End Sub

A+

 

[jlppap]

RESOLU -- : TRI sur colonnes...

Bonjour,
et un grand merci.

Avec quelques petites modif. c'est parfait.

Bonne semaine à vous.