copie colonne

Re : copie colonne

Bonjour Ghislain,

en enregistrant une macro j'ai obtenu


Ce qui devrait pouvoir s'adapter pour toi comme ça

Re : copie colonne

bonjour tototiti2008,


merci d'etre passé sur mon fil et ta proposition fonctionne a merveille genial

j'utilise ce code pour ranger mes donnée

.Range("A" & Lig & ":C" & Lig & ",H" & Lig & ":I" & Lig & ",L" & Lig & ":N" & Lig).Copy

code utilisé pour copie en colonne2
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select ' range a la suite les lignes copiée

sur chaque ligne copié je rajouté cette valeur en debut de ligne
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Sheets("Base").Range("h5").Value
ActiveSheets = Sheets("Base").Range("h5").Value
ActiveSheet.Paste

et je colle ça fonctionne



quand je veux rajouter unautre veleur ça coince
.Range("A" & Lig & ":C" & Lig & ",H" & Lig & ":I" & Lig & ",L" & Lig & ":N" & Lig).Copy

code utilisé pour copie en colonne3
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Select ' range a la suite les lignes copiée

sur chaque ligne copié je rajouté ces valeurs en debut de ligne
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Sheets("Base").Range("h5").Value

Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Sheets("Base").Range("h11").Value
ActiveSheets = Sheets("Base").Range("h5").Value
ActiveSheet.Paste

la ça fonctionne plus si tu peux me dire d ou vient mon erreur

amicalement

ghislain

Re : copie colonne

Re,

ça plante ou ça ne fait rien ?

Je ne comprend pas ce qu'est censé faire la ligne

ActiveSheets = Sheets("Base").Range("h5").Value

Cliquez pour agrandir...

Re : copie colonne

re
et bien je galere avec , c est pour selectionner l onglet ou sera collé ma copie mais je m apperçois que ça ne fonctionne pas

Re : copie colonne

Re,

tu comprends bien que sans fichier exemple, difficile
Comme je ne sais pas ce qu'il y a dans ta cellule H5, j'ai du mal à faire des suppositions... et comme ma boule de cristal est en réparation 🙂

Re : copie colonne

lol desolé je t envoie ça

tout fonctionne comme je le souhaite hormis le collage des données

je voudrai que les données se colle sur l onglet ayant pour nom la valeur de la cellule h9 de l onglet base

merci encore de ton aide

amicalement
ghislain

Re : copie colonne

je reviens apres manger merci de ton aide , bon appetit

Re : copie colonne

re

j ai mis ce code pour selectionner la feuille de destination pour coler mes données

Worksheets(Sheets("base").Range("H9").Value).Activate
ActiveSheet.Paste

ça fonctionne mais j aimerai avoir ton avis

merci

amicalement

ghislain

Re : copie colonne

Re,

Oui, ça a l'air mieux, et ça a plus de sens
Désolé, je ne peux pas ouvrir les zip, donc si ça fonctionne c'est que ça doit être ça