Modifier ma macro en fonction d'un autre critère

Bonjour à tous,

J'ai réussi à faire une macro mais il me manque encore des trucs à y ajouter.

Ce que fait ma macro c'est qu'elle change ma cellule "C47" de la feuille "info" de 0 à 10 et m'enregistre les renseignements que je veux en prenant les valeurs des cellules demandées et me mets le tout dans un tableau dans la feuille "Résultat".

Ce que j'aimerais faire, c'est ajouter un morceau de code à ma macro actuelle, pour n'afficher que les réultats de la colonne "D" qui sont compris entre la colonne "C48" et la colonne "H48" de l feuille "info" (entre le min et le max) et si possible aussi enlever le critère de changer la cellule "C47" de la feuille "info" de 0 à 10 et faire incrémenter cette cellule tant que n'a pas dépasser le max (càd la cellule "H48 de la feuille "info").

Bonjour

En espérant avoir compris

Modifies cette partie de la macro "Compare"

    For I = 0 To 10  'Varier la valeur de la variable I (de 0 à 10)
      Sheets("info").Range("C47") = I
      If Sheets("calculJRS").Range("W103") >= Sheets("info").Range("C48") And Sheets("calculJRS").Range("W103") <= Sheets("info").Range("H48") Then
        Indice = Indice + 1
        ReDim Preserve Tablo(1 To 4, 1 To Indice)
        Tablo(1, Indice) = Sheets("info").Range("G31")
        Tablo(2, Indice) = Sheets("info").Range("F42")
        Tablo(3, Indice) = Sheets("info").Range("E52")
        Tablo(4, Indice) = Sheets("calculJRS").Range("W103")
      End If
      If Sheets("calculJRS").Range("W103") > Sheets("info").Range("H48") Then Exit For
    Next I

Merci c'est exactement ce que je voulais. Merci bcp Banzai64

Est ce qu'il est possible de faire une boucle qui fait le processus sans le " For I = 0 To 10 " parce que ça peut dépasser des fois le 10 ?

Bonjour

A tester

  I = 0
  Do
    Sheets("info").Range("C47") = I
    If Sheets("calculJRS").Range("W103") >= Sheets("info").Range("C48") And Sheets("calculJRS").Range("W103") <= Sheets("info").Range("H48") Then
      Indice = Indice + 1
      ReDim Preserve Tablo(1 To 4, 1 To Indice)
      Tablo(1, Indice) = Sheets("info").Range("G31")
      Tablo(2, Indice) = Sheets("info").Range("F42")
      Tablo(3, Indice) = Sheets("info").Range("E52")
      Tablo(4, Indice) = Sheets("calculJRS").Range("W103")
    End If
    I = I + 1
  Loop Until Sheets("calculJRS").Range("W103") > Sheets("info").Range("H48")

Merci encore une fois Banzai64 c'est exactement ce que j'essayer de faire