Discussion :

[albank]

Bonjour

J'ai fait une macro pour trier par rapport à deux colonnes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Tri()
    [A1].CurrentRegion.Sort _
        Key1:=[H1], Order1:=xlAscending, _
        Key2:=[A1], Order2:=xlAscending, _
        Header:=xlYes
End Sub

Je voudrai savoir si je peux faire le trie par rapport à un nom de colonne et non par par rapport a ça réf:
Dans mon code j'ai mis comme premiere trie H1.Dans mon tableau en H1 il y a le nom de la colonne qui est "offer" Donc je pensai faire ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Tri()
    nbColonnes = Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column  
    Dim coloffer As Integer 
    For i = 1 To nbColonnes
    If Cells(1, i).Text = "Offer" Then coloffer = i
    Next i
 
    [A1].CurrentRegion.Sort _
        Key1:=[cells(1,coloffer)], Order1:=xlAscending,
        Key2:=[A1], Order2:=xlAscending, _
        Header:=xlYes
End Sub

car la col Offer ne se trouve pas toujour en H.
Merci
Alban

[Minick]

Salut,

Quelque chose comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub Tri()
    Dim ColOffer As Range
 
    Set ColOffer = Rows(1).Find(what:="offer", LookIn:=xlValues, LookAt:=xlWhole)
 
    If Not ColOffer Is Nothing Then
        [A1].CurrentRegion.Sort _
            Key1:=ColOffer, Order1:=xlAscending, _
            Key2:=[A1], Order2:=xlAscending, _
            Header:=xlYes
    Else
        MsgBox "La colonne 'offer' n'as pas ete trouve.", vbOKOnly + vbCritical
    End If
End Sub

[albank]

Merci Minick
ça fonctionne trés bien.