Discussion :

[xszma]

Bonjour à tous,

J'ai un problème de copie lorsque je souhaite copier deux colonnes d'une feuille (nommé Extraction) vers une autre feuille (nommé analyse), je souhaite automatisé cette tache car j'ai beaucoup de données et cela est plus simple. J'ai donc esquissé un code VB (que vous trouverez ci-dessous) pour réaliser cette tâche. Or les colonnes ne se copie pas entièrement! Je vous glisse aussi en pièce jointe un exemple avec un classeur Excel avec beaucoup moins de données. Vous pouvez lancer la macro et voir le problème !
J'espère avoir été le plus clair possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
34
35
36
37
38
39
40
41
42
 
Sheets("Extraction").Select
 
        i = 3
        j = 5
 
    Do While Cells(i, j) <> "Recettes - Missions"
        If j < 80 Then
        j = j + 1
        Else
        MsgBox "La colonne n'existe pas !"
 
        End If
    Loop
 
    Cells(i, j).Select
    Range(Selection, Selection.End(xlDown)).Copy
 
    Sheets("Analyse").Select
        Range("A65536").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
 
  Sheets("Extraction").Select
 
        i = 3
        j = 5
 
    Do While Cells(i, j) <> "Recettes - Hors Missions"
        If j < 80 Then
        j = j + 1
        Else
        MsgBox "La colonne n'existe pas !"
 
        End If
    Loop
 
    Cells(i, j).Select
    Range(Selection, Selection.End(xlDown)).Copy
 
    Sheets("Analyse").Select
        Range("B65536").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste

Merci par avance de votre aide,

xszma.