Masquer les 0 dans un classement alphabétique horizontal

Question

Grâce H2SO4, j'ai pu adapter une macro qui classe par ordre alphabétique une ligne de donnée, voici le code : Sub triligne() With ActiveWorkbook.Worksheets("Planning").Sort .SortFields.Clear .SortFields.Add Key:=Range("B1:AJ1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange Range("B1:AJ1") .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With End Sub Hors sur cette ligne il y a des valeurs mentionné 0, ce qui fait que lorsque je classe ma ligne par ordre alphabétique, j'ai une multitude de 0 en tete de ligne et seulement après les noms par ordre alphabétique. Comment pourrais t'on "masquer ces mentions 0 et garder uniquement les noms par ordre alphabétique? Merci bien par avance...

Docmarti · Accepted Answer

L'erreur que j'ai eu à l'ouverture est peut-être due à une mémoire insuffisante sur un ordi que j'utilise depuis peu, manque de mémoire causé possiblement par le nombre de formules dans ton fichier.

Le nouveau code est dans le fichier ci-joint.

Docmarti

21dyscus-classeur1.xlsm (36.18 Ko)

Docmarti · Answer

Il faut simplement faire 2 tris. Un premier tri descendant pour placer les 0 à la fin. Le second ascendant portera seulement sur le champ contenant les données différentes de 0. Sub triligne() 'Premier tri : descendant Set r = Range("B1:AJ1") 'Definit le champ a trier With ActiveWorkbook.Worksheets("Planning").Sort .SortFields.Clear .SortFields.Add Key:=r, _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal .SetRange r .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With 'Chercher le premier 0 For i = Cells(1, "B").Column To Cells(1, "Aj").Column If Cells(1, i) = 0 Then Set r = Range(Cells(1, "B"), Cells(1, i - 1)) 'Definit le champ a trier Exit For End If Next If i &gt; Cells(1, "B").Column Then 'Second tri : Ascendant With ActiveWorkbook.Worksheets("Planning").Sort .SortFields.Clear .SortFields.Add Key:=r, _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange r .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With End If End Sub Cordialement Docmarti...

Docmarti · Answer

Merci pour ton fichier. C'est effectivement plus facile quand on voit de visu.

Voici comment masquer les colonnes dont le titre est 0.

Sub triligne()

 'Premier tri : descendant
Set r = Range("B1:AJ1") 'Definit le champ a trier
'Affiche toutes les colonnes de ce champ
Range(Columns(r.Column), Columns(r.Columns.Count + r.Column - 1)).Hidden = False

       With ActiveWorkbook.Worksheets("Planning").Sort
            .SortFields.Clear
            .SortFields.Add Key:=r, _
                            SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
            .SetRange r
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
  'Chercher le premier 0
   For i = Cells(1, "B").Column To Cells(1, "Aj").Column

     If Cells(1, i) = 0 Then

      Set masquer = Range(Cells(1, i), Cells(1, "AJ")) 'Définir le champ à masquer

      Set r = Range(Cells(1, "B"), Cells(1, i - 1)) 'Definir le champ a trier

     Exit For
     End If

    Next
  If i > Cells(1, "B").Column Then
  'Second tri : Ascendant
       With ActiveWorkbook.Worksheets("Planning").Sort
            .SortFields.Clear
            .SortFields.Add Key:=r, _
                            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange r
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With

        'Masquer les colonnes dont le titre est 0
        Range(Columns(masquer.Column), Columns(masquer.Columns.Count + masquer.Column - 1)).Hidden = True
   End If

    End Sub

Docmarti

Docmarti · Answer

Je n'ai pas assez de détailsur cette erreur. Laisse tomber le code de mon précédent message. Utilise plutôt la procédure triligne modifiée qui se trouve dans le classeur ci-joint. Et dis-moi si elle provoque une erreur. Docmarti...

Docmarti · Answer

Oups. Un oubli. Remplace Set fPlanning = ActiveWorkbook.Worksheets("Planning3") par Set fPlanning = ActiveWorkbook.Worksheets("Planning")...

Docmarti · Answer

Si tu cliques sur le bouton TEST du classeur ci-joint, as-tu encore une erreur ? S,il y a une erreur, clique sur OK et pèse une fois sur la touche F8. Docmarti...

James007 · Answer

En parlant de classement alphabétique sans macro ... ci-joint une proposition .....

Docmarti · Answer

Je ne connais pas assez les formules pour pouvoir répondre sans avoir un classeur identique au classeur original. Essaie de déclarer toutes les variables : En remplaçant On Error GoTo errorhandler par On Error GoTo errorhandler Dim i As Long Dim fPlanning As Worksheet Dim r As Range Dim masquer As Range Cordialement Docmarti...

Docmarti · Answer

Le problème était dû au fait que les entêtes qui étaient censées afficher 0 n'affichaient pas 0 dans ton fichier original. Docmarti...

Docmarti · Answer

Dyscus Le fichier joint dans mon précédent message a été supprimé par moi. Car il semble représenter un problème de sécurité. Il ralentit considérablement le VBA Excel. Ce fichier était ton fichier original de ton dernier message que Excel a dû corrigé car il contenait une partie illisible. Tu devrais le supprimer de ton dernier message. Docmarti...