[XL-2007] Collage de plusieurs colonnes

[Sword47]

Bonjour à tous,

Je suis nouveau dans la réalisation de macros et j'ai un petit peu de mal à en faire une qui est peut-être toute simple.
Voilà mon problème:
Je dois copier plusieurs colonnes d'un classeur Excel vers un autre. Le problème c'est que le nombre de ces colonnes peut varier en fonction d'un nombre.
Par exemple, si mon nombre est 3, je copie les 3 colonnes D à F sur 10 lignes (longueur fixe), puis les 3 colonnes G à I toujours sur 10 lignes, puis les 3 colonnes M à O, etc... J'ai plusieurs groupes de colonnes comme ça.
Sauf que si mon nombre devient 2, les colonnes que je dois copier se décalent. Premier groupe: D;E, deuxième groupe: F;G, Troisième groupe: J;K

J'arrive à copier ces colonnes pour une valeur fixe (3 par exemple) mais je ne sais pas comment faire pour que cela marche toujours quand le nombre de colonnes varie.

Voilà le code que j'utilise pour un groupe de colonne:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Windows("Résultats ACV.xls").Activate
    Sheets("Résultats du Projet").Select
    Range("D6:F22").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Exploitation des résultats ACV.xlsm").Activate
    Sheets("Résultats Projet").Select
    Range("D10").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Merci de votre aide.

[Runsh63]

Salut Sword47,

J'ai du mal à saisir l'intérêt car comme expliqué (il est fort possible que j'ai mal saisi la finalité), quel que soit le pas choisi, les même colonnes de ton fichier de départ se trouveront les unes à la suite des autres, avec la même structure dans ton fichier d'arrivée.
Peux-tu m'expliquer STP ce que j'ai mal compris ?

[Sword47]

Salut,

L'intérêt c'est qu'une fois copiées, les lignes de ces colonnes seront réarrangées et remises en forme pour qu'elles soient plus facilement exploitables.
En effet elles se retrouveront à la suite des autres mais dans le fichier de départ elles sont intercalées avec des colonnes qui ne m'intéressent pas. Je veux donc faire le tri dans toutes ces colonnes.

Merci

[Abkart]

Malgré un doute partagé sur l'intérêt.. Ça devrait ressembler à ça pour faire la même chose que ton enregistreur de macro te donne, sauf qu'à partir de ça, tu peux continuer d'incrémenter ou boucler... :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
'Paramètres de tes tableaux à copier/coller
Dim iNbLign As Integer
Dim iNbCol As Integer
iNbLign = 10
iNbCol = 3
 
'Sélection de la première cellule du tableau à copier
Dim oRange As Range
Set oRange = Workbooks("Résultats ACV.xls").Worksheets("Résultats du Projet").Range("D6")
 
'Sélection de la première cellule du tableau où coller
Dim oRangeDest As Range
Set oRangeDest = Workbooks("Exploitation des résultats ACV.xlsm").Worksheets("Résultats Projet").Range("D10")
 
'Sélection du tableau à copier + copier
Set oRange = oRange.Resize(iNbLign, iNbCol)
oRange.Copy
 
'Sélection du tableau où coller + coller valeurs
Set oRangeDest = oRangeDest.Resize(iNbLign, iNbCol)
oRangeDest.PasteSpecial xlPasteValues
 
'Déplacer le tableau à copier + copier
Set oRange = oRange.Offset(0, iNbCol)
oRange.Copy
 
'Déplacer le tableau où coller + coller
Set oRangeDest = oRangeDest.Offset(??, ??)
oRangeDest.PasteSpecial xlPasteValues
 
'...