Discussion :

[adelraiser]

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)

[Jean-Philippe André]

Salut,

attention lors de déclarations multiples sur une même ligne, il faut bien préciser le bon type pour chaque variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tbl As Range, tbl1 As Range

Par ailleurs, ton code génère une erreur 1004 chez moi. Mais je pense que ton .Select n'est pas utile ici, vu que ton set est sensé attribuer une plage de cellules.

[adelraiser]

Merci beaucoup,

Ton intuition était bonne sur le select. Je l'ai supprimé et j'ai bien ma sélection qui est enregistrée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set tbl1 = tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count)

[Thautheme]

Bonjour le fil, bonjour le forum,

Tu n'es pas obliger d'utiliser deux variables, une seule suffit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Tbl As Range
Set Tbl = ActiveCell.CurrentRegion
Set Tbl = Tbl.Offset(1, 0).Resize(Tbl.Rows.Count - 1, Tbl.Columns.Count)