XL 2019 Tri sur une ligne dans un tableau.

Paulle · Samedi à 15:51

Bonjour,

Je souhaite faire un tri sur une ligne A, ou B, ou C, ………ou M de façon à regrouper les cellules contenant une valeur en conservant les dates dans un ordre croissant.

Si c’est une plage de données le tri par ligne est possible.
Mais si c’est un tableau le tri par ligne n’est pas possible, et j’aimerai bien que ce soit un tableau plutôt qu’une plage de données.

Et si possible, que je sélectionne une cellule dans la colonne A, et que le tri se fasse en cliquant sur un bouton déclenchant la macro.
Et pouvoir revenir au tableau d’origine.

J’ai commencé une macro, le tri est correct, mais il faut à chaque fois que je sélectionne une plage.

J’espère avoir été clair et pas en demander de trop.

Merci.

vgendron · Samedi à 17:03

remplace le code par celui-ci qui ne filtre QUE si tu as cliqué dans la première colonne

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    NomTab = Target.ListObject 'on récupère le nom de la table dans laquelle on a cliqué
    
    If NomTab = "" Then Exit Sub 'si on a cliqué hors de la table, on quitte
    Set TS = ActiveSheet.ListObjects(NomTab) 'on définit la table sur laquelle on travaille
    
    With TS
        If Intersect(Target, .ListColumns(1).Range) Is Nothing Then Exit Sub 'on si a cliqué ailleurs que dans la colonne 1
        lig = Target.Row - .Range.Row 'numéro de ligne à traiter
        For j = 2 To .ListColumns.Count 'pour chaque colonne...

vgendron · Samedi à 16:42

Hello

l'explication n'est pas très claire.. mais par chance;. ma boule de cristal est assez propore aujourd'hui :-D

1) j'ai transformé ton tableau en Table Structurée
2) je présume que les dates sur la ligne d'entete sont DEJA triées
3) dès que tu cliques dans la table, les colonnes "vides" de la ligne sont juste masquées

il suffit de cliquer dans la ligne d'entete pour revoir tout

Paulle · Samedi à 16:56

Merci, cela fonctionne mais si je rajoute une date au tableau, quand je clique sur une cellule le tri se fait et il est impossible d'entrer une valeur.
Peut-être que ta boule de cristal va pouvoir aider.

vgendron · Samedi à 17:03

remplace le code par celui-ci qui ne filtre QUE si tu as cliqué dans la première colonne

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    NomTab = Target.ListObject 'on récupère le nom de la table dans laquelle on a cliqué
    
    If NomTab = "" Then Exit Sub 'si on a cliqué hors de la table, on quitte
    Set TS = ActiveSheet.ListObjects(NomTab) 'on définit la table sur laquelle on travaille
    
    With TS
        If Intersect(Target, .ListColumns(1).Range) Is Nothing Then Exit Sub 'on si a cliqué ailleurs que dans la colonne 1
        lig = Target.Row - .Range.Row 'numéro de ligne à traiter
        For j = 2 To .ListColumns.Count 'pour chaque colonne
            .ListColumns(j).Range.EntireColumn.Hidden = (.DataBodyRange(lig, j) = "") 'on masque les colonnes vides
        Next j
    End With
End Sub

Paulle · Samedi à 17:09

C'est parfait.
Je suis admiratif pour cette facilité en vba.
Encore merci.

XL 2019 Tri sur une ligne dans un tableau.

Paulle

XLDnaute Occasionnel

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

Pièces jointes

Paulle

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Paulle

XLDnaute Occasionnel

Discussions similaires