Supprimer les lignes NULLES

Bonjour,

Je trouve beaucoup (de questions et) de réponses sur l'effacement des lignes vides en VBA, mais aucune ne semble effacer les lignes dans lesquelles se trouvent des formules qui renvoient 0 ou qui ne renvoient rien. (Vu que je n'ai

Quelqu'un saurait-il m'aider ?

Merci,

Salut,

Je suppose que l'on pourra t'aider On peut voir un bout de ton fichier ?

Cordialement.

Bonjour,

Un début de réponse en attendant un fichier.

Option Explicit
Public Sub EffacerLignesColonneA()
Dim ws As Worksheet
Dim derLigne As Long, i As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Feuil1")
    With ws
        derLigne = .Range("A" & Rows.Count).End(xlUp).Row
        For i = derLigne To 1 Step -1
            If .Cells(i, "A") = Empty Or .Cells(i, "A") = 0 Then Rows(i).Delete
        Next
    End With
    Set ws = Nothing
End Sub

Bonjour Jean Eric,

Petite question. je vois à la fin du code Set ws = Nothing. Je l'ai déjà vu ailleurs sur d'autres codes bien sur. Quel est l'intérêt de cette ligne?.

Cordialement.

Bonjour,

Merci pour vos réponses, voici les fichiers.

La seconde feuille du xlsm contient des valeurs qui ont été copiées si la colonne A de la première feuille contenait une info, sinon case vide.

Le xlsx est un résultat "manuel" de ce à quoi je veux arriver.

(Je lirai le code que vous m'avez envoyé ce midi, je suis à court de temps juste maintenant :/ )

Merci en tout cas !

Bonjour,

Je ne suis pas le plus expérimenté pour t'expliquer la chose:

L'instruction 'Set' attribue une référence d'objet à une variable (Dim ws as Worksheet ---> Set ws= Worksheets("Feuil1")

Le mot clé 'Nothing' annule cette association et libère la mémoire dédiée.

Cdlt.

Bonjour,

Voilà, j'ai mis la formule et ça fait exactement ce que je voulais.

Formidable, magnifique, audacieux, explosif !

Merci beaucoup