Discussion :

[a.ouguerzam]

Bonjour,

J'aimerai bien faire en vba un scripte qui permet de filtre une colonne qui porte le nom TOTAL et qui n'est pas stable elle peux être sur la colonne 2 comme elle peux être sur la colonne 100

Merci d'avance de votre collaboration

Cet,
Abdel

[Ashireon]

bonjour,
la colonne total apparaît une et une seule fois par feuille ? toujours sur la même ligne? la taille de la colonne de tableau est elle fixe ou aléatoire?
si on classe par ordre de valeur il est bien entendu que toutes les lignes associés se classe en référence à cette colonne?
tes zones sont elle déclarées dans des tableaux ?
as tu beaucoup de feuilles a gérer? car sinon le plus simple c'est d’inserer des tableaux automatique et de faire les classement par ceux ci.

++

[a.ouguerzam]

La colonne apparaître une seul fois dans la feuille et dans la 1er ligne sauf son emplacement comme j'ai dit peux être dans la colonne T ou la colonne Z

Une petite précision je travail sur un seul tableau

[antonysansh]

Bonjour a.ouguerzam,

Voila un exemple qui fait ce que tu cherche a faire je crois :

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
Sub filtrer_courant()
 
Dim rg As Range
 
With Sheets("nom de feuille")
    'enleve les filtres s'il y en a
    If .FilterMode = True Then
        .ShowAllData
    End If
    'recherche de la colonne a filtrer
    Set rg = .Rows("1:1").Find(What:="TOTAL", LookAt:=xlWhole)
    'Filtre sur la colonne trouvée
    ActiveSheet.Range("$A$2:$EC$19819").AutoFilter Field:=rg.Column, Criteria1:="valeur"
End With
 
End Sub

Antony

[a.ouguerzam]

J'ai juste besoin d'une petite précision sur la partie

Code :

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

ActiveSheet.Range("$A$2:$EC$19819").AutoFilter Field:=rg.Column, Criteria1:="valeur"

"Valeur" moi je ai besoin de faire un filtre du grand au petite à la basse sont des chiffres

En effet j'ai trouvé un dèbogage sur la ligne qui cherche la colonne à filtre selon le critère "Total"

[a.ouguerzam]

Ci joint une image qui peut explique un peu la problématique

[Philippe Tulliez]

Bonjour,
Au vu de ton illustration, l'étiquette "Total" est en ligne et pas en colonne or un filtre qu'il soit simple ou avancé se fait sur les étiquettes de colonnes.
Tu as induit tout le monde en erreur en parlant de colonne dans ta question initiale

J'aimerai bien faire en vba un scripte qui permet de filtre une colonne qui porte le nom TOTAL et qui n'est pas stable elle peux être sur la colonne 2 comme elle peux être sur la colonne 100

[antonysansh]

Cette fois ça tri sur la colonne qui a pour en-tete "TOTAL" en premiere ligne :

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
17
18
19
20
21
22
23
24
25
26
27
28
Sub filtrer_courant()
 
Dim rg As Range
 
With Sheets("nom de feuille")
    'enleve les filtres s'il y en a
    If .FilterMode = True Then
        .ShowAllData
    End If
    'recherche de la colonne a filtrer
    Set rg = .Rows("1:1").Find(What:="TOTAL", LookAt:=xlWhole)
 
    .AutoFilter.Sort.SortFields.Clear
    .AutoFilter.Sort.SortFields.Add _
        Key:=rg, _
        SortOn:=xlSortOnValues, _
        Order:=xlDescending, _
        DataOption:=xlSortNormal
    With .AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
 
End Sub

[Theze]

Bonjour,

Déjà, pour faire un filtre il faut savoir sur quel(s) critère(s). Tu es sûr que c'est bien d'un filtre que tu veux ou alors c'est d'un tri ? Ce n'est pas la même chose.

Hervé.

[a.ouguerzam]

Je m'excuse pour l'erreur et la conduite vers l'erreur
Mais mon filtre il fonctionne pas pas malgré l'aide de antony je vais essayé de joindre le fichier pour mieux gère vu que je bosse juste sur une tablette

