Enregistrer sélection dans une variable

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:

---

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)

---

Salut,

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

Code:

---

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.

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:

---

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

---

Bonjour le fil, bonjour le forum,

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

Code:

---

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)

---