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
jps
bonjour jc peut-être peux-tu essayer cela en l'adaptant à tes besoins... je te rassure : ce n'est pas de moi
Sub supprimeLignesVides() For i = 1 To 20 Step 1 'par exemple If Range("A" & i).Value = "" Then Range("A" & i).EntireRow.Hidden = True Next i LastRow = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH jps
"jc" a écrit dans le message de news:41ae1c5c$0$22452$
Je cherche une macro pour supprimer les lignes vides sur excel mareci par avance de votre aide
bonjour jc
peut-être peux-tu essayer cela en l'adaptant à tes besoins...
je te rassure : ce n'est pas de moi
Sub supprimeLignesVides()
For i = 1 To 20 Step 1 'par exemple
If Range("A" & i).Value = "" Then Range("A" & i).EntireRow.Hidden = True
Next i
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
HTH
jps
"jc" <jc@sportif.net> a écrit dans le message de
news:41ae1c5c$0$22452$626a14ce@news.free.fr...
Je cherche une macro pour supprimer les lignes vides sur excel mareci par
avance de votre aide
bonjour jc peut-être peux-tu essayer cela en l'adaptant à tes besoins... je te rassure : ce n'est pas de moi
Sub supprimeLignesVides() For i = 1 To 20 Step 1 'par exemple If Range("A" & i).Value = "" Then Range("A" & i).EntireRow.Hidden = True Next i LastRow = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH jps
"jc" a écrit dans le message de news:41ae1c5c$0$22452$
Je cherche une macro pour supprimer les lignes vides sur excel mareci par avance de votre aide