Discussion :

[erlerwade]

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 ?

[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...

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[unparia]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[erlerwade]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[unparia]

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é.