Selection de cellule

Bonjour,


Je cherche à selectionner une plage de cellules d´un tableau de la colonne A à K de la ligne 9 à la dernière ligne complete à fin d´ajouter des bordures à cette plage. Le soucis c´est que je suis dans une boucle et que ce tableau est dans un autre classseur que celui ou est le code.

J´avais testé ceci :

Code:

---

1 2	Range("A9:" & SpecialCells(xlCellTypeLastCell).Offset(0, -1).Address).Select

---

Mais cela ne marche pas ..

Auriez vous une solution à me proposer ?

Merci beaucoup

Bonjour Mariet, bonjour le forum,

Pas sûr d'avoir bien compris ton problème. Peut-être comme ça (à adapter) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Macro1() Dim CS As Workbook Dim OS As Worksheet Dim CD As Workbook Dim OD As Worksheet Dim AD As String   Set CD = ThisWorkbook Set OD = CD.Worksheets("Feuil1") 'à adapter à ton cas Set CS = Workbooks("Le_classeur_contenant_le_tableau.xlsx") 'à adapter à ton cas Set OS = CS.Worksheets("Feuil1") 'à adapter à ton cas AD = OS.Range("A9:K" & OS.Cells(Application.Rows.Count, "K").end(xlup).Row).Address CD.Activate OD.Avtivate OD.Range(AD).Select End Sub

---

merci pour votre reponse,

Cependant j´ai cette erreur qui s´affiche :

Pièce jointe 409878

Re,

On ne voit ni ton code ni on ne sait sur quelle ligne tu as l'erreur. Comment veut-tu que l'on t'aide ?!...
Au pire : Utilise les balises (#) pour le code et indique la ligne qui provoque l'erreur
Au mieux : le fichier en pièce jointe...

Bonjour

Pour moi

Code:

---

Range("A9:" & SpecialCells(xlCellTypeLastCell).Offset(0, -1).Address).Select

---

est impossible

Code:

---

Range("A9").Offset(0, -1).Address).Select

---

Tu ne peux décaler d'une colonne vers la gauche alors que tu es déjà en colonne A