Discussion :

[waldo192]

Bonjour à tous,

J'ai besoin d'un code VBA pour recopier le contenu de 2 colonnes de 2 feuilles différentes sur une 3ème colonne (qui est dans une 3ème feuille) l'une à la suite de l'autre. Par la suite, on obtiendrai une colonne qui contiendra le contenu des 2 colonnes mais il y aura également des lignes vides, l'idée est de filtrer (ou d'enlever) les lignes vides.
Evidemment, le nombre de lignes des 2 colonnes peut varier à chaque extraction.

J'ai essayé plusieurs combines mais je n'arrive pas à recopier la 2ème colonne à partir de là ou s'est arrêter la copie de la première colonne.

Donc les données sont simples:
Feuille 1= Feuille source 1
Feuille 2= Feuille source 2
Feuille 3= Feuille destination

2 étapes:
1/ Copie de la Colonne A (de la feuille 1) et Colonne A (de la feuille 2) => Coller à la suite dans la colonne A (de la feuille 3)
2/ Suppression les lignes vides

Merci d'avance pour votre aide

[ARTURO83]

Bonjour,
Exemple à adapter:

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
 
Sub Recopie()
    Dim DerLig_A As Long, DerLig_B As Long, DerLig_C As Long
    Application.ScreenUpdating = False
    Set F1 = Sheets("Feuil1")
    Set F2 = Sheets("Feuil2")
    Set F3 = Sheets("Feuil3")
 
    F3.Cells.Clear
    DerLig_A = F1.[A10000].End(xlUp).Row
    F1.Range("A2:A" & DerLig_A).Copy F3.Range("A2")
 
    DerLig_B = F2.[A10000].End(xlUp).Row
    F2.Range("A2:A" & DerLig_B).Copy F3.Range("A" & DerLig_A + 1)
 
    F3.Select
    [A1] = "TITRE C"
    DerLig_C = [A100000].End(xlUp).Row
    For i = DerLig_C - 1 To 1 Step -1
        If Cells(i, "A") = "" Then Cells(i, "A").EntireRow.Delete
    Next i
    Set F1 = Nothing
    Set F2 = Nothing
    Set F3 = Nothing
End Sub

Cdlt

[waldo192]

Bonjour Arturo,

J'ai testé ton code après l'avoir adapté et ça fonctionne parfaitement !
Merci encore!