Double If

[altefqhatre]

Salut tout le monde,

J'ai un souci avec le code suivant:

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 [COLOR="SeaGreen"]'même si la condition est respectée le code saute la ligne suivante[/COLOR]
        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!

 

[jp14]

Re : Double If

Bonjour

A tester

 if cstr(ActiveCell.Value) = "0" then

Jp

 

[Papou-net]

Re : Double If

Salut tout le monde,

J'ai un souci avec le code suivant:

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!

Bonjour altefqhatre,

Sans trop détailler ton code, je relève d'emblée une "bizarrerie" :

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

Je remplacerais par :

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

Ensuite je modifierais comme celà :

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

Espérant avoir répondu.

Cordialement.

 

[altefqhatre]

Re : Double If

Re 🙂

Merci pour vos réponses!

Par contre aucune de ces modifs ne m'éxécute la suppression de feuille...
Dès que le code arrive à "Then", même si la valeur de la cellule est "0", il passe tout de suite au End If :-(

 

[tototiti2008]

Re : Double If

Bonjour à tous,

en admettant que ce soit A1 qui contienne un de tes "0"
que te renvoie VBA si tu lance

Sub test()
Msgbox "-" & range("A1") & "-"
end sub

?

 

[altefqhatre]

Re : Double If

Bien vu tototiti2008...

Enfait la cellule A1 est le total de sous-totaux...

Donc valeur du style: -4.4546546546546E-09 et donc pas zéro ^^

Voilà le souci ^^

Il y a-t'il un moyen de demander à ce qu'il contrôle la valeur affichée et non pas le résultat de ce calcul?

 

[tototiti2008]

Re : Double If

Re,

Peut-être avec

Range("A1").Text = "0"

à tester...

 

[Pierrot93]

Re : Double If

Bonjour à tous,

pas tout compris, mais peut être comme ceci :

If ActiveCell.Value.Offset(0, -5).Value < 0

bon après midi
@+