Macro pour trier un tableau

Bonjour,

J'ai besoin de votre aide, j'explique mon problème dans le fichier excel, en gros c'est un tri. C'est un petit exemple mais j'aurai besoin d'implémanter l'algorithme obtenue avec cette exemple sur une base de donnée plus importante.

Ne tenez pas compte des siginification (jours, nombre...), c'est juste pour l'exemple.

J'ai un début de code mais c'est minable...

Merci d'avance

Bonsoir,

Vous trouverez certainement mieux mais pour patienter...

Option Explicit

Sub Filtre()
Dim Data() As Variant, Lg%, I%, J%, K As Byte
  I = 1
  J = 0
  With Sheets(2)
  Lg = .Range("A1000").End(xlUp).Row - 1
  ReDim Data(Lg, 3)
  Do Until .Range("A" & I) = ""
    If UCase(.Range("A" & I)) <> "JEUDI" Then
      For K = 0 To 3
        Data(J, K) = .Cells(I, K + 1)
      Next K
      J = J + 1
    End If
    I = I + 1
  Loop
  End With
  Sheets(3).Cells.ClearContents
  Sheets(3).Range("A1:D" & J) = Data
End Sub

Cdlt,

Darzou

Merci Darzou, mais votre macro ne fait pas ce que je veux, regardez sur "feuil1", le tableau en bas à gauche, c'est ce que je désire avoir.

Cordialement

bonjour

helas sans vba (mais pas besoin de bouton car le tableau est automatique) voir tableau vert

pour tester ;j'ai rajouté un lundi qui n'est meme pas classé : ça a l'air de coller

cordialement

C'est bon j'ai trouvé, je suis passé les base de donné (sql)

OK merci tulip, je vais voir sa.