Connaîtriez-vous une routine qui supprime, sans devoir les sélectionner une
à une, toutes les lignes vides d'une plage d'une feuille EXCEL ?
(EXCEL2003 sous WinXP).
Merci de votre aide.
B
--
à tantôt !
DJ9B
e-mail : *Enleve_moi_ça*dj9b@free.fr
Site : www.dj9b.fr.st
" 0B0" <b@biotec.ch> a écrit dans le message de
news:uahiW22JEHA.892@TK2MSFTNGP09.phx.gbl...
Bonjour,
Connaîtriez-vous une routine qui supprime, sans devoir les sélectionner
une
à une, toutes les lignes vides d'une plage d'une feuille EXCEL ?
(EXCEL2003 sous WinXP).
Merci de votre aide.
B
-- à tantôt ! DJ9B e-mail : *Enleve_moi_ça* Site : www.dj9b.fr.st " 0B0" a écrit dans le message de news:
Bonjour,
Connaîtriez-vous une routine qui supprime, sans devoir les sélectionner une
à une, toutes les lignes vides d'une plage d'une feuille EXCEL ? (EXCEL2003 sous WinXP). Merci de votre aide. B
Rai
0B0 wrote:
Bonjour,
Connaîtriez-vous une routine qui supprime, sans devoir les sélectionner une à une, toutes les lignes vides d'une plage d'une feuille EXCEL ? (EXCEL2003 sous WinXP). Merci de votre aide. B
Bonjour,
Code à adapter à tes besoins : Sub byebey() Set cible = Range(InputBox("plage :", "suppression lignes vides"))
For r = cible.Rows.Count + cible.Row To cible.Row Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete End If Next r
End Sub
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
0B0 wrote:
Bonjour,
Connaîtriez-vous une routine qui supprime, sans devoir les
sélectionner une à une, toutes les lignes vides d'une plage d'une
feuille EXCEL ? (EXCEL2003 sous WinXP).
Merci de votre aide.
B
Bonjour,
Code à adapter à tes besoins :
Sub byebey()
Set cible = Range(InputBox("plage :", "suppression lignes vides"))
For r = cible.Rows.Count + cible.Row To cible.Row Step -1
If Application.CountA(Rows(r)) = 0 Then
Rows(r).Delete
End If
Next r
End Sub
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
Connaîtriez-vous une routine qui supprime, sans devoir les sélectionner une à une, toutes les lignes vides d'une plage d'une feuille EXCEL ? (EXCEL2003 sous WinXP). Merci de votre aide. B
Bonjour,
Code à adapter à tes besoins : Sub byebey() Set cible = Range(InputBox("plage :", "suppression lignes vides"))
For r = cible.Rows.Count + cible.Row To cible.Row Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete End If Next r
End Sub
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
0B0
Bonjour et merci,
J'ai essayé les 2 possibilités. Ca marche bien. Bien cordialement
B.
" 0B0" a écrit dans le message de news:
Bonjour,
Connaîtriez-vous une routine qui supprime, sans devoir les sélectionner une
à une, toutes les lignes vides d'une plage d'une feuille EXCEL ? (EXCEL2003 sous WinXP). Merci de votre aide. B
Bonjour et merci,
J'ai essayé les 2 possibilités. Ca marche bien.
Bien cordialement
B.
" 0B0" <b@biotec.ch> a écrit dans le message de
news:uahiW22JEHA.892@TK2MSFTNGP09.phx.gbl...
Bonjour,
Connaîtriez-vous une routine qui supprime, sans devoir les sélectionner
une
à une, toutes les lignes vides d'une plage d'une feuille EXCEL ?
(EXCEL2003 sous WinXP).
Merci de votre aide.
B