Y a-t-il un moyen rapide et efficace pour supprimer toutes
les lignes vides d'une feuille de calcul ?
Merci
.
Dédé
Salut Anita !
Pour être un peu plus précis que ced ..;-))
Private Sub CommandButton1_Click() Range("a1").End(xlDown)(2).Delete Shift:=xlUp End Sub
Tu peux faire un nouvreau bouton et le coller sur ta feuille et ensuite, utiliser ce code pour effacer les lignes qui ont comme première case (Colonne "a") un contenu vide ...
Est-ce que cela te convient ?
Si tu veux des explications concernant le VBA, tu peux toujours demander !!
Salutations Dédé "anita" a écrit dans le message de news:06cd01c3446d$c747a070$
Bonjour,
Y a-t-il un moyen rapide et efficace pour supprimer toutes les lignes vides d'une feuille de calcul ?
Merci
Salut Anita !
Pour être un peu plus précis que ced ..;-))
Private Sub CommandButton1_Click()
Range("a1").End(xlDown)(2).Delete Shift:=xlUp
End Sub
Tu peux faire un nouvreau bouton et le coller sur ta feuille et ensuite,
utiliser ce code pour effacer les lignes qui ont comme première case
(Colonne "a") un contenu vide ...
Est-ce que cela te convient ?
Si tu veux des explications concernant le VBA, tu peux toujours demander !!
Salutations
Dédé
"anita" <anitabmk@hotmail.com> a écrit dans le message de
news:06cd01c3446d$c747a070$a501280a@phx.gbl...
Bonjour,
Y a-t-il un moyen rapide et efficace pour supprimer toutes
les lignes vides d'une feuille de calcul ?
Private Sub CommandButton1_Click() Range("a1").End(xlDown)(2).Delete Shift:=xlUp End Sub
Tu peux faire un nouvreau bouton et le coller sur ta feuille et ensuite, utiliser ce code pour effacer les lignes qui ont comme première case (Colonne "a") un contenu vide ...
Est-ce que cela te convient ?
Si tu veux des explications concernant le VBA, tu peux toujours demander !!
Salutations Dédé "anita" a écrit dans le message de news:06cd01c3446d$c747a070$
Bonjour,
Y a-t-il un moyen rapide et efficace pour supprimer toutes les lignes vides d'une feuille de calcul ?
Merci
anita
Trop top. Merci je me suis fait la petite macro
-----Message d'origine----- salut
va voir sur http://dj.joss.free.fr
-----Message d'origine----- Bonjour,
Y a-t-il un moyen rapide et efficace pour supprimer toutes
les lignes vides d'une feuille de calcul ?
Merci
.
.
Trop top. Merci je me suis fait la petite macro
-----Message d'origine-----
salut
va voir sur http://dj.joss.free.fr
-----Message d'origine-----
Bonjour,
Y a-t-il un moyen rapide et efficace pour supprimer
toutes
Y a-t-il un moyen rapide et efficace pour supprimer toutes
les lignes vides d'une feuille de calcul ?
Merci
.
.
AV
Sub Sup_Lg_Vides() Application.ScreenUpdating = False If [counta(1:1)] > 0 Then lg1 = 1 Else lg1 = Cells.Find("*").Row lgDer = Cells.Find("*", , , , , xlPrevious).Row For R = lgDer - 1 To lg1 + 1 Step -1 If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete Next R End Sub
AV
Sub Sup_Lg_Vides()
Application.ScreenUpdating = False
If [counta(1:1)] > 0 Then lg1 = 1 Else lg1 = Cells.Find("*").Row
lgDer = Cells.Find("*", , , , , xlPrevious).Row
For R = lgDer - 1 To lg1 + 1 Step -1
If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete
Next R
End Sub
Sub Sup_Lg_Vides() Application.ScreenUpdating = False If [counta(1:1)] > 0 Then lg1 = 1 Else lg1 = Cells.Find("*").Row lgDer = Cells.Find("*", , , , , xlPrevious).Row For R = lgDer - 1 To lg1 + 1 Step -1 If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete Next R End Sub
