Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel supression plage

supression plage

1 réponse
Avatar
Jean-Marc
Bonjour, j'ai des données eparpillé sur ma feuille:

1 2 4
1 1 1
1
1 5

je voudrait supprimer toutes les colonnes vides sur 74 colonnes avec ce code
cela ne marche pas

Range("b1:b4").Select

For compteur = 1 To 74
If IsEmpty(Selection) Then
Selection.Delete Shift:=xlToLeft
End If
Selection = Selection.Offset(0, 1)
Next compteur
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Supprime lescolonnes totalement vides:

For Each c In [A1].Resize(, 75)
If Application.CountA(Columns(c.Column)) = 0 Then
Columns(c.Column).Delete
Next c

Cordialement JB