(VBA)Suppression de colonne vide

Résolu
Okalys Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
Okalys Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
LatelyGeek Messages postés 1758 Date d'inscription   Statut Membre Dernière intervention   550
 
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
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0
Réponse 3 / 3
Okalys Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   4
 
Rebonjour,

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

Bonne soirée
0

Discussions similaires

le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
Internat nourriture
shaun37 -
griggo -

4 réponses
Comment faire les coeur vide sur FB
ßaß -
3 -

24 réponses