(VBA)Suppression de colonne vide
Résolu
Okalys
Messages postés
20
Statut
Membre
-
Okalys Messages postés 20 Statut Membre -
Okalys Messages postés 20 Statut Membre -
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
A voir également:
- (VBA)Suppression de colonne vide
- Forcer suppression fichier - Guide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Supprimer page word vide - Guide
- Colonne word - Guide
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
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