comment filtrer par ordre alphabetique

[dilibare]

Bonjour,

voilà mon problème. J'ai une liste excel d'un petit millier de nom et aimerai avoir un filtre par odre alphabetique. Celui que je trouve avec excel est alphabetique, mais chaque nom est mentionné. Ce que je recherche, c'est un filtre, par exemple A, qui me montre tous les noma qui commencent par A, ou B ou C, etc.
j'espère avoir été assez clair.
Je vous remercie de votre aide et vous souhaite une bonne journée.

 

[Staple1600]

Re : comment filtrer par ordre alphabetique

Re


Je te conseille de lire un tutoriel sur l'utilisation du filtre automatique et du filtre élaboré.
(Fais une recherche sur le net)

 

[dilibare]

Re : comment filtrer par ordre alphabetique

merci Staple1600,

alors soit des fonctions sont désactivés soit je suis vraiment nul.
J'ai suivi ton info à la lettre, sans aucune difficulté, mais le résultat n'est pas celui escompté. les filtres restent les mêmes que sans macro. Cad, je n'ai pas la première lettre seulement, mais tous les noms qui se suivent.
J'avoue que je suis un peu paumé.
desolé de revenir la dessus, mai aurais-tu une idée sur la manière d'utilisé le fichier de Boisgontier (plus haut)
merci de ton aide.

 

[Staple1600]

Re : comment filtrer par ordre alphabetique

RE


Il faut exécuter la macro une seule fois

Ensuite on change la lettre en allant sur la cellule C1 et on choisit la lettre de son choix pour trier.

Encore une fois, ce n'est qu'un exemple pour illustrer l'emploi du filtre élaboré avec une une formule comme critère.

Pour qui connait le filtre élaboré, nul besoin de macros.

J'ai spécialement créé cette macro pour créer un exemple.

Ensuite il faut comprendre comment fonctionne le filtre élaboré.

PS: je repasserai plus tard, e n espérant que d'ici là tu auras trouvé comment cela fonctionne car cela fonctionne.

 

[dilibare]

Re : comment filtrer par ordre alphabetique

Staple1600,

super, je ne conaissais pas ces filtres élaborés. Cela me donne le résultat souhaité. Le seul problème que j'ai c'est que je n'arrive pas maintenir un filtre actif qui me permette de choisir la lettre. il me faut ce résultat mais en moins de manipulation, car à chaque fois recréer le filtre n'est pas compatible avec mon travail.

toutefois merci de ton aide, je vais approfondir cette histoire de filtre élaborés.

 

[dilibare]

Re : comment filtrer par ordre alphabetique

Bonjour,

mon souci est resolu, un collègue m'est venu en aide. il a créé une macro que j'ai copié ci-dessous.
merci de votre aide et bonne journée à tous



Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'If not quick filter exit sub
If Excel.Application.Intersect(Target, Me.Range("QuickFilter")) Is Nothing Then Exit Sub

'Quick filter activated

Dim tg As String
Dim fld As Integer
Dim filter As Excel.filter

fld = Target.Column - Me.Range("QuickFilter").Cells(1, 1).Column + 1


tg = Target.Value
If UCase(tg) = "NONE" Or tg = Empty Then
Me.AutoFilter.Range.AutoFilter fld
Else
Me.AutoFilter.Range.AutoFilter fld, "=" & tg & "*"
End If



End Sub

 

[Staple1600]

Re : comment filtrer par ordre alphabetique

Bonjour dilibare, le fil, le forum

Merci pour le feedback et à ton collègue

dilibare
PS: tu peux utiliser les balises ci-dessous pour rendre ton message plus agréable à lire
[NOPARSE]

[/NOPARSE]
[I][SIZE=3][COLOR=slategray][B]Ici mettre le code VBA de ta macro[/B][/COLOR][/SIZE][/I]
[NOPARSE]

[/NOPARSE]

Ce qui aura pour effet ceci:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tg$, fld%, filter As Excel.filter
    'If not quick filter exit sub
    If Excel.Application.Intersect(Target, Me.Range("QuickFilter")) Is Nothing Then Exit Sub
    'Quick filter activated
    fld = Target.Column - Me.Range("QuickFilter").Cells(1, 1).Column + 1
    tg = Target.Value
    If UCase(tg) = "NONE" Or tg = Empty Then
        Me.AutoFilter.Range.AutoFilter fld
    Else
        Me.AutoFilter.Range.AutoFilter fld, "=" & tg & "*"
    End If
    End Sub