suppression colonne

[mumu]

un autre petit souci.....

Je voudrais sous VBA écrire une ligne de commande qui me permettrait de supprimer des colonnes vides. La seule cellule écrite étant le nom de la colonne.
Sachant que je voudrais qu'il parcourt tte la colonne et si elle est vide, il supprime.

Merci d'avance

 

[Philippe]

Bonjour,

alors en ligne 1 tu as le nom de ta colonne
la sélection va donc commencer en ligne 2

sub supprim_colonne()
col = ActiveCell.Column
lig = ActiveCell.Row
Range('A1').Value = col
Cells(2, col).Select
Selection.End(xlDown).Select
If Selection.Row = 65536 Then ' si la colonne est totalement vide
ActiveCell.EntireColumn.Delete 'elle s'efface
Cells(lig, col).Select
End If
End Sub


voilà

 

[mumu]

salut,

merci pour la réponse mais ça ne fait pas entièrement ce que je cherche sachant que j'ai potentiellement plusieurs colonnes vides et ce ne sont jamais les mêmes.
Ensuite ce que tu as écrit marche bien sur une colonne mais il inscrit le chiffre 1 dans la première cellule.

peut-être aurais-tu le temps de voir ça.

Merci d'avance

 

[porcinet82]

salut mumu,

apres lecture de tes remarques en ce qui concerne la macro de Philippe, j'ai effectué qq modif qui devrait faire l'affaire. je l'ai testée et chez moi elle fonctionne, donc la voici

Sub supprim_colonne()
Range('a2').Select
For i = 1 To 5
    col = ActiveCell.Column
    lig = ActiveCell.Row
    Cells(2, col).Select
    Selection.End(xlDown).Select
    If Selection.Row = 65536 Then ' si la colonne est totalement vide
        ActiveCell.EntireColumn.Delete 'elle s'efface
        Cells(lig, col).Select
    Else
        y = ActiveCell.Row
        Selection.Offset(-y + 2, 1).Select
    End If
Next i
End Sub

bon courage
@+

 

[mumu]

Je te remercie !!!

ça marche super ! :lol: