suppression colonne et ligne vide

Le
marcus
Bonjour à vous tous
je suis à la recherche d'un code VBA qui supprime les colonnes et les
lignes vides d'une feuille.

Merci de votre aide
Marc
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5000991
Bonjour,

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Application.CountA(Columns(i)) = 0 Then Columns(i).Delete
Next i

JB
http://boisgontierjacques.free.fr

On 22 oct, 16:59, marcus
Bonjour à vous tous
je suis à la recherche d'un code VBA qui supprime les colonnes et les
lignes vides d'une feuille.

Merci de votre aide
Marc


Daniel.C
Le #5000981
Bonjour.
Essaie :

Sub test()
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Application.CountA(Columns(i)) = 0 Then
Columns(i).Delete
End If
Next
End Sub

Cordialement.
Daniel
"marcus"
Bonjour à vous tous
je suis à la recherche d'un code VBA qui supprime les colonnes et les
lignes vides d'une feuille.

Merci de votre aide
Marc


marcus
Le #5000931
Bonjour à Daniel et JB

Merci de vos réponses
Bonne journée
Marc

Bonjour.
Essaie :

Sub test()
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Application.CountA(Columns(i)) = 0 Then
Columns(i).Delete
End If
Next
End Sub

Cordialement.
Daniel
"marcus"
Bonjour à vous tous
je suis à la recherche d'un code VBA qui supprime les colonnes et les
lignes vides d'une feuille.

Merci de votre aide
Marc







Publicité
Poster une réponse
Anonyme