Bonjour,
Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une
feuille.
Si quelqu'un à ça en tête...
Merci par avance
Cordialement
Hervé
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
Mgr T. Banni
peut-être ceci, hervé :
Sub DetruireLignesVides() Dim DerniereLigne Dim r DerniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DerniereLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH Mgr T.B.
"Hervé" a écrit dans le message de news: 4a1bb9e3$0$29574$
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé
peut-être ceci, hervé :
Sub DetruireLignesVides()
Dim DerniereLigne
Dim r
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
HTH
Mgr T.B.
"Hervé" <h.rousselin@nd-grandchamp.fr> a écrit dans le message de news:
4a1bb9e3$0$29574$426a74cc@news.free.fr...
Bonjour,
Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une
feuille.
Si quelqu'un à ça en tête...
Merci par avance
Cordialement
Hervé
Sub DetruireLignesVides() Dim DerniereLigne Dim r DerniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DerniereLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH Mgr T.B.
"Hervé" a écrit dans le message de news: 4a1bb9e3$0$29574$
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé
Hervé
Ca m'a tt planté lollll Merci qd mm
Document sans nom "Mgr T. Banni" a écrit dans le message de news:
peut-être ceci, hervé :
Sub DetruireLignesVides() Dim DerniereLigne Dim r DerniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DerniereLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH Mgr T.B.
"Hervé" a écrit dans le message de news: 4a1bb9e3$0$29574$
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé
Ca m'a tt planté lollll
Merci qd mm
Document sans nom
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de
news:eIrmxde3JHA.3304@TK2MSFTNGP06.phx.gbl...
peut-être ceci, hervé :
Sub DetruireLignesVides()
Dim DerniereLigne
Dim r
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
HTH
Mgr T.B.
"Hervé" <h.rousselin@nd-grandchamp.fr> a écrit dans le message de news:
4a1bb9e3$0$29574$426a74cc@news.free.fr...
Bonjour,
Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une
feuille.
Si quelqu'un à ça en tête...
Merci par avance
Cordialement
Hervé
Document sans nom "Mgr T. Banni" a écrit dans le message de news:
peut-être ceci, hervé :
Sub DetruireLignesVides() Dim DerniereLigne Dim r DerniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DerniereLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH Mgr T.B.
"Hervé" a écrit dans le message de news: 4a1bb9e3$0$29574$
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé
gmlsteph
Bonjour,
tu peux supprimer les lignes vides d'une plage ou d'un tableau mais pas celles de la feuille car elle conservera toujours son nombre de lignes qu'elles soient vides ou pleines. A la rigueur tu peux masquer la plage restant non utilisée sous tes données.
-- lSteph
On 26 mai, 11:43, Hervé wrote:
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'u ne feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé
Bonjour,
tu peux supprimer les lignes vides d'une plage ou d'un tableau
mais pas celles de la feuille car elle conservera toujours son
nombre de lignes qu'elles soient vides ou pleines.
A la rigueur tu peux masquer la plage restant non utilisée sous tes
données.
--
lSteph
On 26 mai, 11:43, Hervé <h.rousse...@nd-grandchamp.fr> wrote:
Bonjour,
Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'u ne
feuille.
Si quelqu'un à ça en tête...
Merci par avance
Cordialement
Hervé
tu peux supprimer les lignes vides d'une plage ou d'un tableau mais pas celles de la feuille car elle conservera toujours son nombre de lignes qu'elles soient vides ou pleines. A la rigueur tu peux masquer la plage restant non utilisée sous tes données.
-- lSteph
On 26 mai, 11:43, Hervé wrote:
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'u ne feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé
Mgr T. Banni
évidemment, mon fils, si vous vous êtes servi de cette proc comme vous écrivez la France.... Mgr T.B....comme Tout Bouleversifié
"Hervé" a écrit dans le message de news: 4a1bbf5d$0$20683$
Ca m'a tt planté lollll Merci qd mm
Document sans nom "Mgr T. Banni" a écrit dans le message de news:
peut-être ceci, hervé :
Sub DetruireLignesVides() Dim DerniereLigne Dim r DerniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DerniereLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH Mgr T.B.
"Hervé" a écrit dans le message de news: 4a1bb9e3$0$29574$
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé
évidemment, mon fils, si vous vous êtes servi de cette proc comme vous
écrivez la France....
Mgr T.B....comme Tout Bouleversifié
"Hervé" <h.rousselin@nd-grandchamp.fr> a écrit dans le message de news:
4a1bbf5d$0$20683$426a74cc@news.free.fr...
Ca m'a tt planté lollll
Merci qd mm
Document sans nom
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de
news:eIrmxde3JHA.3304@TK2MSFTNGP06.phx.gbl...
peut-être ceci, hervé :
Sub DetruireLignesVides()
Dim DerniereLigne
Dim r
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
HTH
Mgr T.B.
"Hervé" <h.rousselin@nd-grandchamp.fr> a écrit dans le message de news:
4a1bb9e3$0$29574$426a74cc@news.free.fr...
Bonjour,
Je n'arrive plus à trouver comment supprimer toutes les lignes vide
d'une
feuille.
Si quelqu'un à ça en tête...
Merci par avance
Cordialement
Hervé
évidemment, mon fils, si vous vous êtes servi de cette proc comme vous écrivez la France.... Mgr T.B....comme Tout Bouleversifié
"Hervé" a écrit dans le message de news: 4a1bbf5d$0$20683$
Ca m'a tt planté lollll Merci qd mm
Document sans nom "Mgr T. Banni" a écrit dans le message de news:
peut-être ceci, hervé :
Sub DetruireLignesVides() Dim DerniereLigne Dim r DerniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DerniereLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
HTH Mgr T.B.
"Hervé" a écrit dans le message de news: 4a1bb9e3$0$29574$
Bonjour, Je n'arrive plus à trouver comment supprimer toutes les lignes vide d'une feuille. Si quelqu'un à ça en tête... Merci par avance Cordialement Hervé