VBA Excel et suppression de lignes

Fermé
SOSSO - 12 avril 2006 à 18:44
 Nico2408 - 19 janv. 2009 à 20:12
Bonjour,

je souhaiterais supprimer les lignes d'un tableau où la cellule est vide dans la colonne G (de G2 à G236). j'ai ecris ce code mais cela ne fonctionne pas :

Dim J As long
Dim Plage as Range

Set Plage = Range ("G5:G236" & Range ("G5").End(x1down).row)

For J = Plage.Cells.Count To Step -1
If plage.Cells(J).value = "" Then
Plage.Cells(J).EntireRow.Delete
End If
Next

Est ce que quelqu'un pourrait m'indiquer où j'ai fais mon erreur?
ou bien peut être avez vous une autre solution?

Merci bcp d'avance

sosso
A voir également:

3 réponses

merci beaucoup!!!

mais en fait je suis revenue à une solution beaucoup plus simple
0
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
19 avril 2006 à 20:21
Salut,

mais en fait je suis revenue à une solution beaucoup plus simple

Ca sera pas mal de partager ta solution, pour ceux qu'auront besoin plus tard. Merci.

lami20j

P.S. Ce n'est pas obligatoire mais dans l'esprit dont tu as posé la question et la reponse donnée par JvDo...... On apprends toujours quelque chose.
1
MrB Messages postés 2 Date d'inscription mardi 20 février 2007 Statut Membre Dernière intervention 20 février 2007 9
20 févr. 2007 à 12:40
Oui, cher Lami
moi ca m'interesse
car je cherche à supprimer les lignes dont les 4 premieres cellules sont vide...
A vous lire, merci d'avance.
0
Ca m'aurait bien interesse aussi... :-/
0
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
13 avril 2006 à 00:33
bonsoir,

essaye avec ce code :
Dim J As Long
Dim Plage As Range
Set Plage = Range("G5", Range("G65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = "" Then
        Plage.Cells(J).EntireRow.Delete
    End If
Next
cordialement
-1