VBA Excel et suppression de lignes

SOSSO -  
 Nico2408 -
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

Réponse 1 / 3
sosso
 
merci beaucoup!!!

mais en fait je suis revenue à une solution beaucoup plus simple
0
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
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   Statut Membre Dernière intervention   9
 
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
Réponse 2 / 3
Nico2408
 
Ca m'aurait bien interesse aussi... :-/
0
Réponse 3 / 3
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
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

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
Mehdiiii -

27 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses