Supprimer ligne sous condition

jeanphi

XLDnaute Occasionnel
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
 
G

Guest

Guest
Re : Supprimer ligne sous condition

bonjour JeanPhi,

Essaie avec ceci:

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 244
Membres
105 312
dernier inscrit
DD07