Supprimer colonnes

Bonjour à tous,

j'aimerais supprimer les colonnes où il n'y a pas de noms sur la 1 ere ligne.

J'ai essayé x macros trouvées sur le net, mais aucune ne marche.

Merci pour votre aide

Bonjour pbruno, le forum,

Un essai:

Sub test()

Dim LastCol As Integer, i As Integer

Application.ScreenUpdating = False

With Worksheets("Feuil2")

    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    For i = LastCol To 1 Step -1

        If .Cells(1, i).Value = "" Then
           .Columns(i).Delete
        End If

    Next i

End With

End Sub

Cordialement,

PS: CTRL+e pour lancer la macro

Bonjour pbruno, xorsankukai,

je te retourne ton fichier modifié :

fais Ctrl e

@xorsankukai

mon code ressemble beaucoup au tien. j'ai pas testé la feuille car y'en a qu'une seule dans le classeur :

Option Explicit

Sub DelCols()
  Dim dcol%, col%: Application.ScreenUpdating = 0
  dcol = Cells(1, Columns.Count).End(1).Column
  For col = dcol To 1 Step -1
    If Cells(1, col) = "" Then Columns(col).Delete
  Next col
End Sub

pourquoi tu as utilisé If .. End If alors qu'y'a une seule instruction courte ?

dhany

Bonjour Dhany,

mon code ressemble beaucoup au tien

Je suis flatté,

pourquoi tu as utilisé If .. End If alors qu'y'a une seule instruction courte ?

Même si j'ai bien progressé grace à ce forum, comme j'apprends sur le tas, il y a encore beaucoup de subtilités qui m'échappent, , mais heureusement, les pros sont là pour me remettre sur la bonne voie , leurs conseils sont précieux,

Amicalement,

Bonjour,

c'est un classeur entier d'où j'ai extrait la feuille.

La macro marche.

Vous êtes génial

merci <3

merci pour ton retour ! bonne continuation !

dhany