Bonjour,

Je souhaite enregistrer ma sélection pour l'utiliser plus tard. tbl fonctionne et je peux afficher la plage de cellules par contre tbl1 reste vide. Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim tbl, tbl1 As Range
'sélection plage cellules et Enregistrement de l'adresse du tableau
    Set tbl = ActiveCell.CurrentRegion
    Set tbl1 = tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
 'tri par départ Header = non car pas de ligne de titre
    tbl.Sort Key1:=tbl.Cells(1, 4), Order1:=xlAscending, Header:=xlNo
    MsgBox (tbl1.Address)