--- Voilà. Je travaille sur Excel 2007.
--- J' aimerai connaitre la formule qui me
permettrait d'épurer des lignes vides
dans une feuille.
---- La feuille au départ contient + de 25 000
lignes qui sont formatées avec des couleurs
pour les besoins de la cause.
--- Ensuite, après plusieurs tris successifs,
il ne reste que 1000 lignes.......
--- Le problème c'est que lorsque j' enregistre
mon fichier, il pèse plsrs MO ;0((
Je souhaite donc créer une formule sous VBA
qui détecterait la dernière ligne qui contient des
données et supprimer le reste des lignes vers le
bas.Car lorsque je le fait manuellement, le fichier
ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et
Bon week-End à tous
Fr@ncois
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
Papyjac
Bonjour François
Et tu faire cela souvent ?
1 fois par jour, 1 fois par mois... ... éventuellement pour d'autres onglets, d'autres classeurs ?
-- Papyjac
"Francois" a écrit :
Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous
François
Bonjour François
Et tu faire cela souvent ?
1 fois par jour, 1 fois par mois...
... éventuellement pour d'autres onglets, d'autres classeurs ?
--
Papyjac
"Francois" a écrit :
Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007.
--- J' aimerai connaitre la formule qui me
permettrait d'épurer des lignes vides
dans une feuille.
---- La feuille au départ contient + de 25 000
lignes qui sont formatées avec des couleurs
pour les besoins de la cause.
--- Ensuite, après plusieurs tris successifs,
il ne reste que 1000 lignes.......
--- Le problème c'est que lorsque j' enregistre
mon fichier, il pèse plsrs MO ;0((
Je souhaite donc créer une formule sous VBA
qui détecterait la dernière ligne qui contient des
données et supprimer le reste des lignes vers le
bas.Car lorsque je le fait manuellement, le fichier
ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et
Bon week-End à tous
Fr@ncois
1 fois par jour, 1 fois par mois... ... éventuellement pour d'autres onglets, d'autres classeurs ?
-- Papyjac
"Francois" a écrit :
Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous
François
michdenis
Tu exécutes la procédure test en prenant soin d'identifier le nom de la feuille ... si tu veux le faire pour chacune des feuilles du classeur
dim sh as worksheet For each sh in worksheets Supprimer_Reste_Feuille sh Next
'------------------------------------------------ Sub test() Supprimer_Reste_Feuille Worksheets("Feuil1") End Sub
'------------------------------------------------ Sub Supprimer_Reste_Feuille(Sh As Worksheet) Dim DerLig As Long With Sh DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row + 1 .Range(.Range("A" & DerLig), _ .Cells(.Cells.Rows.Count, 1)).EntireRow.Delete End With End Sub '------------------------------------------------
"Francois" a écrit dans le message de news: 48f0bff8$0$9585$ Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous
François
Tu exécutes la procédure test en prenant soin
d'identifier le nom de la feuille ... si tu veux le faire
pour chacune des feuilles du classeur
dim sh as worksheet
For each sh in worksheets
Supprimer_Reste_Feuille sh
Next
'------------------------------------------------
Sub test()
Supprimer_Reste_Feuille Worksheets("Feuil1")
End Sub
'------------------------------------------------
Sub Supprimer_Reste_Feuille(Sh As Worksheet)
Dim DerLig As Long
With Sh
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row + 1
.Range(.Range("A" & DerLig), _
.Cells(.Cells.Rows.Count, 1)).EntireRow.Delete
End With
End Sub
'------------------------------------------------
"Francois" <gtoukc@free.fr> a écrit dans le message de news:
48f0bff8$0$9585$426a34cc@news.free.fr...
Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007.
--- J' aimerai connaitre la formule qui me
permettrait d'épurer des lignes vides
dans une feuille.
---- La feuille au départ contient + de 25 000
lignes qui sont formatées avec des couleurs
pour les besoins de la cause.
--- Ensuite, après plusieurs tris successifs,
il ne reste que 1000 lignes.......
--- Le problème c'est que lorsque j' enregistre
mon fichier, il pèse plsrs MO ;0((
Je souhaite donc créer une formule sous VBA
qui détecterait la dernière ligne qui contient des
données et supprimer le reste des lignes vers le
bas.Car lorsque je le fait manuellement, le fichier
ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et
Bon week-End à tous
Fr@ncois
Tu exécutes la procédure test en prenant soin d'identifier le nom de la feuille ... si tu veux le faire pour chacune des feuilles du classeur
dim sh as worksheet For each sh in worksheets Supprimer_Reste_Feuille sh Next
'------------------------------------------------ Sub test() Supprimer_Reste_Feuille Worksheets("Feuil1") End Sub
'------------------------------------------------ Sub Supprimer_Reste_Feuille(Sh As Worksheet) Dim DerLig As Long With Sh DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row + 1 .Range(.Range("A" & DerLig), _ .Cells(.Cells.Rows.Count, 1)).EntireRow.Delete End With End Sub '------------------------------------------------
"Francois" a écrit dans le message de news: 48f0bff8$0$9585$ Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous
François
Francois
Merci^pour le coup de main mais c'est inapplicable ( ou je n'ai pas compris la manip ) Merci qd même
"michdenis" a écrit dans le message de news:
Tu exécutes la procédure test en prenant soin d'identifier le nom de la feuille ... si tu veux le faire pour chacune des feuilles du classeur
dim sh as worksheet For each sh in worksheets Supprimer_Reste_Feuille sh Next
'------------------------------------------------ Sub test() Supprimer_Reste_Feuille Worksheets("Feuil1") End Sub
'------------------------------------------------ Sub Supprimer_Reste_Feuille(Sh As Worksheet) Dim DerLig As Long With Sh DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row + 1 .Range(.Range("A" & DerLig), _ .Cells(.Cells.Rows.Count, 1)).EntireRow.Delete End With End Sub '------------------------------------------------
"Francois" a écrit dans le message de news: 48f0bff8$0$9585$ Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous
François
Merci^pour le coup de main
mais c'est inapplicable ( ou je n'ai pas compris la manip )
Merci qd même
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u69ZJL8KJHA.4708@TK2MSFTNGP02.phx.gbl...
Tu exécutes la procédure test en prenant soin
d'identifier le nom de la feuille ... si tu veux le faire
pour chacune des feuilles du classeur
dim sh as worksheet
For each sh in worksheets
Supprimer_Reste_Feuille sh
Next
'------------------------------------------------
Sub test()
Supprimer_Reste_Feuille Worksheets("Feuil1")
End Sub
'------------------------------------------------
Sub Supprimer_Reste_Feuille(Sh As Worksheet)
Dim DerLig As Long
With Sh
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row + 1
.Range(.Range("A" & DerLig), _
.Cells(.Cells.Rows.Count, 1)).EntireRow.Delete
End With
End Sub
'------------------------------------------------
"Francois" <gtoukc@free.fr> a écrit dans le message de news:
48f0bff8$0$9585$426a34cc@news.free.fr...
Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007.
--- J' aimerai connaitre la formule qui me
permettrait d'épurer des lignes vides
dans une feuille.
---- La feuille au départ contient + de 25 000
lignes qui sont formatées avec des couleurs
pour les besoins de la cause.
--- Ensuite, après plusieurs tris successifs,
il ne reste que 1000 lignes.......
--- Le problème c'est que lorsque j' enregistre
mon fichier, il pèse plsrs MO ;0((
Je souhaite donc créer une formule sous VBA
qui détecterait la dernière ligne qui contient des
données et supprimer le reste des lignes vers le
bas.Car lorsque je le fait manuellement, le fichier
ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et
Bon week-End à tous
Fr@ncois
Merci^pour le coup de main mais c'est inapplicable ( ou je n'ai pas compris la manip ) Merci qd même
"michdenis" a écrit dans le message de news:
Tu exécutes la procédure test en prenant soin d'identifier le nom de la feuille ... si tu veux le faire pour chacune des feuilles du classeur
dim sh as worksheet For each sh in worksheets Supprimer_Reste_Feuille sh Next
'------------------------------------------------ Sub test() Supprimer_Reste_Feuille Worksheets("Feuil1") End Sub
'------------------------------------------------ Sub Supprimer_Reste_Feuille(Sh As Worksheet) Dim DerLig As Long With Sh DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row + 1 .Range(.Range("A" & DerLig), _ .Cells(.Cells.Rows.Count, 1)).EntireRow.Delete End With End Sub '------------------------------------------------
"Francois" a écrit dans le message de news: 48f0bff8$0$9585$ Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous
François
Francois
Je me ravise "michdenis" après bidouille, car j' ai adapté la formule sur plusieurs feuilles , j'ai supprimé qq "mots" çà marche nickel Bon dimanche ;0))
"michdenis" a écrit dans le message de news:
Tu exécutes la procédure test en prenant soin d'identifier le nom de la feuille ... si tu veux le faire pour chacune des feuilles du classeur
dim sh as worksheet For each sh in worksheets Supprimer_Reste_Feuille sh Next
'------------------------------------------------ Sub test() Supprimer_Reste_Feuille Worksheets("Feuil1") End Sub
'------------------------------------------------ Sub Supprimer_Reste_Feuille(Sh As Worksheet) Dim DerLig As Long With Sh DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row + 1 .Range(.Range("A" & DerLig), _ .Cells(.Cells.Rows.Count, 1)).EntireRow.Delete End With End Sub '------------------------------------------------
"Francois" a écrit dans le message de news: 48f0bff8$0$9585$ Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous
François
Je me ravise "michdenis"
après bidouille, car j' ai adapté la formule sur plusieurs
feuilles , j'ai supprimé qq "mots" çà marche nickel
Bon dimanche
;0))
Fr@ncois
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u69ZJL8KJHA.4708@TK2MSFTNGP02.phx.gbl...
Tu exécutes la procédure test en prenant soin
d'identifier le nom de la feuille ... si tu veux le faire
pour chacune des feuilles du classeur
dim sh as worksheet
For each sh in worksheets
Supprimer_Reste_Feuille sh
Next
'------------------------------------------------
Sub test()
Supprimer_Reste_Feuille Worksheets("Feuil1")
End Sub
'------------------------------------------------
Sub Supprimer_Reste_Feuille(Sh As Worksheet)
Dim DerLig As Long
With Sh
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row + 1
.Range(.Range("A" & DerLig), _
.Cells(.Cells.Rows.Count, 1)).EntireRow.Delete
End With
End Sub
'------------------------------------------------
"Francois" <gtoukc@free.fr> a écrit dans le message de news:
48f0bff8$0$9585$426a34cc@news.free.fr...
Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007.
--- J' aimerai connaitre la formule qui me
permettrait d'épurer des lignes vides
dans une feuille.
---- La feuille au départ contient + de 25 000
lignes qui sont formatées avec des couleurs
pour les besoins de la cause.
--- Ensuite, après plusieurs tris successifs,
il ne reste que 1000 lignes.......
--- Le problème c'est que lorsque j' enregistre
mon fichier, il pèse plsrs MO ;0((
Je souhaite donc créer une formule sous VBA
qui détecterait la dernière ligne qui contient des
données et supprimer le reste des lignes vers le
bas.Car lorsque je le fait manuellement, le fichier
ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et
Bon week-End à tous
Fr@ncois
Je me ravise "michdenis" après bidouille, car j' ai adapté la formule sur plusieurs feuilles , j'ai supprimé qq "mots" çà marche nickel Bon dimanche ;0))
"michdenis" a écrit dans le message de news:
Tu exécutes la procédure test en prenant soin d'identifier le nom de la feuille ... si tu veux le faire pour chacune des feuilles du classeur
dim sh as worksheet For each sh in worksheets Supprimer_Reste_Feuille sh Next
'------------------------------------------------ Sub test() Supprimer_Reste_Feuille Worksheets("Feuil1") End Sub
'------------------------------------------------ Sub Supprimer_Reste_Feuille(Sh As Worksheet) Dim DerLig As Long With Sh DerLig = .Cells.Find(What:="*", _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row + 1 .Range(.Range("A" & DerLig), _ .Cells(.Cells.Rows.Count, 1)).EntireRow.Delete End With End Sub '------------------------------------------------
"Francois" a écrit dans le message de news: 48f0bff8$0$9585$ Bonsoir à Tous,
--- Voilà. Je travaille sur Excel 2007. --- J' aimerai connaitre la formule qui me permettrait d'épurer des lignes vides dans une feuille. ---- La feuille au départ contient + de 25 000 lignes qui sont formatées avec des couleurs pour les besoins de la cause. --- Ensuite, après plusieurs tris successifs, il ne reste que 1000 lignes....... --- Le problème c'est que lorsque j' enregistre mon fichier, il pèse plsrs MO ;0(( Je souhaite donc créer une formule sous VBA qui détecterait la dernière ligne qui contient des données et supprimer le reste des lignes vers le bas.Car lorsque je le fait manuellement, le fichier ne pèse pus à l' enregistrement que qq KO ;0))
Merci donc à celui qui me donnera la solution et Bon week-End à tous