...pas besoin de macro. Ne t'en pose pas, prends tout et trie!
Cordialement.
-- lSteph
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
Tatanka
Salut compatriote,
Essaie ceci :
Sub Enlever_Lignes_Vides() Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete Next i End With End Sub
Serge de Québec ( Limoilou les gros loups )
"Erico" a écrit dans le message de news:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
Salut compatriote,
Essaie ceci :
Sub Enlever_Lignes_Vides()
Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _
Title:=" Supprimer lignes vides", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete
Next i
End With
End Sub
Serge de Québec ( Limoilou les gros loups )
"Erico" <Erico@discussions.microsoft.com> a écrit dans le message de news: C57F8BE6-F5AF-491C-864A-003509AE59F4@microsoft.com...
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la
plage" pour supprimer des lignes vides seulement.
Sub Enlever_Lignes_Vides() Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete Next i End With End Sub
Serge de Québec ( Limoilou les gros loups )
"Erico" a écrit dans le message de news:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
Tatanka
Préférable de remplacer : If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete par : If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
Serge
"Tatanka" a écrit dans le message de news: exS$
Salut compatriote,
Essaie ceci :
Sub Enlever_Lignes_Vides() Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete Next i End With End Sub
Serge de Québec ( Limoilou les gros loups )
"Erico" a écrit dans le message de news:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
Préférable de remplacer :
If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete
par :
If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
Serge
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: exS$AUsMIHA.5852@TK2MSFTNGP04.phx.gbl...
Salut compatriote,
Essaie ceci :
Sub Enlever_Lignes_Vides()
Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _
Title:=" Supprimer lignes vides", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete
Next i
End With
End Sub
Serge de Québec ( Limoilou les gros loups )
"Erico" <Erico@discussions.microsoft.com> a écrit dans le message de news: C57F8BE6-F5AF-491C-864A-003509AE59F4@microsoft.com...
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la
plage" pour supprimer des lignes vides seulement.
Préférable de remplacer : If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete par : If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete
Serge
"Tatanka" a écrit dans le message de news: exS$
Salut compatriote,
Essaie ceci :
Sub Enlever_Lignes_Vides() Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.Count(.Rows(i)) = 0 Then .Rows(i).Delete Next i End With End Sub
Serge de Québec ( Limoilou les gros loups )
"Erico" a écrit dans le message de news:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
lSteph
Bonjour Erico, Mon premier message , ainsi que celui de Serge sans doute, qui lance une proposition transversale pour laquelle j'attendait d'éventuelles précisions, donc attendent (amha) un retour de ta part...pour savoir ce que tu veux effectivement.
Des lignes ne disparaissent pas vraiment elle reviennent ailleurs, qd on les supprime la feuille compte toujours 65536 lignes. C'est pourquoi le principe d'une sélection exigerait de savoir si l'on veut supprimer la ligne entière ou seulement dans la sélection, car en l'état cela ne va pas lorsqu'on est dans un tableau. Exemple: http://cjoint.com/?lEkYmHtcva
Si dans la plage certaines cellules sont vides la suppression fera remonter celles d'en dessous et à partir de la plage sélectionnée tout l'ensemble du tableau se trouvera décalé.
C'est pour quoi je re propose, soit simplement sélectionner une plage entière , le tableau entier pour trier, car le tri permet par suite d'évacuer les lignes entièrement vides en fin de tableau.
soit une macro qui remonte .entirerow, selon l'exemple de Tatanka :
Sub Enlever_Lignes_Vides_entier() Dim p As Range, i As Long Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.CountA(.Rows(i)) = 0 Then _ .Rows(i).EntireRow.Delete 'ICI Next i End With End Sub
Cordialement.
-- lSteph
On 29 nov, 20:31, Erico wrote:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
Bonjour Erico,
Mon premier message , ainsi que celui de Serge sans doute, qui lance
une proposition transversale pour laquelle j'attendait d'éventuelles
précisions,
donc attendent (amha) un retour de ta part...pour savoir ce que tu
veux effectivement.
Des lignes ne disparaissent pas vraiment elle reviennent ailleurs,
qd on les supprime la feuille compte toujours 65536 lignes.
C'est pourquoi le principe d'une sélection exigerait de savoir si l'on
veut supprimer la ligne entière ou seulement dans la sélection, car en
l'état cela ne va pas lorsqu'on est dans un tableau.
Exemple: http://cjoint.com/?lEkYmHtcva
Si dans la plage certaines cellules sont vides la suppression fera
remonter celles d'en dessous et à partir de la plage sélectionnée tout
l'ensemble du tableau se trouvera décalé.
C'est pour quoi je re propose,
soit simplement sélectionner une plage entière , le tableau entier
pour trier,
car le tri permet par suite d'évacuer les lignes entièrement vides en
fin de tableau.
soit une macro qui remonte .entirerow, selon l'exemple de Tatanka :
Sub Enlever_Lignes_Vides_entier()
Dim p As Range, i As Long
Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _
Title:=" Supprimer lignes vides", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Delete 'ICI
Next i
End With
End Sub
Cordialement.
--
lSteph
On 29 nov, 20:31, Erico <Er...@discussions.microsoft.com> wrote:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la
plage" pour supprimer des lignes vides seulement.
Bonjour Erico, Mon premier message , ainsi que celui de Serge sans doute, qui lance une proposition transversale pour laquelle j'attendait d'éventuelles précisions, donc attendent (amha) un retour de ta part...pour savoir ce que tu veux effectivement.
Des lignes ne disparaissent pas vraiment elle reviennent ailleurs, qd on les supprime la feuille compte toujours 65536 lignes. C'est pourquoi le principe d'une sélection exigerait de savoir si l'on veut supprimer la ligne entière ou seulement dans la sélection, car en l'état cela ne va pas lorsqu'on est dans un tableau. Exemple: http://cjoint.com/?lEkYmHtcva
Si dans la plage certaines cellules sont vides la suppression fera remonter celles d'en dessous et à partir de la plage sélectionnée tout l'ensemble du tableau se trouvera décalé.
C'est pour quoi je re propose, soit simplement sélectionner une plage entière , le tableau entier pour trier, car le tri permet par suite d'évacuer les lignes entièrement vides en fin de tableau.
soit une macro qui remonte .entirerow, selon l'exemple de Tatanka :
Sub Enlever_Lignes_Vides_entier() Dim p As Range, i As Long Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.CountA(.Rows(i)) = 0 Then _ .Rows(i).EntireRow.Delete 'ICI Next i End With End Sub
Cordialement.
-- lSteph
On 29 nov, 20:31, Erico wrote:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
Erico
j'ai fais le tri et ça fonctionné, par chance que mes autres lignes ont suivi ma fréquence voulu.
J'aimerais mieux avoir la macro et je vais l'essayer a mon bureau lundi prochain.
merci la gang.
Erico
"lSteph" a écrit dans le message de news: Bonjour Erico, Mon premier message , ainsi que celui de Serge sans doute, qui lance une proposition transversale pour laquelle j'attendait d'éventuelles précisions, donc attendent (amha) un retour de ta part...pour savoir ce que tu veux effectivement.
Des lignes ne disparaissent pas vraiment elle reviennent ailleurs, qd on les supprime la feuille compte toujours 65536 lignes. C'est pourquoi le principe d'une sélection exigerait de savoir si l'on veut supprimer la ligne entière ou seulement dans la sélection, car en l'état cela ne va pas lorsqu'on est dans un tableau. Exemple: http://cjoint.com/?lEkYmHtcva
Si dans la plage certaines cellules sont vides la suppression fera remonter celles d'en dessous et à partir de la plage sélectionnée tout l'ensemble du tableau se trouvera décalé.
C'est pour quoi je re propose, soit simplement sélectionner une plage entière , le tableau entier pour trier, car le tri permet par suite d'évacuer les lignes entièrement vides en fin de tableau.
soit une macro qui remonte .entirerow, selon l'exemple de Tatanka :
Sub Enlever_Lignes_Vides_entier() Dim p As Range, i As Long Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.CountA(.Rows(i)) = 0 Then _ .Rows(i).EntireRow.Delete 'ICI Next i End With End Sub
Cordialement.
-- lSteph
On 29 nov, 20:31, Erico wrote:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.
Merci
Érico de Montréal
j'ai fais le tri et ça fonctionné, par chance que mes autres lignes ont
suivi ma fréquence voulu.
J'aimerais mieux avoir la macro et je vais l'essayer a mon bureau lundi
prochain.
merci la gang.
Erico
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de
news:7663bcdd-7752-4dab-8184-a6112e8b30d8@e25g2000prg.googlegroups.com...
Bonjour Erico,
Mon premier message , ainsi que celui de Serge sans doute, qui lance
une proposition transversale pour laquelle j'attendait d'éventuelles
précisions,
donc attendent (amha) un retour de ta part...pour savoir ce que tu
veux effectivement.
Des lignes ne disparaissent pas vraiment elle reviennent ailleurs,
qd on les supprime la feuille compte toujours 65536 lignes.
C'est pourquoi le principe d'une sélection exigerait de savoir si l'on
veut supprimer la ligne entière ou seulement dans la sélection, car en
l'état cela ne va pas lorsqu'on est dans un tableau.
Exemple: http://cjoint.com/?lEkYmHtcva
Si dans la plage certaines cellules sont vides la suppression fera
remonter celles d'en dessous et à partir de la plage sélectionnée tout
l'ensemble du tableau se trouvera décalé.
C'est pour quoi je re propose,
soit simplement sélectionner une plage entière , le tableau entier
pour trier,
car le tri permet par suite d'évacuer les lignes entièrement vides en
fin de tableau.
soit une macro qui remonte .entirerow, selon l'exemple de Tatanka :
Sub Enlever_Lignes_Vides_entier()
Dim p As Range, i As Long
Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _
Title:=" Supprimer lignes vides", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Delete 'ICI
Next i
End With
End Sub
Cordialement.
--
lSteph
On 29 nov, 20:31, Erico <Er...@discussions.microsoft.com> wrote:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la
plage" pour supprimer des lignes vides seulement.
j'ai fais le tri et ça fonctionné, par chance que mes autres lignes ont suivi ma fréquence voulu.
J'aimerais mieux avoir la macro et je vais l'essayer a mon bureau lundi prochain.
merci la gang.
Erico
"lSteph" a écrit dans le message de news: Bonjour Erico, Mon premier message , ainsi que celui de Serge sans doute, qui lance une proposition transversale pour laquelle j'attendait d'éventuelles précisions, donc attendent (amha) un retour de ta part...pour savoir ce que tu veux effectivement.
Des lignes ne disparaissent pas vraiment elle reviennent ailleurs, qd on les supprime la feuille compte toujours 65536 lignes. C'est pourquoi le principe d'une sélection exigerait de savoir si l'on veut supprimer la ligne entière ou seulement dans la sélection, car en l'état cela ne va pas lorsqu'on est dans un tableau. Exemple: http://cjoint.com/?lEkYmHtcva
Si dans la plage certaines cellules sont vides la suppression fera remonter celles d'en dessous et à partir de la plage sélectionnée tout l'ensemble du tableau se trouvera décalé.
C'est pour quoi je re propose, soit simplement sélectionner une plage entière , le tableau entier pour trier, car le tri permet par suite d'évacuer les lignes entièrement vides en fin de tableau.
soit une macro qui remonte .entirerow, selon l'exemple de Tatanka :
Sub Enlever_Lignes_Vides_entier() Dim p As Range, i As Long Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _ Title:=" Supprimer lignes vides", Type:=8) With p For i = .Rows.Count To 1 Step -1 If Application.CountA(.Rows(i)) = 0 Then _ .Rows(i).EntireRow.Delete 'ICI Next i End With End Sub
Cordialement.
-- lSteph
On 29 nov, 20:31, Erico wrote:
Bonjour,
J'aimerais avoir une macro qui me poserait comme question "Sélectionner la plage" pour supprimer des lignes vides seulement.