Bonjour,

J’ai une plage de nombre (C10 ; C680). Je veux tester pour chaque nombre l’intervalle auquel il appartient et noter sur la colonne D le numéro de l’intervalle. Les intervalles sont disposés sur la plage (F2 ; G21) avec F la colonne borne inferieure et G supérieure. La plage (H2 ;H22) me sert à numéroter les intervalles.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub PTranche()
 
Dim i, j, k As Integer
 
 Worksheets("Tranche").Activate
 
 i = 6
 j = 2
 
For i = 6 To 690
 
        For j = 2 To 22
 
              If Range("C" & i).Value > Range("G" & j).Value Then ' je compare le nombre avec la valeur de la borne supérieure (bs) de l'intervalle
 
              ElseIf Range("C" & i).Value < Range("G" & j).Value Then Range("D" & i).Value = Range("H" & j).Value 'si le nombre est inférieure a la bs(il appartient a cet intervalle)
 
              End If
 
         Next j
 
Next i
 
End Sub
Ce code ne marche pas. Le test sur le If est fait pour tous les compteurs j . Pourriez-vous m’aider svp ?