Autres VBA (Copier - coller & trie)

Moussa040810 · 26 Juin 2023

Bonjour,

Pourriez vous m'aider avec ce cas s'il vous plait ?

Alors en fait, je voudrai, grâce à des codes VBA, copier la liste des 20 articles qui cumulent le plus de note (dans la colonne S de la feuille "Calcul note") afin de les coller dans la feuille "résultat" du même classeur.

J'ai essayé de le faire en plusieurs temps (copier toute la liste et la coller dans la destination voulu, trier ces derniers et supprimer toute la liste en dehors de la liste des 20 premiers articles). C'est un raisonnement assez laborieux, et j'aimerai savoir si vous avez d'autres pistes.

Cordiales salutation,

sylvanu · 26 Juin 2023

Bonjour Moussa, et bienvenu sur XLD,
Un essai en PJ avec :

VB:

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Cells.ClearContents
    With Sheets("Calcul note")
        DL = .[A65500].End(xlUp).Row
        Range("A1:R" & DL - 1) = .Range("A2:R" & DL).Value
    End With
    [A:R].Resize(DL - 1).Sort key1:=[R1], order1:=xlDescending, Header:=xlYes
    Rows("21:1000").Delete Shift:=xlUp
    Columns("A:R").EntireColumn.AutoFit
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la feuille "Résultat"
Mais ça ressemble à votre méthode, elle est rapide et efficace.

sylvanu · 26 Juin 2023

Bonjour Moussa, et bienvenu sur XLD,
Un essai en PJ avec :

VB:

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Cells.ClearContents
    With Sheets("Calcul note")
        DL = .[A65500].End(xlUp).Row
        Range("A1:R" & DL - 1) = .Range("A2:R" & DL).Value
    End With
    [A:R].Resize(DL - 1).Sort key1:=[R1], order1:=xlDescending, Header:=xlYes
    Rows("21:1000").Delete Shift:=xlUp
    Columns("A:R").EntireColumn.AutoFit
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la feuille "Résultat"
Mais ça ressemble à votre méthode, elle est rapide et efficace.

Moussa040810 · 27 Juin 2023

Bonjour @sylvanu, merci beaucoup pour votre retour.

C'est exactement le raisonnement que je voulais matérialiser.

Une dernière requête s'il vous plait, auriez vous une ligne de code qui me permettrait de ne copier que les colonnes : A,B,C,D,F,G,J&R uniquement au lieu de A2:R ?

Cordiales salutations

sylvanu · 27 Juin 2023

Bonjour Moussa,
Il suffit de supprimer les colonnes.

Moussa040810 · 27 Juin 2023

Merci beaucoup @sylvanu

C'est bien aimable de votre part!

Autres VBA (Copier - coller & trie)

Moussa040810

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Moussa040810

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Moussa040810

XLDnaute Nouveau

Discussions similaires