Double If

altefqhatre à dit:

Salut tout le monde,

J'ai un souci avec le code suivant:

Code:

For Each Feuille In Worksheets

    If Feuille.Name <> "Test1" And Feuille.Name <> "Test2" Then
        Feuille.Activate
        Range("K1").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(0, -5).Activate
      
        If ActiveCell.Value = "0" Then
        Feuille.Delete
        
    End If
    End If
    
Next Feuille

Le problème est que le deuxième if ne fonctionne pas, même lorsque la valeur est bien "0" et ben il ne supprime pas la ligne, il va directement jusqu'au End if puis Next Feuille :-(

Une idée peut-être?

Merci beaucoup!

++ bonne journée!

Cliquez pour agrandir...

    If Feuille.Name <> "Test1" And Feuille.Name <> "Test2" Then

    If Feuille.Name <> "Test1" Or Feuille.Name <> "Test2" Then

For Each Feuille In Worksheets

    If Feuille.Name <> "Test1" Or Feuille.Name <> "Test2" Then
        Feuille.Activate
        Range("K1").Select
        Selection.End(xlDown).Select
      
        If ActiveCell.Value.Offset(0, -5).Value = "0" Then Feuille.Delete
        

    End If