macro tri alpha

[polisconne]

Bonjour,
je voudrais faire une macro pour trier par ordre alphabétique un tableau et que les cellules vides de noms ne se retrouvent en haut.
Le tableau est lié à un autre.
J'ai déjà posé la question mais la macro proposée ne fonctionne pas bien.
J'attends votre réponse.
Merci d'avance
JYD

 

[JCGL]

Re : macro tri alpha

Bonjour à tous,

J'attends votre réponse.
Merci d'avance

J'attends ton fichier. Comment savoir sur quelle colonne doit s'opérer le tri ?

A+ à tous

 

[Staple1600]

Re : macro tri alpha

Bonjour à tous


JCGL: (salutations et bon appétit )
La fichier doit être ici
https://www.excel-downloads.com/threads/re-probleme-macro-de-tri.205336/
C'est plus simple ainsi, non ? Cela nous promène sur XLD et ses fils doublons

 

[JCGL]

Re : macro tri alpha

Bonjour à tous,

Réactivation de tous les boutons et je ne constate pas souci si cellules vides

Sub Tri_Noms()
With ActiveSheet
    .Unprotect "3132"
    .Range("A8:O42").Sort Key1:=.Range("B8"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(7, 2).Select
End Sub


Sub Tri_Classes()
With ActiveSheet
    .Unprotect "3132"
    .Range("A8:O42").Sort Key1:=.Range("A8"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(7, 2).Select
End Sub


Sub Tri_Equipes()
With ActiveSheet
    .Unprotect "3132"
    .Range("A8:O42").Sort Key1:=.Range("E8"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(7, 2).Select
End Sub


Sub Tri_Equipes_Liste()
With ActiveSheet
    .Unprotect "3132"
    .Range("A6:E40").Sort Key1:=.Range("E6"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(5, 2).Select
End Sub


Sub Réinitialiser()
Reponse = MsgBox("Etes-vous sûr de vouloir tout supprimer", vbQuestion + vbYesNo)
If Reponse = vbYes Then
Feuil1.[A6:E40,E2:H2,E3,H3].ClearContents
Feuil2.[F8:J42,M8:O42].ClearContents
End If
End Sub

A+ à tous

 

[polisconne]

Re : macro tri alpha

Bonjour à tous,



J'attends ton fichier. Comment savoir sur quelle colonne doit s'opérer le tri ?

A+ à tous

Ok en voilà 1.
Onglet bilan.
merci d'avance

 

[JCGL]

Re : macro tri alpha

Bonjour à tous,

Voir le fichier joint

A+ à tous

 

[polisconne]

Re : macro tri alpha

Bonjour

merci, je vais essayé de comprendre, il me semble que je mettais la même formule.
Bien à vous tous
JYD

 

[polisconne]

Re : macro tri alpha

Bonjour,
si je veux reproduire la même formule sur d'autres fichiers, que dois je faire? Les chiffres écrits en haut des colonnes correspondent à quoi?
A+ et merci encore d'avance
JYD

 

[JCGL]

Re : macro tri alpha

Bonjour à tous,

Ce sont des formules qui servaient à trouver la dernière ligne.
Tu peux les effacer et remplacer les codes du module de la feuille "Bilan" par :

Private Sub CommandButton1_Click()
Dim DerL&
DerL = Application.WorksheetFunction.CountIf(Range("A8:A43"), ">0") + 7
ActiveSheet.Unprotect "3132"
    Range("A7:L" & DerL).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.Protect "3132", True, True, True
End Sub

Private Sub CommandButton2_Click()
Dim DerL&
DerL = Application.WorksheetFunction.CountIf(Range("A8:A43"), ">0") + 7
ActiveSheet.Unprotect "3132"
    Range("A7:L" & DerL).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.Protect "3132", True, True, True
End Sub

A+ à tous

 

[polisconne]

Re : macro tri alpha

Merci, je vais essayé.
bien entendu ces formules sont reconnues par 2010?
A bientôt
JYD

 

[polisconne]

Re : macro tri alpha

Bonjour JCGL

il y a un truc que je ne comprends pas. Quand je tri alphabétique avec tes dernières formules, ça marche mais pas pour la 1ère qui ne change pas!
Comment est ce possible.

Sub trialpha()
Dim DerL&
DerL = Application.WorksheetFunction.CountIf(Range("A8:A43"), ">0") + 7
ActiveSheet.Unprotect "3132"
Range("A7:L" & DerL).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.Protect "3132", True, True, True
End Sub

je joins à nouveau mon fichier.
Merci
JYD

 

[MJ13]

Re : macro tri alpha

Bonjour à tous

Il faut peut-être mettre à XLNo.

 Header:=xlYes