Copier une feuille vers un autre classeur sans ligne vide

Bonjour,

Voilas je suis en stage et je dois réaliser des macro sous excel. L'une d'elle doit permettre de copié une feuille d'un classeur et de le collé sur une autre feuille dans un autre classeur. En plus de la copie, je doit enlever les ligne vide de tableau copié, et également rajouter 4 colonnes. Pour ma part j'ai déjà réussis à copié le fichier en rajoutant les colonne, mais impossible de le faire en enlevant les ligne dans la celule A est vide.

Voici le code que j'ai réaliser:

Dim wb As Workbook
Dim derlig As Long

    With Application.FileDialog(msoFileDialogOpen)
         .AllowMultiSelect = False
         .Show
         ChoixFichier.TextBox1.Text = .SelectedItems(1)
         Set wb = Workbooks.Open(.SelectedItems(1))
    End With

        derlig = ThisWorkbook.Worksheets("VaveList").Range("A" & Rows.Count).End(xlUp).Row

    For x = derlig To 1 Step -1
             If wb.Sheets("PriceList").Cells(x, "A") <> "" Then
                     wb.Sheets("PriceList").Cells.Copy ThisWorkbook.Sheets("ValveList").Cells
             End If
    Next x

        'ThisWorkbook.Sheets("ValveList").Activate
        'Columns("C:C").Insert Shift:=xlToRight
        'Range("C8").FormulaR1C1 = "Radio"

        'Columns("J:J").Insert Shift:=xlToRight
        'Range("J8").FormulaR1C1 = "SAP Order"

        'Columns("K:K").Insert Shift:=xlToRight
        'Range("K8").FormulaR1C1 = "SAP Item"

        'Columns("L:L").Insert Shift:=xlToRight
        'Range("L8").FormulaR1C1 = "Envoyer"

        'Rows("50:50").Insert Shift:=xlDwon
        'Rows("50:51").Interior.ColorIndex = 45
 wb.Close
 ThisWorkbook.Save
 ChoixFichier.Hide

End Sub

Bonjour

Possible de voir le fichier sans données confidentielles ?

Crdlt

Je vous jouin a se message un exemple de se que je peut avoir a traiter, sachant qu'à chaque projet se document changeras de taille (nombre de ligne) les colonnes reste tjr les même et il y aa toujours la même mise en page.

up

Re

Ok pour le fichier mais je ne vois pas les feuilles Vavelist ou pricelist, ni le code

Merci d'expliquer

Crdlt

c'est bon j'ai réusis à créer ma macro. Encore merci.