XL 2010 Eliminer les colonnes vide dans une selection

[fattah_5791]

Bonjour,
J'ai une macro qui charge des donnees à partir des feuilles excel d'un classeur source et les colle dans une feuille d'un autre classeur destination.
J'aimerais bien eliminer des colonnes vides (si il y en a) de la plage copiee des feuilles sources avant de faire la copie et quitter la feuille source sans faire aucune modification apres la fermeture.
Merci

(...)
For i = 1 To nbrf
            Sheets(i).Select
            NbLig = Cells.SpecialCells(xlCellTypeLastCell).Row
'la plage à selectionner pour la copie
            Range("D11:X" & NbLig).Select
            selection.Copy
            Windows("EtudeNotes.xlsm").Activate
            Sheets(n).Select
            NbLig0 = Range("U" & Rows.Count).End(xlUp).Row
            Range("A" & NbLig0 + 1).Select
'Collage de la plage copiee
            selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

(...)

 

[Lone-wolf]

Bonsoir fattah

Un essai

Option Explicit

Sub test()
Dim Wks As Workbook, derlig As Long, lig As Long, col As Long,  i As Long, dercol

    Application.ScreenUpdating = False

    Set Wks = "Classeur Source"

    With Wks
        For i = 1 To .Sheets.Count
            dercol = .Sheets(i).Columns("X").Find("", , , , , xlPrevious).Column
            derlig = .Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            For lig = 2 To derlig            
                   For col = dercol To 1 Step -1
                            If .Cells(lig, col) = "" Then
                                 .Cells(lig, col).EntireColumn.Hidden = True
                                   'Ligne à adapter
                                 .Cells.SpecialCells(xlCellTypeConstants).Copy Feuil3.Range("a1")
                            End If
                  Next col
            Next lig
        Next i
    End With
    ActiveWorkbook.Close False
End Sub

 

[fattah_5791]

Bonjour
je suis un peu perdu!
je donne les infos suivantes:

Classeur source: data.xls (Contient plusieurs feuilles)
Classeur destination: EtudeNotes.xlsm (feuille de destination de donnees copiees est nommee: feuil1.xls)

 

[Lone-wolf]

Re

Sans fichiers, je ne peux rien faire de plus. Après 59 messages tu devrais le savoir non? Oubien tu veux qu'on devinne où on doit copier les cellules???

 

[fattah_5791]

bnjr
probleme resoulu suite aux lectures que j'ai faites ds plusieurs forums

Merci