Boucles imbriquées ne fonctionnent pas

Bonjour ,

Je suis en train d'essayer de rechercher une valeur appelée "seuil" grâce à 2 boucles imbriquées, mais je dois avoir un problème d'écriture de ma macro.

Sub recherche_seuil()

Application.ScreenUpdating = False

Dim seuil, cell, Derligne As Integer

'Détermination de la dernière ligne non vide

    Sheets("Calcul seuil").Select
    Derligne = Range("A1").End(xlDown).Row

    For cell = 2 To Derligne
        For seuil = 1 To 500

        Range("b" & cell).Value = seuil
        If Range("K" & cell).Value < Range("F" & cell).Value Then
            Range("G" & cell).Value = ""
            Next seuil

        Else
            Range("G" & cell).Value = "Seuil OK"

        End If
     Next cell

Application.ScreenUpdating = True

End Sub

Qui a une idée ??

D'avance merci.

Thierry

Salut,

J'ai fait 2 modifs dans ton code :

Sub recherche_seuil()

Application.ScreenUpdating = False

Dim seuil, cell, Derligne As Integer

'Détermination de la dernière ligne non vide

    Sheets("Calcul seuil").Select
    Derligne = Range("A65536").End(xlUp).Row

    For cell = 2 To Derligne
        For seuil = 1 To 500
            Range("b" & cell).Value = seuil
                If Range("K" & cell).Value < Range("F" & cell).Value Then
                Range("G" & cell).Value = ""
                Else
                Range("G" & cell).Value = "Seuil OK"
                End If
        Next seuil
     Next cell

Application.ScreenUpdating = True

End Sub

Range("A1").End(xlDown).Row renvoyait systématiquement 2, j'ai remplé par Range("A65536").End(xlUp).Row, à mon avis c'est ce que tu cherchais à faire.

J'ai déplacé le Next seuil qui a mon sens était mal placé.

Girodo,

Merci Girodo,

Par contre, lorsque le texte "Seuil OK" s'inscrit, je souhaiterait passer à la ligne suivante (je ne l'avais pas écrit dans mon premier post, c'est vrai !), et ce n'est pas le cas avec le morceau de code que tu m'as donné.

Je suppose qu'il n'y a pas grand chose à faire pour que mon souhait se réalise ....

Hum, si j'ai bien compris essaie ça :

Sub recherche_seuil()

Application.ScreenUpdating = False

Dim seuil, cell, Derligne As Integer

'Détermination de la dernière ligne non vide

    Sheets("Calcul seuil").Select
    Derligne = Range("A65536").End(xlUp).Row

    For cell = 2 To Derligne
        For seuil = 1 To 500
            Range("b" & cell).Value = seuil
                If Range("K" & cell).Value < Range("F" & cell).Value Then
                Range("G" & cell).Value = ""
                Else
                Range("G" & cell).Value = "Seuil OK"
                Exit For
                End If
        Next seuil
     Next cell

Application.ScreenUpdating = True

End Sub

Je n'ai que 3 mots à dire:

"Bravo et Merci" !!!

C'est exactement cela qu'il me fallait. Je m'étais englué dans les boucles.

Rechercher des sujets similaires à "boucles imbriquees fonctionnent pas"