Trier une sélection dynamique, macro VBA

Sub xxx() 
Dim col As Integer, lig As Long 'déclaration des variables voir l'aide (F1) 
'cells(3,2)<==> range("B3") 

     
     col = Cells(3, 2).End(xlToRight).Column 'dernière colonne utilisée avant une cellule vide dans la ligne 3 
     lig = Cells(3, 2).End(xlDown).Row ' m^me chose mais verticalement (dernière ligne)
     
    Range(Cells(3, 2), Cells(lig, col)).Sort Key1:=Range("B3"), Key2:=Range("C3") 
    'Range(Cells(3, 2), Cells(lig, col)) on aurait pu écrire Range($B$3: & cells(Lig,col).address) 
    'le param^tre xlascending est le param^tre par défaut il n'est donc pas obligatoire de l'écrire a condition _ 
    que les affectations aux autres param^tres soient précédées de ":=" 
 End Sub

Quant à select-selection, cela encombre la mémoire et ralentit grandement la sélection; de plus dans les boucles cela fait clignoter l'écran...

si tu veux apprendre vBa
https://bidou.developpez.com/article/VBA/
ca se lit pas comme un roman policier mais c'est assez complet pour 50 à 60 % des ap^llis en VBA

Merci pour cette claire réponse. Mais pour mes connaissances personnelles, cela aurait pu être possible fait avec une selection à partir de mon exemple? :)

oui

Okay, merci :)

Salut,

Je reviens sur ce post mais il me reste néanmoins une question, lorsque je dois trier une plage de cellules de plusieurs colonnes, est-ce faisable avec cela?

bonjour
[B4] est l'écriture fainéante de range("B4").value (je l'utilise souvent)

donc range([B4],.... te renvoie la valeur dans B4 d'où protestation de tonton VBA....

pour définir une zone

dernière ligne utilisée
derlig=columns("B").find("*",,,,,xlprevious).row
ou si tu préfères
derlig=range("B4").End(xlDown).Row ' attention : s'arrête à la première cellule vide dans la col B

Base=Range("B4:E" & derlig)

Salut,
Merci pour ta réponse. Cependant, j'ai trouvé une solution "alternative" mais boiteuse puisqu'elle ne fonctionne qu'à moitié et me semble également un peu "grailleuse":

Dim plage As Range 
Set plage = Range("A1:C1") 
plage.Select 
Dim plage2 As Range 
Set plage2 = Range(Selection, Selection.End(xlDown)) 
plage2.Select 

    ActiveCell.Range("plage2").Select 
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=ActiveCell.Range _ 
        ("A1:A3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ 
        xlSortNormal 
    With ActiveWorkbook.Worksheets("Feuil2").Sort 
        .SetRange ActiveCell.Range("plage2") 
        .Header = xlGuess 
        .MatchCase = False 
        .Orientation = xlTopToBottom 
        .SortMethod = xlPinYin 
        .Apply 
    End With 


End Sub

En résumé, ce code sert à définir une liste d'une plage à 2 dimensions dont une des dimensions est changeante (en taille). Il se met râler dès que je lui demande d'effectuer une sélection d'une plage définie tel que

ActiveCell.Range("plage2").Select

Merci pour le coup de pouce... ;)

Il y a quelque temps je 't'avais dit d'éviter les "select" ,"selection"; voir lien #6 et t'avais proposé un tri simple sans lignes parasites liées à l'enregistreur de macros

Tu fais comme tu veux...

Oui, c'est juste. Je vais essayer avec ta méthode et chercher un peu comme un grand. Merci ;)

Merci beaucoup, tout fonctionne à merveille!! :D