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
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
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 <mar...@discussions.microsoft.com> wrote:
Bonjour à vous tous
je suis à la recherche d'un code VBA qui supprime les colonnes et les
lignes vides d'une feuille.
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
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
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" <marcus@discussions.microsoft.com> a écrit dans le message de news:
F930B375-DDB2-405A-8381-B80BC661C39D@microsoft.com...
Bonjour à vous tous
je suis à la recherche d'un code VBA qui supprime les colonnes et les
lignes vides d'une feuille.
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
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
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" <marcus@discussions.microsoft.com> a écrit dans le message de news:
F930B375-DDB2-405A-8381-B80BC661C39D@microsoft.com...
Bonjour à vous tous
je suis à la recherche d'un code VBA qui supprime les colonnes et les
lignes vides d'une feuille.
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.