Intégrer une valeur à son intervalle

Hello tout le monde,

J'ai un script qui ne tourne pas et malgré l'avoir retourné dans tout les sens je ne vois pas d'où proviens l'erreur (j'ai joins le fichier en copie dans lequel je détail tout).

Je voudrais aller chercher l'intervalle auquel appartient une valeur et le renvoyer sur la feuille concernée (avec en plu un code par le biais de la méthode Offset).

Voilà ce que j'ai fais :

Option Explicit

Sub classer_intervalle()

    Dim Wa As Worksheet
    Dim Wb As Worksheet
    Dim i As Byte, j As Byte, k As Byte
    Dim LigneEnTeteWa As Byte, LigneEnTeteWb As Byte

    Set Wa = ThisWorkbook.Worksheets("onglet A")
    Set Wb = ThisWorkbook.Worksheets(3) '2 notation différentes pour définir un onglet

    LigneEnTeteWa = 6   'ligne en tête de l'onglet A
    LigneEnTeteWb = 3   'ligne en tête de l'onglet B

With Wa
    For i = LigneEnTeteWa To .Cells(Rows.Count, 4).End(xlUp).Row + 1 Step 1
    For j = LigneEnTeteWb To Wb.Cells(Rows.Count, 1).End(xlUp).Row + 1 Step 1
    For k = LigneEnTeteWb To Wb.Cells(Rows.Count, 2).End(xlUp).Row + 1 Step 1

        If Wb.Cells(j, 1).Value > Wa.Cells(i, 4).Value > Wb.Cells(k, 2).Value Then
                'hauteur mini >       valeur             > hauteur maxi

            Wa.Cells(i, 7) = Wb.Cells(j, 1)
            Wa.Cells(i, 8) = Wb.Cells(k, 2)
            Wa.Cells(i, 9) = Wb.Cells(k, 2).Offset(0, 1).Value
        End If

    Next k
    Next j
    Next i

End With
End Sub

La bonne nouvelle c'est que je n'ai pas d'erreurs, mais le code ne renvoie aucunes valeurs

Merci à ceux qui y jetteront un coup d’œil.

Jenny.

Oups, je viens d'éditer mon fichier pour ajouter un onglet de ce qui devrait apparaitre après le traitement de la macro

Jenny.

Bonsoir

A vérifier

Aie ouille, j'étais finalement très loin du compte dans ma façon de faire.

C'est remarquable Banzai, et ça n'est pas la première fois que tu m'éclaires. Je suis un peu inquiète quand je vois la complexité du code, mais je suis certaine qu'en décortiquant ligne par ligne je parviendrai à comprendre cette algorithmie.

Je ne sais que dire à part "merci" et mes plus sincère attentions,

Jenny.