Microsoft 365 Anomalie tri colonnes d’un tableau

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

JPC33

XLDnaute Junior
Les onglets Volière 1, Volière 2 Volière 3 sont semblables. Les macros « Tri » sont dans le module 3.

Les cellules B3 :B38 ne comportent pas de formules. Le tri alpha par cette colonne avec la macro « TriNF » est OK.

Les cellules C3 :C38 comportent des formules. Le résultat du tri alpha, avec la macro « TriNS », est en bas du tableau après les lignes vides ! La macro est-elle incomplète ou comment palier cette anomalie ?

Merci
 

Pièces jointes

Solution
TooFatBoy
Pour moi, ceci devrait suffire :
VB: 
Sub TriNoms()
'
    If Range("esp").ListObject.ListRows.Count = 0 Then Exit Sub

    Application.ScreenUpdating = False

    Sheets("Noms").Unprotect

    With Range("Tab_AB")
        If Not .ListObject.DataBodyRange Is Nothing Then .ListObject.DataBodyRange.Delete
        Range("esp[[NOM FRANÇAIS]:[NOM SCIENTIFIQUE]]").Copy
        .Cells(1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With

    With Range("Tab_AB").ListObject.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("Tab_AB[NOM FRANÇAIS]"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal...
Trier par date Trier par votes
Bonjour @JPC33🙂,

Vous utilisez des tableaux structurés et c'est bien👌.
Vous laissez tout un tas de lignes vides en fin de vos tableaux structurés et ce n'est pas bien du tout☹️.

Les TS ne sont pas conçus pour cela. Insérer une ligne en fin de TS a été pensé comme étant quelque chose de très simple.
  • on se place sur la dernière cellule du TS (en bas à droite) et on appuie sur la touche Tab
  • ou bien on saisit directement une valeur dans la première ligne vide sous le TS. La ligne est automatiquement incluse dans le tableau.

Une fois les lignes vides éliminées du TS, on n'a même plus besoin de macro pour trier le TS selon une colonne. On utilise les boutons du filtre automatique du TS.
 
Dernière édition:
Vote positif 2 Vote négatif
mapomme à dit:
Bonjour @JPC33🙂,

Vous utilisez des tableaux structurés et c'est bien👌.
Vous laissez tout un tas de lignes vides en fin de vos tableaux structurés et ce n'est pas bien du tout☹️.

Les TS ne sont pas conçus pour cela. Insérer une ligne en fin de TS a été pensé comme étant quelque chose de très simple.
  • on se place sur la dernière cellule du TS (en bas à droite) et on appuie sur la touche Tab
  • ou bien on saisit directement une valeur dans la première ligne vide sous le TS. La ligne est automatiquement incluse dans le tableau.

Une fois les lignes vides éliminées du TS, on n'a même plus besoin de macro pour trier le TS selon une colonne. On utilise les boutons du filtre du TS.
Cliquez pour agrandir...
Merci mapomme.
Je vais suivre vos conseils.
Bonne soirée
 
Vote positif 0 Vote négatif
Bonjour le forum et mapomme
Ci-joint mon fichier sans lignes vides. J’ai rajouté des boutons car les feuilles sont protégées à cause des formules dans certaines colonnes. La manip est contraignante mais évite les cata.
Dans la feuille Espèces, je rentre les noms puis clic sur le bouton rouge TriNoms. (Triage dans une feuille Noms)
Mais maintenant, lorsque je clique sur ce bouton TriNoms, la fenêtre suivante s’ouvre :
Cette cellule contient déjà des données. Voulez-vous les remplacer ? Oui non
Je vous remercie de vous pencher sur la solution.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour,

JPC33 à dit:
Mais maintenant, lorsque je clique sur ce bouton TriNoms, la fenêtre suivante s’ouvre :
Cette cellule contient déjà des données. Voulez-vous les remplacer ? Oui non
Cliquez pour agrandir...
C'est peut-être parce que tu utilises un TS et qu'il faudrait déprotéger la feuille avant d'inscrire le nouveau nom pour que ça crée une nouvelle ligne dans le TS.

Perso, je ne vois pas la fenêtre dont tu parles.


[edit] Au temps pour moi : je n'avais même pas vu le gros bouton rouge [TriNom] !... 🙄 [/edit]
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy à dit:
Bonjour,


C'est peut-être parce que tu utilises un TS et qu'il faudrait déprotéger la feuille avant d'inscrire le nouveau nom pour que ça crée une nouvelle ligne dans le TS.

Perso, je ne vois pas la fenêtre dont tu parles.


[edit] Au temps pour moi : je n'avais même pas vu le gros bouton rouge [TriNom] !... 🙄 [/edit]
Cliquez pour agrandir...
Bonjour TooFatBoy et merci de vous pencher sur mon problème.
 
Vote positif 0 Vote négatif
Barbatruc c'est uniquement par rapport au nombre de messages postés. Ca n'a rien à voir avec la qualité desdits messages. 😉


J'ai tout de même une question, qui n'a rien à voir avec ton problème de #4.
JPC33 à dit:
Dans la feuille Espèces, je rentre les noms puis clic sur le bouton rouge TriNoms. (Triage dans une feuille Noms)
Cliquez pour agrandir...
comment procèdes-tu exactement pour ajouter un nom dans ton tableau de la feuille "Espèce" ?
 
Vote positif 0 Vote négatif
TooFatBoy à dit:
Barbatruc c'est uniquement par rapport au nombre de messages postés. Ca n'a rien à voir avec la qualité desdits messages. 😉


J'ai tout de même une question, qui n'a rien à voir avec ton problème de #4.

comment procèdes-tu exactement pour ajouter un nom dans ton tableau de la feuille "Espèce" ?
Cliquez pour agrandir...
Dans la feuille Espèces, je rajoute une ligne avec le bouton Ajouter une ligne. Puis je rentre les noms français et scientifique d'une nouvelle espèce. Clic sur le bouton rouge TriNoms qui déclenche la macro TriNoms. Le tri s'effectue dans la feuille Noms et c'est là que ça bloque avec la demande Cette cellule contient…
 
Vote positif 0 Vote négatif
Une proposition à tester pour voir si ça fait vraiment ce que tu veux... :
VB: 
Sub TriNoms()
'
    If Range("esp").ListObject.ListRows.Count = 0 Then Exit Sub

    Application.ScreenUpdating = False

    Sheets("Noms").Unprotect

    With Range("Tab_AB")
        If Not .ListObject.DataBodyRange Is Nothing Then .ListObject.DataBodyRange.Delete
        Range("esp[[NOM FRANÇAIS]:[NOM SCIENTIFIQUE]]").Copy
        .Cells(1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With

    With ThisWorkbook.Worksheets("Noms").ListObjects("Tab_AB").Sort.SortFields
        .Clear
        .Add Key:=Range("Tab_AB[NOM FRANÇAIS]"), _
             SortOn:=xlSortOnValues, _
             Order:=xlAscending, _
             DataOption:=xlSortNormal
    End With

    With ThisWorkbook.Worksheets("Noms").ListObjects("Tab_AB").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Sheets("Noms").Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    Sheets("Espèces").Select

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy à dit:
Une proposition à tester pour voir si ça fait vraiment ce que tu veux... :
VB: 
Sub TriNoms()
'
    If Range("esp").ListObject.ListRows.Count = 0 Then Exit Sub

    Application.ScreenUpdating = False

    Sheets("Noms").Unprotect

    With Range("Tab_AB")
        If Not .ListObject.DataBodyRange Is Nothing Then .ListObject.DataBodyRange.Delete
        Range("esp[[NOM FRANÇAIS]:[NOM SCIENTIFIQUE]]").Copy
        .Cells(1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With

    With ThisWorkbook.Worksheets("Noms").ListObjects("Tab_AB").Sort.SortFields
        .Clear
        .Add Key:=Range("Tab_AB[NOM FRANÇAIS]"), _
             SortOn:=xlSortOnValues, _
             Order:=xlAscending, _
             DataOption:=xlSortNormal
    End With

    With ThisWorkbook.Worksheets("Noms").ListObjects("Tab_AB").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Sheets("Noms").Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
    Sheets("Espèces").Select

End Sub
Cliquez pour agrandir...
Impeccable la macro. Grand merci TooFatBoy
 
Vote positif 0 Vote négatif
Pour moi, ceci devrait suffire :
VB: 
Sub TriNoms()
'
    If Range("esp").ListObject.ListRows.Count = 0 Then Exit Sub

    Application.ScreenUpdating = False

    Sheets("Noms").Unprotect

    With Range("Tab_AB")
        If Not .ListObject.DataBodyRange Is Nothing Then .ListObject.DataBodyRange.Delete
        Range("esp[[NOM FRANÇAIS]:[NOM SCIENTIFIQUE]]").Copy
        .Cells(1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With

    With Range("Tab_AB").ListObject.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("Tab_AB[NOM FRANÇAIS]"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        .Apply
    End With

    Sheets("Noms").Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

    Sheets("Espèces").Select

End Sub
 
Vote positif 0 Vote négatif
Solution
TooFatBoy à dit:
J'ai l'impression que les deux derniers "With ... End With" font la même chose. Nan ?
Cliquez pour agrandir...
Là, vous m'en demandez trop car je suis une vraie bille dans les macros. Heureusement le forum, dont vous faites partie, est là!
TooFatBoy à dit:
Pour moi, ceci devrait suffire :
VB: 
Sub TriNoms()
'
    If Range("esp").ListObject.ListRows.Count = 0 Then Exit Sub

    Application.ScreenUpdating = False

    Sheets("Noms").Unprotect

    With Range("Tab_AB")
        If Not .ListObject.DataBodyRange Is Nothing Then .ListObject.DataBodyRange.Delete
        Range("esp[[NOM FRANÇAIS]:[NOM SCIENTIFIQUE]]").Copy
        .Cells(1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With

    With Range("Tab_AB").ListObject.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("Tab_AB[NOM FRANÇAIS]"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        .Apply
    End With

    Sheets("Noms").Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

    Sheets("Espèces").Select

End Sub
Cliquez pour agrandir...
C'est tout bon. Impeccable merci encore. Je joins le fichier terminé.
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Microsoft 365 Tri alpha de colonne
Réponses
7
Affichages
271
Phil69970
Phil69970
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
232
Paulle
P
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
569
MATLEA
M
A
  • Résolu(e)
Autres Tri tableau vba
Réponses
9
Affichages
164
sylvanu
sylvanu
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
812
Webperegrino
W
Phoenix23
  • Résolu(e)
XL 2021 Les résultats de 2 formules ne s'affichent plus.
Réponses
3
Affichages
170
sylvanu
sylvanu
G
  • Question Question
Microsoft 365 Validation des Données
Réponses
3
Affichages
297
AtTheOne
AtTheOne
oguruma
POWERQUERY :: Tris dynamiques, regroupements et somme
Réponses
1
Affichages
207
merinos-BernardEtang
merinos-BernardEtang
C
  • Résolu(e)
XL 2021 Tri Excel vs Macro
Réponses
9
Affichages
596
claudio54
C
Calvus
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
481
p56
p56
rastafouette
  • Question Question
Microsoft 365 "concatener" certaines colonnes d'onglets
2
Réponses
15
Affichages
947
Phil69970
Phil69970
AugusteP
  • Résolu(e)
XL 2021 Tri croissant avec des cellules vides comportant une formule et d'autre avec résultats
2
Réponses
15
Affichages
2 K
AugusteP
AugusteP
J
  • Question Question
XL 2019 EPS - gestion Séquence demi-fond
Réponses
4
Affichages
163
jeremy.lachdc
J
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
233
Pepepichnette69
P
J
  • Résolu(e)
Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel
Réponses
8
Affichages
402
JMC
J
S
  • Résolu(e)
XL 2010 tableau de cumul automatisé
Réponses
13
Affichages
566
stefiskool
S
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
264
vgendron
vgendron
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
497
chris63
C
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
315
fanch55
fanch55
Retour