Supprimer colonnes

Bonjour,

J'aimerais avoir comme résultat la feuille résultat à partir de la feuille collage. Retrouver les colonnes où il y a un nom plus des colonnes vides jusqu'à 20 colonnes ainsi qu'une ligne au dessus du tableau. Je n'ai pas réussi à trouver la solution.

Merci à l'avance

Salut Bruno55,

quelque chose ainsi ?

Private Sub Worksheet_Activate()
'
Cells.Delete
Application.ScreenUpdating = False

With Worksheets("Collage")
    iRow = .Range("A" & Rows.Count).End(xlUp).Row
    .[A3].Resize(iRow - 2, 1).Copy Destination:=[A3]
    For x = 6 To .Range("BD2").End(xlToLeft).Column
        If WorksheetFunction.CountA(.Columns(x)) > 1 Then _
            .Range(fctCol(x) & 1).Resize(iRow, 1).Copy Destination:=Range(fctCol(Cells(2, Columns.Count).End(xlToLeft).Column + 1) & 1)
    Next
End With
Columns.AutoFit
Application.ScreenUpdating = True
'
End Sub

Joyeux Noël !

A+

Bonjour bruno55, le forum,

Bonjour curulis57,

C'est marrant, ce fichier me rappelle quelque chose....même association ?

https://forum.excel-pratique.com/excel/supprimer-des-colonnes-130426#p801077

Même si j'ai progressé quelque peu depuis, je suis encore loin de rédiger un code tel que curulis57,

CTRL + e pour exécuter la macro...traitement effectué sur feuille Résultat...

Joyeux Noël !

Bonjour,

oui, j'avais fait la même demande l'année dernière, mais avec les macros, en remettant la même choose, ça ne marche plus.

La version envoyé par curulis 57 fonctionne bien.

Je vais essayer de mettre cela dans mon programme.

Merci et joyeux noêl à vous