copie colonne

[GHISLAIN]

bonjour a tous

voila le code suivant copie les colonnes de A a C pour les copier
.Range(("A" & Lig & ":C" & Lig)).Copy
le code suivant effectue la meme chose
.Range(.Cells(Lig, 1), .Cells(Lig,3)).copy


j essaie de copier des colonnes differentes de (A a C) de (H a I) et de (L a N) sans prendre les autre

j ai tenté
.Range(("A" & Lig & ":C" & Lig), ("H" & Lig & ":I" & Lig), ("L" & Lig & ":N" & Lig)).Copy
et
.Range(.Cells(Lig, 1), .Cells(Lig, 3), (.Cells(Lig, 8), .Cells(Lig, 9)).Copy

mais ca ne fonctionne pas

merci a tous de votre aide

amicalement

ghislain

 

[tototiti2008]

Re : copie colonne

Bonjour Ghislain,

en enregistrant une macro j'ai obtenu

Range("A1:C1,H1:I1,L1:N1").Select
    Selection.Copy
    Range("A6").Select
    ActiveSheet.Paste

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

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

 

[GHISLAIN]

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

 

[tototiti2008]

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

 

[GHISLAIN]

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

 

[tototiti2008]

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 🙂

 

[GHISLAIN]

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

 

[GHISLAIN]

Re : copie colonne

je reviens apres manger merci de ton aide , bon appetit

 

[GHISLAIN]

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

 

[tototiti2008]

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