Discussion :

[mariet18]

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 :

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

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

Mais cela ne marche pas ..

Auriez vous une solution à me proposer ?

Merci beaucoup

[Thautheme]

Bonjour Mariet, bonjour le forum,

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

Code :

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

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

[mariet18]

merci pour votre reponse,

Cependant j´ai cette erreur qui s´affiche :

[Thautheme]

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...

[sogedic]

Bonjour

Pour moi

Code :

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

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

est impossible

Code :

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

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