classement alphabétique automatisé

[rounil09]

Bonjour la liste et merci par avance de votre aide. Je plante...

La feuille1 du fichier joint, porte en colonne B une liste de noms ; en colonne A, l'indication "CCE", figure en regard de certains d'entre eux.

Question : comment (en feuille2) classer par ordre alphabétique, à l'aide de fonctions, et les uns à la suite des autres, la liste des noms qui ont l'indication "CCE" en regard, sachant que cette liste devra se reclasser automatiquement lors de modifications ou rajouts apportés sur les colonnes A et B de la feuille1.

 

[vbacrumble]

Re : classement alphabétique automatisé

Bonsoir


Pas de filtre élaboré envisagé ? pas de macro possible ?

Car si oui pour la macro, voici une solution
(implique qu'il y ait des entêtes dans ton tableau en A1 et B1, feuille 1)

Sub triCCE()
[COLOR="Green"]'merci bhbh ;-)[/COLOR]
Range("A1:B" & [A65000].End(xlUp).Row).Name = "base"
[D1] = [A1]: [D2] = "CCE"
With Sheets(2)
    Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("D1:D2"), _
        CopyToRange:=.Range("A1:B1"), Unique:=False
    .Range("B2:B" & [B65536].End(xlUp).Row).Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
[D1:D2].ClearContents
End Sub

 

[Monique]

Re : classement alphabétique automatisé

Bonjour,

Regarde si ça va
Formules matricielles, à valider par ctrl, maj et entrée

 

[rounil09]

Re : classement alphabétique automatisé

Merci (en retard car j'ai du m'absenter) pour vos deux réponses.
Je regarde vos solutions et reviens vers vous au besoin.