Créer une liste par ordre alphabétique

[frank1974]

Bonjour cher ami,

Je commence à me sentir mal à l'aise. Je reçoit tellement d'aide de votre part...

J'essai d'aider à mon tour, mais mon expérience est encore tellement limitée.

Vous trouverez ci-joint mon fichier avec les explications...

Bonne soirée!

Merci de votre précieuse collaboration, ce site est vraiment très professionnel 🙂

 

[BOISGONTIER]

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

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[DoubleZero]

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

Bonjour, frank1974, BOISGONTIER 🙂,

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

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 🙂

 

[frank1974]

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

Merci beaucoup JB

J'aime quand c'est si simple!!

 

[frank1974]

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??😕

 

[DoubleZero]

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

Re-bonjour,

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

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 🙂

 

[frank1974]

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

merci double 0