Créer une liste par ordre alphabétique

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Mars 2012

• #2

Re : Créer une liste par ordre alphabétique

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

Pièces jointes

• Copie de Frankliste.xls

  40 KB · Affichages: 63

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 3 Mars 2012

• #3

Re : Créer une liste par ordre alphabétique

Bonjour, frank1974, BOISGONTIER ,

Une autre suggestion en pièce jointe, grâce au filtre élaboré.

Code:

Sub Oui_pour_qui()
Application.ScreenUpdating = False

With Sheets("00")
.Activate
.Columns("A:B").Clear
.Range("G1") = "Nuit"
.Range("G2") = "Oui"
End With

Sheets("Feuil1").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
  CriteriaRange:=Range("G1:G2"), CopyToRange:=Range("A1"), Unique:=True
Columns("A:B").EntireColumn.AutoFit

Range("a1").CurrentRegion.Borders.Value = 1
Range("A:A").Sort Range("A1"), xlAscending, Header:=xlYes
Application.ScreenUpdating = True
End Sub

A bientôt

 

Pièces jointes

• 00 - frank1974 - Filtrer.xls

  61 KB · Affichages: 55

Vote positif 0 Vote négatif

F

frank1974

XLDnaute Nouveau

• 3 Mars 2012

• #4

Re : Créer une liste par ordre alphabétique

Merci beaucoup JB

J'aime quand c'est si simple!!

 

Vote positif 0 Vote négatif

F

frank1974

XLDnaute Nouveau

• 3 Mars 2012

• #5

Re : Créer une liste par ordre alphabétique

Merci à vous deux.

Laquelle des deux formules est la plus stable sur différente version d'Excel??

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 3 Mars 2012

• #6

Re : Créer une liste par ordre alphabétique

Re-bonjour,

frank1974 à dit:

...Laquelle des deux formules est la plus stable sur différente version d'Excel??

Cliquez pour agrandir...

Je ne sais répondre à cette question.

N. B. : Avec les deux propositions émises, la requête est lancée par macro.

Bon courage et à bientôt

 

Vote positif 0 Vote négatif

F

frank1974

XLDnaute Nouveau

• 3 Mars 2012

• #7

Re : Créer une liste par ordre alphabétique

merci double 0

 

Vote positif 0 Vote négatif