J'ai recopié le code ci-dessous dans un module pour supprimer des lignes
vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides()
Derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DernierLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
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
isabelle
bonjour Catherine,
il faut remplacer .delete par .Delete Shift:=xlUp
isabelle
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bizarre non.... ?
Catherine
bonjour Catherine,
il faut remplacer
.delete
par
.Delete Shift:=xlUp
isabelle
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes
vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides()
Derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DernierLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bizarre non.... ?
Catherine
Philippe.R
Bonjour, N'ayant pas pu charger la réponse d'Isabelle, je prends le risque d'un doublon en proposant :
Sub supprimer_lignes_vides() 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
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"thouvenin.net" a écrit dans le message de news:3ff970b7$0$7138$
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bizarre non.... ?
Catherine
Bonjour,
N'ayant pas pu charger la réponse d'Isabelle, je prends le risque d'un doublon en proposant :
Sub supprimer_lignes_vides()
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
"thouvenin.net" <thouvenin.net@wanadoo.fr> a écrit dans le message de
news:3ff970b7$0$7138$626a54ce@news.free.fr...
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes
vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides()
Derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DernierLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bonjour, N'ayant pas pu charger la réponse d'Isabelle, je prends le risque d'un doublon en proposant :
Sub supprimer_lignes_vides() 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
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"thouvenin.net" a écrit dans le message de news:3ff970b7$0$7138$
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bizarre non.... ?
Catherine
Ellimac
Bonjour,
Ce code fonctionnera avec la même variable "Dernierligne" :
For r = DerniereLigne To 1 Step -1
Camille
-----Message d'origine----- Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes
vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bizarre non.... ?
Catherine
.
Bonjour,
Ce code fonctionnera avec la même variable "Dernierligne" :
For r = DerniereLigne To 1 Step -1
Camille
-----Message d'origine-----
Bonjour,
J'ai recopié le code ci-dessous dans un module pour
supprimer des lignes
vides et cela ne marche pas. Qui peut m'expliquer
pourquoi ?
Sub supprimer_lignes_vides()
Derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DernierLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette
macro ne fait rien.
Ce code fonctionnera avec la même variable "Dernierligne" :
For r = DerniereLigne To 1 Step -1
Camille
-----Message d'origine----- Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes
vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bizarre non.... ?
Catherine
.
isabelle
ha ban oui! c'est la variable DerniereLigne qui avait changer de nom merci Philippe ;-) isabelle
Bonjour, N'ayant pas pu charger la réponse d'Isabelle, je prends le risque d'un doublon en proposant :
Sub supprimer_lignes_vides() 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
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"thouvenin.net" a écrit dans le message de news:3ff970b7$0$7138$
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
Bizarre non.... ?
Catherine
ha ban oui! c'est la variable DerniereLigne qui avait changer de nom
merci Philippe ;-)
isabelle
Bonjour,
N'ayant pas pu charger la réponse d'Isabelle, je prends le risque d'un doublon en proposant :
Sub supprimer_lignes_vides()
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
"thouvenin.net" <thouvenin.net@wanadoo.fr> a écrit dans le message de
news:3ff970b7$0$7138$626a54ce@news.free.fr...
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes
vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides()
Derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DernierLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.
ha ban oui! c'est la variable DerniereLigne qui avait changer de nom merci Philippe ;-) isabelle
Bonjour, N'ayant pas pu charger la réponse d'Isabelle, je prends le risque d'un doublon en proposant :
Sub supprimer_lignes_vides() 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
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"thouvenin.net" a écrit dans le message de news:3ff970b7$0$7138$
Bonjour,
J'ai recopié le code ci-dessous dans un module pour supprimer des lignes vides et cela ne marche pas. Qui peut m'expliquer pourquoi ?
Sub supprimer_lignes_vides() Derniereligne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = DernierLigne To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub
Il n'y a pas de bug signalé mais l'éxécution de cette macro ne fait rien.