Diviser un tableau en deux

Bonjour a tous,

Alors voila j'aimerai solliciter votre aide car j'ai une petite macro à réaliser.

J'ai joins un fichier Excel avec un tableau à 3 colonnes (Catégorie, Temps, Type) et mon but en fait est de diviser ce tableau en deux tableaux distincts de la manière suivante:

La colonne "Temps" présente des nombres tous supérieurs ou égal à 2880, et j'aimerai que toutes les lignes dont la colonne temps dépasse le nombre 10080 soient regroupés dans un nouveau tableau identique au principal et crée dans l'onglet "superieur" du fichier, et que tous ceux dont la colonne temps est inférieur à 10080 soient donc regroupés dans l'onglet "inferieur".

L’idéal pour moi serait de créer un Bouton à coté du tableau principal qui en cliquant dessus, se chargement de faire le tri étant donné que les tableaux que j'aurai à traiter présentent beaucoup de lignes

Merci d'avance pour votre réponse et en espérant que le problème soit résolu, je vous souhaite à tous une excellente journée.

Cordialement,

Clooudy

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Le code à tester :

Sub Filtrer()
    Dim derLigSup As Long, derLigInf As Long, derLigBase As Long, i As Long, base As Worksheet, sup As Worksheet, inf As Worksheet
    Set base = Sheets("Base")
    Set sup = Sheets("superieur")
    Set inf = Sheets("inferieur")
    derLigBase = base.Range("A" & Rows.Count).End(xlUp).Row
    base.Range("A1:C" & derLigBase).Copy
    sup.Range("A1").PasteSpecial xlPasteAll
    inf.Range("A1").PasteSpecial xlPasteAll
    Application.CutCopyMode = False
    With sup
        For i = derLigBase To 2 Step -1
            If .Cells(i, "B") <= 10080 Then .Rows(i).EntireRow.Delete
        Next i
    End With
    With inf
        For i = derLigBase To 2 Step -1
            If .Cells(i, "B") > 10080 Then .Rows(i).EntireRow.Delete
        Next i
    End With
    Set base = Nothing
    Set sup = Nothing
    Set inf = Nothing
End Sub

Merci beaucoup vos deux macros se valent y'a rien à redire !

Je suis vraiment impressionné par l’efficacité et la rapidité de ce forum.

Sur ce je vous souhaite une agréable journée et merci encore !

Cordialement,

Clooudy

Bonjour,

un tentative ici

P.

Oups: pas rafraîchi , donc pas vu les réponses de mes petites camarades de classe

La tienne fonctionne aussi super bien merci beaucoup !