Supprimer les lignes qui n'ont pas de valeurs en cellule A Résolu/Fermé

Question

Bonjour, 

Je sais que ce sujet a déjà été traité, mais la réponse qui a été donnée ne me convient pas. J'ai mit le lien ci dessus :

https://forums.commentcamarche.net/forum/affich-2338854-excel-macro-effacer-ligne-ayant-a-vide

Les codes qui sont proposé dans cette discussion n'ont pas l'air de marcher.
Rappel je cherche un code qui me supprime toutes les lignes de mon tableau qui n'ont pas de valeur en A.

code testé :

Sub efface_A_vide()
Dim l As long
For l = Cells(65356, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

chossette9 · Answer

Bonjour, 

bizarre que ça ne fonctionne pas, le code est bon, il doit supprimer les lignes qui n'ont pas de valeur en A... 
 
Cordialement.

michel_m · Answer

Bonjour, 

tout simplement 
Sub Supprimer_si_vide() 
    Dim Ligne As Long 
    On Error Resume Next 
    Ligne = Columns("A").Find("*", , , , , xlPrevious).Row 
    Range("A2:A" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End Sub 
  
  
attention! "" résultat d'une formule ne veut pas dire aucune valeur !.... 
aucune valeur=vide
 Michel

Supprimer les lignes qui n'ont pas de valeurs en cellule A

2 réponses

Discussions similaires