VBA Excel et suppression de lignes
SOSSO
-
Nico2408 -
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
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
3 réponses
-
-
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. -
-
-
-
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 Nextcordialement
