Copie d'élément sur autre feuille en plaçant à la suite d'autres données

[Cybernetik]

Bonjour,

Je travaille actuellement sur un fichier excel qui permettrait d'obtenir des données de fonctionnement d'un système.

Sur une feuille, j'ai un tableau type, et je souhaiterais, via une macro, copier ce tableau dans une autre feuille (Exercice0809) en ajoutant à la suite de données précédemment copiées. Pour cela, je voudrais obtenir la première colonne libre (j'ai trouvé la syntaxe Sheets("Exercice0809").Cells.SpecialCells(xlLastCell).Column mais elle me renvoie par exemple 86, or les colonnes utilisent le nommage avec les lettres - ici, c'est la colonne CI la 1ere vide).

Avez vous une idée pour passer de 86 à CI ou autre technique ?

Merci beaucoup.

Extrait du code :

Range("C5:AR34").Select <<< Zone à copier
Selection.Copy
Sheets("Exercice0809").Select
NbColonnes = Sheets("Exercice0809").Cells.SpecialCells(xlLastCell).Column
Range(NbColonnes&"5").Select <<< Chose qui ne fonctionne évidemment pas, que je voudrais corriger
ActiveSheet.Paste

--
Nico

 

[tototiti2008]

Re : Copie d'élément sur autre feuille en plaçant à la suite d'autres données

Bonjour cybernetik,

remplace
Range(NbColonnes&"5").Select
par
cells(5,NbColonnes).Select