A hhhj oui thème c'est un tri des chiffres du plus grand ô plus petit

Voilà le fichier

[Theze]

A hhhj oui thème c'est un tri des chiffres du plus grand ô plus petit

C'est bien ce qui me semblais !

Hervé.

[a.ouguerzam]

Une petite précision la colonne total change de place selon les donnés peut être dans la colonne À comme peut être dans la colonne Z

[Theze]

Je viens d'ouvrir ton classeur et c'est quel "Total" qui est à prendre en compte pour le tri (A-Z), celui en colonne P ou celui en ligne 13 ? Si c'est celui qui est en colonne P, pas de problème car c'est logique mais dans le cas de la ligne 13, c'est un peu plus complexe car il faut déplacer les colonnes vu que ce n'est pas un tri "standard" !

Hervé.

[Philippe Tulliez]

Bonjour,
Pour trouver la position d'un étiquette de colonne présente sur la première ligne d'une liste de données, tu peux utiliser la méthode Find mais également la fonction Match
Exemple

Code :

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

1
2
3
4
5
 Dim LblColumn As Integer
 ' Renvoie le n° de la colonne contenant l'étiquette SALAIRE
 On Error Resume Next
 LblColumn = Application.WorksheetFunction.Match("Salaire", ActiveSheet.Range("A1:J1"), 0)
 If Err Then MsgBox "Etiquette non trouvée": Exit Sub ' Sortie de programme si non trouvé

Dans cet exemple, la recherche se fait sur la plage A1:J1 de la feuille active. Si l'on souhaite que la procédure calcule automatiquement la plage de la première ligne en supposant que la première cellule de la liste commence en A1.
Soit

Code :

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

1
2
3
4
5
6
7
 Dim LblColumn As Integer, rng As Range, rngLabel As Range
 ' Renvoie le n° de la colonne contenant l'étiquette SALAIRE
 Set rng = ActiveSheet.Range("A1").CurrentRegion
 Set rngLabel = rng.Resize(1)
 On Error Resume Next
 LblColumn = Application.WorksheetFunction.Match("Salaire", rngLabel, 0)
 If Err Then MsgBox "Etiquette non trouvée": Exit Sub ' Sortie de programme si non trouvé

On peut également utiliser la propriété Rows
Exemple

Code :

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

1
2
3
4
5
6
7
 Dim LblColumn As Integer, rng As Range, rngLabel As Range
 ' Renvoie le n° de la colonne contenant l'étiquette SALAIRE
 Set rng = ActiveSheet.Range("A1").CurrentRegion
 Set rngLabel = rng.Rows(1)
 On Error Resume Next
 LblColumn = Application.WorksheetFunction.Match("Salaire", rngLabel, 0)
 If Err Then MsgBox "Etiquette non trouvée": Exit Sub ' Sortie de programme si non trouvé

[a.ouguerzam]

Non très simple total de la colonne P

[Philippe Tulliez]

Bonjour,
Manifestement ce n'est pas un filtre que tu souhaites mais un tri.
A tout hasard, une contribution intitulée Procédure de tri - Excel 2003-2010 où tu trouveras une procédure de tri (Horizontal ou vertical) permettant de faire un tri croissant et/ou décroissant et d'autres possibilités expliquées. Un classeur exemple est téléchargeable.

[a.ouguerzam]

Oui j'ai bien précise Dans mon message que c'est un tri

[Philippe Tulliez]

Bonjour

Oui j'ai bien précise Dans mon message que c'est un tri

Le titre de ta discussion intitulée "Filtrage d'une colonne qui porte le nom TOTAL de plus grand ô petit via vba" laisse pourtant sous-entendre que c'est le filtre qui prime.
Une question simple et bien posée se résume souvent à maximum cinq interventions

[a.ouguerzam]

Vraiment je suis bloqué dans le tri par vba j'essaye d'automatiser mon fichier avec du vba vu que après j'aurai beaucoup de donnes

[Philippe Tulliez]

Bonjour,
Lis-tu les réponses que l'on te donne ?
Je t'ai proposé d'aller voir une contribution qui te permettra d'effectuer tous les tris que tu souhaites.