Discussion :

[lemarcheurfou]

Bonsoir,

J'aurai besoin de votre aide, j'ai cherché un peu partout sur le net je n'est pas trouver se que je voulais faire. (Je suis pas vraiment bon en VB)

Alors je vous explique ma situation j'ai un fichier excel dans le quel j'ai 2 feuilles identiques avec la même forme. Je veux simplement copier les données des deux feuilles et les mettres dans ma 3ième feuilles qui est vide sans enlever les doublons.

Je veux faire ça en VB mais je suis très mauvais help meeeee

Je vous remercie d'avance.

[Marc-L]

Bonsoir,

l'Enregistreur de macros est l'ami des débutants : il livre une base de code sur un plateau ‼

[lemarcheurfou]

J'ai trouvé la solution. Je laisse le code si un jour quelq'un en a besoin.

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
Sub copier()
 
Dim lastlig As Long
Dim s As Byte
 
 
Sheets("Regroupement").[(A6:A200000):(AX6:AX1000100)].ClearContents
 
For s = 3 To 4
 
    With Sheets(s)
 
        lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("A6:AX" & lastlig).Copy Sheets("Regroupement").Cells(Rows.Count, 1).End(xlUp)(2)
 
    End With
Next s
 
 
End Sub