Problème boucle If en cascade
Résolu
SofSof
-
SofSof -
SofSof -
Bonjour,
J'ai un problème avec ma macro avec des If.
Ma macro :
Sub Test()
Dim Q As Long
Q = Worksheets("A").Cells(7, 4)
If Q > 0.33 Then
Worksheets("A").Cells(7, 2) = 5
ElseIf Q > 0.12 Then
Worksheets("A").Cells(7, 2) = 4
ElseIf Q > 0.05 Then
Worksheets("A").Cells(7, 2) = 3
ElseIf Q > 0.01 Then
Worksheets("A").Cells(7, 2) = 2
Else
Worksheets("A").Cells(7, 2) = 1
End If
End Sub
Je n'ai pas de message d'erreur mais j'obtiens toujours 1, même lorsque je rajoute "Q=0,2" juste avant mes conditions If j'obtiens quand même 1.
Merci d'avance pour votre aide ! :)
J'ai un problème avec ma macro avec des If.
Ma macro :
Sub Test()
Dim Q As Long
Q = Worksheets("A").Cells(7, 4)
If Q > 0.33 Then
Worksheets("A").Cells(7, 2) = 5
ElseIf Q > 0.12 Then
Worksheets("A").Cells(7, 2) = 4
ElseIf Q > 0.05 Then
Worksheets("A").Cells(7, 2) = 3
ElseIf Q > 0.01 Then
Worksheets("A").Cells(7, 2) = 2
Else
Worksheets("A").Cells(7, 2) = 1
End If
End Sub
Je n'ai pas de message d'erreur mais j'obtiens toujours 1, même lorsque je rajoute "Q=0,2" juste avant mes conditions If j'obtiens quand même 1.
Merci d'avance pour votre aide ! :)
A voir également:
- Problème boucle If en cascade
- Liste déroulante en cascade - Guide
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Vlc lire en boucle ✓ - Forum Lecteurs et supports vidéo
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Pc qui s'allume et s'éteint en boucle - Forum Virus
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, suggestion:
Dim Q As Single
