XL 2021 filtre et tri tableau avec macro

[le___destin]

bonjour tous le monde
merci de m'aider a filtre et tri un tableau
merci d'avance

 

[Compte Supprimé 979]

Bonjour

Simple avec Power Query

A+

 

[le___destin]

wer Query

merci mais les valeur son variable alors je veux que le résulta obtenu soit variable

 

[Compte Supprimé 979]

Re,
Et c'est le cas

 

[le___destin]

merci mais je veux un macro

 

[job75]

Bonsoir à tous,

merci mais je veux un macro

Power Query est vraiment la solution la plus simple mais voici une macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range, nlig
Set dest = [R6] '1ère cellule du résultat
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
dest.Resize(Rows.Count - dest.Row + 1, 2).Clear 'RAZ
Workbooks.Add xlWBATWorksheet 'document auxiliaire
With ActiveSheet
    [A:P].Copy .[A1] 'copier-coller
    .UsedRange = .UsedRange.Value 'supprime les formules
    .Rows("1:5").Delete xlUp
    .UsedRange.Sort .Columns("P"), xlDescending, Header:=xlYes 'tri
    nlig = Application.CountIf(.Columns("P"), ">=100") + 1
    .Range("D1:D" & nlig).Copy dest 'copier-coller
    .Range("P1:P" & nlig).Copy dest(1, 2) 'copier-coller
End With
ActiveWorkbook.Close False 'ferme le document auxiliaire
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle est placée dans le code de la feuille et se déclenche quand on modifie une cellule quelconque.

Le tableau source doit commencer en ligne 6, le nombre de lignes est variable.

A+

 

[job75]

Bonjour le forum,

Si l'on préfère utiliser un bouton il suffit de modifier un peu la macro :

Sub Resultat()
Dim F As Worksheet, dest As Range, nlig
Set F = ActiveSheet
Set dest = F.[R6] '1ère cellule du résultat
Application.ScreenUpdating = False
dest.Resize(Rows.Count - dest.Row + 1, 2).Clear 'RAZ
Workbooks.Add xlWBATWorksheet 'document auxiliaire
With ActiveSheet
    F.[A:P].Copy .[A1] 'copier-coller
    .UsedRange = .UsedRange.Value 'supprime les formules
    .Rows("1:5").Delete xlUp
    .UsedRange.Sort .Columns("P"), xlDescending, Header:=xlYes 'tri
    nlig = Application.CountIf(.Columns("P"), ">=100") + 1
    .Range("D1:D" & nlig).Copy dest 'copier-coller
    .Range("P1:P" & nlig).Copy dest(1, 2) 'copier-coller
End With
ActiveWorkbook.Close False 'ferme le document auxiliaire
End Sub

A+

 

[job75]

Pour terminer voici une solution très classique par formules.

Elle utilise la colonne auxiliaire P avec en P7 =Q7-LIGNE()/10000000

 

[David Aubert]

Bonjour à tous,
J’ai modéré quelques messages qui n’apportent rien dans ce fil.
Merci à chacun de rester correct…
Bonnes vacances d’été… pour ceux qui y sont… comme moi
David

 

[le___destin]

Pour terminer voici une solution très classique par formules.

Elle utilise la colonne auxiliaire P avec en P7 =Q7-LIGNE()/10

grand merci job75 ..<3<3

 

[le___destin]

merci @job75 j'ai pas réussi a adapter le macro a mon tableau
je besoin de ton aide et merci d'avance

 

[job75]

Bonjour le__destin, le forum;

Les formules en colonne AM font référence à la colonne BW donc il faut copier la plage A:BW :

[A:BW].Copy .[A1] 'copier-coller

A+

Edit : pardon, le nom abdo est la plage BY9:BZ24, il faut l'inclure dans la copie :

[A:BZ].Copy .[A1] 'copier-coller