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:

VBA Excel et suppression de lignes
Forcer suppression fichier - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Word et excel gratuit - Guide
Liste déroulante excel - Guide

3 réponses

Réponse 1 / 3

sosso
19 avril 2006 à 16:37

merci beaucoup!!!

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

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 569
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.

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.

Réponse 2 / 3

Nico2408
19 janv. 2009 à 20:12

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

Réponse 3 / 3

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 858
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

Discussions similaires

remettre toutes les colonnes et les lignes masquées