Bonjour à tous, je souhaiterais effacer les lignes vides de ma feuille excel, ne contenant pas de valeur mais des formules, le tout en vba.
Voilà si qu'elqu'un peut m'aider, merci.
Re : Effacer lignes entières vides contenant une formule
Re,
Et avec ce code
Code:
Sub SupLigVide()
Dim DerLig As Long, Lig As Long
With Sheets("Synthèse")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = [COLOR=green][B]DerLig To 4 Step - 1[/B][/COLOR]
If .Range("A" & Lig).Value = "" Then
Rows(Lig).EntireRow.Delete
End If
Next Lig
End With
End Sub
Re : Effacer lignes entières vides contenant une formule
Re,
Tes explications sont toujours aussi fournies et aussi claires...
Mais si c'est pour faire ce qui figure dans le post précédent alors :
Code:
Sub EffaceLignesVides()
With Sheets("Synthèse")
Dim i as long
For i = .Range("A65536").End(xlUp).Row To 4 Step -1
If Cells(i, 1) = "" Then .Cells(i, 1).EntireRow.Delete
Next
End With
End Sub
Re : Effacer lignes entières vides contenant une formule
Merci spitnolan ç'est exactement ce que je voulais, Bruno merci pour ta sympathie et ton aide mais ton code n'efface pas toutes les lignes il faut relancer plusieurs fois la macro afin de tout effacer.
Merci à tous vraiment sympa ce forum.
Re : Effacer lignes entières vides contenant une formule
Oups, désolé
J'ai pas testé lorsque j'ai tapé le code, il faut effectivement effectuer la boucle à l'envers (du bas vers le haut)
Sinon le code saute une ligne sur 2
J'ai modifié le code dans mon précédent post (en vert)
Merci à notre ami Spit, que je salue, qui lui avait inscrit la bonne réponse ...