supprimer les lignes s'il n'y a pas d'information en dehors de la cellule de la colonne A

Sélection de la plage > édition > atteindre > cellules > cocher "cellules vides"

Ok > Edition > supprimer

AV

non cette méthode ne convient pas
car cela ne supprime pas les lignes mais les cellules
donc les infos de la colonne A ensuite ne correspondent plus

alors que je souhaite que la ligne soit supprimée
si elle ne contient qu'une seule information dans la cellule A

AV a écrit:

Sélection de la plage > édition > atteindre > cellules > cocher "cellules vides"

Ok > Edition > supprimer

AV

non cette méthode ne convient pas

La précision de la réponse est directement proportionnelle à la précision de la
question....
Ou est ton tableau ? A1:ZZxx ?
Faut-il que toutes les cellules de la ligne du tableau (sauf en A) soient vides
pour supprimer ?
Etc...

AV

excuses pour mes mauvaises explications

la colonne A est toujours remplie

(nombre de lignes et de colonnes variables)

certaines cellules sont remplies d'autres pas
ce qui fait qu'il y a des lignes qui n'ont que la colonne A avec une
information
c'est celles-ci que je souhaite supprimer


Faut-il que toutes les cellules de la ligne du tableau (sauf en A)
soient vides pour supprimer ? oui

----------------------------------------------------------------------------

AV a écrit:

non cette méthode ne convient pas

La précision de la réponse est directement proportionnelle à la précision de la
question....
Ou est ton tableau ? A1:ZZxx ?
Faut-il que toutes les cellules de la ligne du tableau (sauf en A) soient vides
pour supprimer ?
Etc...

AV

Une...
Sub zzz()
For Each lg In [A1].CurrentRegion.Rows
x = lg.Row
If Evaluate("CountA(" & x & ":" & x & ")") = 1 _
And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete
Next
End Sub

AV

impec

merci merci merci merci merci merci merci merci

encore une petite macro qui va me simplifier la vie
========================================================
AV a écrit:

Une...
Sub zzz()
For Each lg In [A1].CurrentRegion.Rows
x = lg.Row
If Evaluate("CountA(" & x & ":" & x & ")") = 1 _
And Cells(x, 1) <> "" Then Rows(x).EntireRow.Delete
Next
End Sub

AV