test un nombre dans un intervalle

Version imprimable

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:

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 ?

15/02/2017, 18h11
EBRAG

Bonjour,,

Pourquoi vouloir le faire en VBA ? c'est pour une approche pédagogique ? ou parce que tu ne connais pas les fonctions de recherche (un bon vieux Index/Equiv, voire, au pire une RechercheV) ne ferait-il pas l'affaire ?

Pour le reste, dans la mesure où l'écriture se fait à l'intérieur de la boucle "For j", cela paraît normal !

Personnellement, je ne suis pas friand des if avec l'instruction qui se poursuit directement après le then... Je préfère un retour à la ligne, mais c'est secondaire...
15/02/2017, 18h12
Invité

Code:

If Range("C" & i).Value > Range("G" & j).Value And 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)

Bonjour

Code:

1
2
3
4
5
6
7
8
9
fourchmin = 100
fourchmax = 200
toto = 127
Select Case toto
  Case fourchmin To fourchmax
    MsgBox "dans la fourchette"
  Case Else
    MsgBox "hors fourchette"
End Select

15/02/2017, 18h57
erlerwade

Citation:

Envoyé par dysorthographie

Code:

If Range("C" & i).Value > Range("G" & j).Value And 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)

Merci pour la réponse.

Je ne comprend pas votre test. J'ai oublié de préciser que les intervalles sont ranger dans l'ordre croissant. Un test sur la borne sup suffit

Bonjour unparia

On peut pas résoudre le test de l'intervalle sans utiliser les messages box?
15/02/2017, 19h18
unparia

Citation:

Envoyé par erlerwade

Bonjour unparia

On peut pas résoudre le test de l'intervalle sans utiliser les messages box?

C'est (je l'espère) une plaisanterie ?
L'utilisation, dans mon exemple, de msgbox n'est là qu'à titre de démo ! Il est évident (heu ... ! ) que tu peux remplacer ces msgbox par les instructions d'exécution de ton choix !
Mais là ... quand-même ... Je t'abandonne personnellement où tu es (et pour cause manifeste). Désolé.