(VBA)Suppression de colonne vide
Résolu
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
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
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
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 -
ContributeurBonjour,
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 -
Rebonjour,
Merci beaucoup pour votre aide.
Les 2 solutions marchent impecables.
Bonne soirée
