Déplacer en fin de tableau si Résolu

Question

Bonsoir à toutes et tous.

Je voudrais une macro pour un bouton:

Dans ma colonne A:

1) Que tout ce qui n'est pas une date se retrouve en bas de tableau.
(après les dates)
2) Effectuer un tri sur cette colonne de la date la plus ancienne à la plus récente.
(Comme un tri A-Z)

Merci.

Bonne semaine.

Configuration: Windows / Firefox 40.0

Patrice33740 · Answer

Bonjour,

En supposant qu'il s'agit d'un tableau multi-colonnes avec des titres de colonnes, essaies ce code   
Sub TriSpécial()
Dim t() As Variant
Dim r As Range
Dim c As Long
Dim i As Long
  
  Set r = Range("A1").CurrentRegion
  c = r.Columns.Count
  r.Resize(, 2).Offset(0, c).Clear
  t = Application.Transpose(r.Columns(1).Value)
  For i = LBound(t) + 1 To UBound(t)
    If IsDate(t(i)) Then
      r(i, c).Offset(0, 1).FormulaLocal = t(i)
    Else
      r(i, c).Offset(0, 1).Value = ""
      r(i, c).Offset(0, 2).NumberFormat = r(i, 1).NumberFormat
      r(i, c).Offset(0, 2).FormulaLocal = r(i, 1).FormulaLocal
    End If
  Next
  Set r = Range("A1").CurrentRegion
  r.Sort Key1:=r(1, c + 1), Order1:=xlAscending, _
         Key2:=r(1, c + 2), Order2:=xlAscending, _
         Header:=xlYes
  r.Resize(, 2).Offset(0, c).Clear

End Sub

Viking58 · Answer

Bonjour Patrice.
Que veut dire "r" ?

Déplacer en fin de tableau si

2 réponses

Newsletters