Bonjour,
Je rencontre actuellement un problème avec une macro.
Voilà, je commence tout juste à essayer de faire quelques tests mais il s'avère que lors de l'exécution de mon code, cela ne fonctionne pas correctement.
Voici mon code :
Sub Test_Condition()
'
' Test_Condition Macro
' Selection d'un chiffre si une valeure x est comprise entre 2 nombres
'
'
' Déclaration des variables
Dim KMh As Single, Echelle As Integer
' If (KMh = False) Then
' Valeur des variables
KMh = Range("C6").Value
If KMh >= 0.1 And KMh < 0.9 Then
Echelle = 0
ElseIf KMh >= 1 And KMh < 5.9 Then
Echelle = 1
ElseIf KMh >= 6 And KMh < 11.9 Then
Echelle = 2
ElseIf KMh >= 12 And KMh < 19.9 Then
Echelle = 3
ElseIf KMh >= 20 And KMh < 28.9 Then
Echelle = 4
ElseIf KMh >= 29 And KHh < 38.9 Then
Echelle = 5
ElseIf KMh >= 39 And KMh < 49.9 Then
Echelle = 6
ElseIf KMh >= 50 And KMh < 61.9 Then
Echelle = 7
ElseIf KMh >= 62 And KMh < 74.9 Then
Echelle = 8
ElseIf KMh >= 75 And KMh < 88.9 Then
Echelle = 9
ElseIf KMh >= 89 And KMh < 102.9 Then
Echelle = 10
ElseIf KMh >= 103 And KMh < 117.9 Then
Echelle = 11
ElseIf KMh >= 118 And KMh < 200 Then
Echelle = 12
End If
Range("D6") = Echelle
End Sub
Je m'explique, je souhaite en fonction d'une valeur X, faire afficher dans la cellule D6 un nombre correspondant à une échelle.
Sauf que, en rentrant un nombre étant dans la plage de valeur 39-49.9 cela me retourne la variable Echelle égale à 5 mais ça devrait être égale à 6.
Je ne comprend donc pas pourquoi cela me retourne 5.
Pourriez-vous m'aider s'il vous plaît?
En vous remerciant.