Laurence2626
XLDnaute Nouveau
Bonjour à tous
J'ai un user form dans lequel je calcule des valeurs et selon ses valeurs calculées ou saisies je fait une macro sous conditions.
Ma macro ne fonctionne pas correctement car quelle que soit la valeur calculée, la macro me rapporte toujours les mêmes valeurs soit 0,4% et 0,208%
Est ce que quelqu'un aurait l'amabilité de me dire ce qui ne va pas dans ma macro n'etant pas u ne professionnelle de vba
Sachant que EFF est saisi par l'utilisateur et QA 1 calculé en fonction des valeurs saisies dans l'userform
Sub csa()
Dim eff As String
Dim qa1 As String
eff = Val(TextEFF2019)
qa1 = Val(TextQA1)
If (qa1 < 1) And (eff >= 2000) Then
Range("D76") = "0,60%"
Range("D78") = "0,312%"
ElseIf (qa1 < 1) And (eff < 2000) Then
Range("D76") = "0,40%"
Range("D78") = "0,208%"
ElseIf (qa1 >= 1) And (qa1 < 2) Then
Range("D76") = "0,20%"
Range("D78") = "0,104%"
ElseIf (qa1 >= 2) And (qa1 < 3) Then
Range("D76") = "0,10%"
Range("D78") = "0,052%"
ElseIf (qa1 >= 3) And (qa1 < 5) Then
Range("D76") = "0,05%"
Range("D78") = "0,026%"
ElseIf (qa1 >= 5) Then
Range("D76") = "EXO"
Range("D78") = "EXO"
Else
Exit Sub
End If
End Sub
En esperant avoir été claire dans mes explications.
Bien à vous
Laurence
J'ai un user form dans lequel je calcule des valeurs et selon ses valeurs calculées ou saisies je fait une macro sous conditions.
Ma macro ne fonctionne pas correctement car quelle que soit la valeur calculée, la macro me rapporte toujours les mêmes valeurs soit 0,4% et 0,208%
Est ce que quelqu'un aurait l'amabilité de me dire ce qui ne va pas dans ma macro n'etant pas u ne professionnelle de vba
Sachant que EFF est saisi par l'utilisateur et QA 1 calculé en fonction des valeurs saisies dans l'userform
Sub csa()
Dim eff As String
Dim qa1 As String
eff = Val(TextEFF2019)
qa1 = Val(TextQA1)
If (qa1 < 1) And (eff >= 2000) Then
Range("D76") = "0,60%"
Range("D78") = "0,312%"
ElseIf (qa1 < 1) And (eff < 2000) Then
Range("D76") = "0,40%"
Range("D78") = "0,208%"
ElseIf (qa1 >= 1) And (qa1 < 2) Then
Range("D76") = "0,20%"
Range("D78") = "0,104%"
ElseIf (qa1 >= 2) And (qa1 < 3) Then
Range("D76") = "0,10%"
Range("D78") = "0,052%"
ElseIf (qa1 >= 3) And (qa1 < 5) Then
Range("D76") = "0,05%"
Range("D78") = "0,026%"
ElseIf (qa1 >= 5) Then
Range("D76") = "EXO"
Range("D78") = "EXO"
Else
Exit Sub
End If
End Sub
En esperant avoir été claire dans mes explications.
Bien à vous
Laurence