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

Signaler
Messages postés
20
Date d'inscription
dimanche 30 décembre 2007
Statut
Membre
Dernière intervention
7 juin 2009
-
Messages postés
20
Date d'inscription
dimanche 30 décembre 2007
Statut
Membre
Dernière intervention
7 juin 2009
-
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

3 réponses

Messages postés
1712
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
16 janvier 2020
523
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
Messages postés
16429
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
8 avril 2021
3 160
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
Messages postés
20
Date d'inscription
dimanche 30 décembre 2007
Statut
Membre
Dernière intervention
7 juin 2009
4
Rebonjour,

Merci beaucoup pour votre aide.
Les 2 solutions marchent impecables.

Bonne soirée