(VBA)Suppression de colonne vide Résolu/Fermé

Question

Bonjour,

Je souhaite qu'excel parcour les colonnes de C4 à V4 et que lorsqu'il tombe sur une cellule vides, il supprime la colonne vide de mon tableau.

J'ai essayé de faire une formule mais impossible de trouver l'erreur.

Voici ma formule : 

Dim y As Long

For y = 1 To 30 Step 1
Cells(3, 4).Selection.End(xlToRight).Column
If (IsEmpty(Cells(1, y))) Then Column(Y).Delete
End If
Next y

Merci pour vos réponses.

Okalys

LatelyGeek · Answer

Un peu différent, mais ça fonctionne:

Sub SuppVide()
Dim y as Integer
Range("C4").Select
For y = 1 To 10
If IsEmpty(ActiveCell) Then
ActiveCell.EntireColumn.Delete
Else
ActiveCell.Offset(0, 1).Select
End If
Next y
End Sub

michel_m · Answer

Bonjour,

En 1 ligne et sans boucle

Sub supprimer_col()
Cells.Range("C4:V4").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

End Sub

Elle est pas belle la vie ?

Bonne soirée

Okalys · Answer

Rebonjour, 

Merci beaucoup pour votre aide.
Les 2 solutions marchent impecables.

Bonne soirée

(VBA)Suppression de colonne vide

3 réponses

Discussions similaires