Rechercher : dans
Par :

VBA Excel et suppression de lignes

Dernière réponse le 19 jan 2009 à 20:12:36 SOSSO, le 12 avr 2006 à 18:44:38 
 Signaler ce message aux modérateurs

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

1

JvDo, le 13 avr 2006 à 00:33:28

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

Répondre à JvDo

2

sosso, le 19 avr 2006 à 16:37:05

Merci beaucoup!!!

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

Répondre à sosso

3

lami20j, le 19 avr 2006 à 20:21:00

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.

Répondre à lami20j

4

MrB, le 20 fév 2007 à 12:40:46

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.

Répondre à MrB

5

 Nico2408, le 19 jan 2009 à 20:12:36

Ca m'aurait bien interesse aussi... :-/

Répondre à Nico2408