Supprimer ligne sous condition

[jeanphi]

Bonjour


J'utilise le code ci dessous pour supprimer des lignes vides
Le pb est certaines de ces lignes apparemment vides contiennent des formules que je souhaiter garder!
Comment faire pour que ma macro ne supprime que les lignes réellement vides sans toucher aux lignes ayant une formule?


Public Sub sup_lignes_vides()
Application.ScreenUpdating = False
NoDeColTest = 2 ' en B
NoDeLaPremLig = 7
NoDeLaDernLig = 300
For NoLig = NoDeLaDernLig To NoDeLaPremLig Step -1
If Cells(NoLig, NoDeColTest) = "" Then Rows(NoLig).Delete
Next
Application.ScreenUpdating = True
End Sub

 

[tototiti2008]

Re : Supprimer ligne sous condition

Bonjour JeanPhi,

If Cells(NoLig, NoDeColTest).Value = "" and Cells(NoLig, NoDeColTest).Formula = "" Then Rows(NoLig).Delete

 

[Guest]

Re : Supprimer ligne sous condition

bonjour JeanPhi,

Essaie avec ceci:

Public Sub sup_lignes_vides()
Application.ScreenUpdating = False
NoDeColTest = 2 ' en B
NoDeLaPremLig = 7
NoDeLaDernLig = 300
For NoLig = NoDeLaDernLig To NoDeLaPremLig Step -1
If Cells(NoLig, NoDeColTest) = "" Then 
  [COLOR=red]If not Cells(NoLig,NoDeColText).HasFormula [/COLOR]then Rows(NoLig).Delete
Next
Application.ScreenUpdating = True
End Sub

A bientôt

 

[jeanphi]

Re : Supprimer ligne sous condition

merci bcp à vous 2, ca marche nickel!!