Résolu Copier un tableau vrariable en ligne et en colonne

[Camille081994]

Bonjour,

Je dois copier une feuille d'un classeur à ligne et colonne variable, je n'ai aucun problème à définir ma dernière ligne cependant lorsque que je rajoute la variable de la dernière colonne la macro ne marche plus :

    'Définition de la dernière ligne + derniere colonne
Workbooks("opération.xlsm").Activate
DerniereLigne = ActiveSheet.Cells(ActiveSheet.Rows.Count, "D").End(xlUp).Row
Dercolonne = ActiveSheet.Range("A1").End(xlToLeft).Column 
    
    'Copier/Coller
Workbooks("opération.xlsm").Sheets("Sheet1").Range("A1:Dercolonne" & DerniereLigne).Copy
Workbooks("Synthèse.xlsm").Activate
Workbooks("Synthèse.xlsm").Sheets("RELEVE SUIVANT FICHES").Range("A" & i).PasteSpecial Paste:=xlPasteValues

Au moment de copier ca ne marche pas, quelqu'un aurait il une astuce ?

Meci beaucoup

Edit modo: merci d'utiliser les balises code

 

[drul]

Salut,
et si tu remplaçais:

Dercolonne = ActiveSheet.Range("A1").End(xlToLeft).Column

par:

Dercolonne = ActiveSheet.Cells(1,ActiveSheet.Columns.Count).End(xlToLeft).Column

Comme tu l'as très bien fait pour la dernière ligne d’ailleurs ...

N.B. Pastespecial obligatoire ? pas trop fan du passage par le presse papier ...