Effacer les entêtes des colonnes vides

Bonjour,

Je cherche un code VBA qui permettrait, dans la plage K:BH d'une feuille donnée (la feuille active), d'effacer le contenu de toute entête de colonne vide.

Par exemple, s'il est noté "TEST" (ou n'importe quoi d'autre) en cellule M1, et que la colonne M est vide (à par en M1 bien sûr), effacer le contenu de cette cellule M1. Et de même pour toute la plage K:BH.*

Et je parle bien d'effacer, pas de supprimer...

Merci par avance !

Bonsoir Kiriko le forum

Sub effacer()
    Dim i&, fin&
    For i = 11 To 63
        fin = .Cells(Rows.Count, i).End(xlUp).Row
        If fin = 1 Then .Cells(1, i) = ""
    Next i
End Sub

a+

Papou

Bonjour paritec, bonjour le forum,

Merci beaucoup, c'est impeccable.

Je cherche cependant une variante, qui toujours sur la plage K:BH, efface les entêtes après la dernière colonne non vide... La différence avec la demande précédente est qu'ici, nous pouvons avoir des colonnes vides "au milieu" qui elles, conservent leurs entêtes...

Plus de précisions :

exemple :

- entêtes présentes de K à BH

- Des données dans les colonnes K, L, M, Z, AA et BA

- Les autres colonnes sont vides de données (hors entêtes)

- Dans ce cas, je cherche donc à effacer les entêtes des colonnes BB à BH uniquement.

Merci par avance !!

re bonjour kiriko le forum

Sub effacer()
    Dim i&, fin&, col&
    With Feuil1
        col = .Cells(2, Columns.Count).End(xlToLeft).Column
        For i = 63 To col Step -1
            fin = .Cells(Rows.Count, i).End(xlUp).Row
            If fin = 1 Then .Cells(1, i) = "" Else Exit For
        Next i
    End With
End Sub

a+

papou

re bonjour paritec, rebonjour le forum !

Merci beaucoup paritec, c'est plus que parfait !!

Longue vie à Excel-Pratique!!!