Discussion :

[Gorillo]

Bonjour,

Je cherche à actualiser une plage de données en récupérant la dernière colonne.
J'ai copié mon code pour les lignes :

Code :

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

1
2
3
4
5
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range ("Z2:Z" & DernLigne).Copy
 
Derncol = Range("A1").End(xlToRight).Column
Range("A2:" & Derncol & "2").Copy

Sauf que le debogage s'ouvre et je ne vois pas d'où peut venir l'erreur, sûrement dans la manipulation des objets que je maîtrise encore mal..;

Merci d'avance pour votre aide

PS :Je crois que c'est un sujet récurrent mais en essayant tout les bouts de codes trouvés (surtout pour la dernière ligne) je n'y suis pas arrivé

[Kimy_Ire]

Bonjour Gorillo,

Ceci Derncol = Range("A1").End(xlToRight).Column te récupère le numéro de la dernière colonne.
Ainsi, passe plutôt par la méthode "Cells" :

Code :

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

1
2
Derncol = Range("A1").End(xlToRight).Column
Range(Cells(2, 1), Cells(2, Derncol)).Copy

Au passage, la méthode .Copy peut toujours être évitée.
Par exemple : Worksheets("MaFeuil").Range("A5:A6").Value = Worksheets("MonAutreFeuil").Range("B5:B6").Value.

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[Gorillo]

En effet ça marche !

j'avais pas pensé que ça me sortait le numéro !

[Gorillo]

Vu qu'à la base mon post c'était pour actualiser une plage graphique :
Du coup en recoupant avec d'autres discussion j'ai fait ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim plage1 As Range
 
    Derncol = Range("A1").End(xlToRight).Column
 
    Set plage1 = Sheets("Graphiques").Range(Cells(1, 3), Cells(1, Derncol))
    Set plage2 = Sheets("Graphiques").Range(Cells(2, 3), Cells(2, Derncol))
 
 
    ActiveSheet.ChartObjects("Graphique 3").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).XValues = plage1
    ActiveChart.SeriesCollection(1).Values = plage2

Ca me permet de faire un bouton qui m'actualise mon graphique, easy !