Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

suppression colonne et ligne vide

3 réponses
Avatar
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

3 réponses

Avatar
JB
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 wrote:
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


Avatar
Daniel.C
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" a écrit dans le message de news:

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


Avatar
marcus
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" a écrit dans le message de news:

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