XL 2016 Trier la colonne C par L'heure d'arrivee

[Martin11]

Bonjour,

je vais encore avoir besoin de vous, j'aimerai trier chauque partie ( Permanent, Footwear, App...) par ordre d'heure d'arrivee.

J'ai deja une VBA mais je n'arrive pas a la faire fonctionner

Sub macrotri()
Dim a As Range
On Error Resume Next
Set plage = ActiveSheet.Range(Columns("C")).SpecialCell(xlCellTypeConstants, 1)
For Each a In a.Areas
a.EntireRow.Sort a, xlAscending, Header:=xlNo
Next
End Sub

il y a t-il des erreurs ??

Merci

 

[job75]

Bonjour Martin11,

il y a t-il des erreurs ??

Oui, au moins 2, a n'est pas défini et il n'y a pas de nombres en colonne C.

A+

 

[Martin11]

Bonjour Martin11,

Oui, au moins 2, a n'est pas défini et il n'y a pas de nombres en colonne C.

A+

Bonjour JOB75

J'ai repris ce que tu m'avais fait dans une autre conversation

Sub Trier()
Dim a As Range
On Error Resume Next 'si aucune SpecialCell
Set a = Columns("C").SpecialCells(xlCellTypeConstants, 1)
For Each a In a.Areas
a.EntireRow.Sort a, xlAscending, Header:=xlNo
Next
End Sub


Mais cela ne fonctionne pas et je n'arrive pas à le faire fonctionner pourtant j'ai bien identifié la colonne C

J'ai changé une formule dans mon tableau, est ce que ça pourrait venir du changement de formule ?

Merci JOB 75

 

[haonv]

Bonjour Martin11, JOB75,

Un essai avec:

Sub macrotri()
Dim a As Range
On Error Resume Next
Set plage = ActiveSheet.Range("C:C").SpecialCells(xlCellTypeConstants, 1)
For Each a In plage.Areas
    a.Offset(, -1).Resize(, Range("B5").MergeArea.Count).Sort a, xlAscending, Header:=xlNo
Next
End Sub

Il faut Plage.areas et non pas a.areas.

Les cellules fusionnées (BM10,BP10) devaient gêner pour le tri des lignes complètes.
J'ai donc limité le tri aux colonnes du tableau.

Cordialement