Bonsoir le forum,
Je rencontre un problème de type :
j'essaye d'utiliser la fonction cdbl pour formater un texte :
Que dois je faire?
merci d'avance
Je rencontre un problème de type :
Code:
Private Sub ComboBox3_Change()
Dim valeur_max, Tol_TM As Double
Frame3.Visible = True
TextBox3.Value = ""
Label6.Caption = ""
Set f = Sheets("Feuil1")
'Affichage de la valeur max et tolérance
For Each c In Range(f.[C2], f.[C65536].End(xlUp))
'Si même nom de site
If c = Me.ComboBox1 And c.Offset(, 3) = Me.ComboBox2 And c.Offset(, -2) = "TM" And c.Offset(, 10) = Me.ComboBox3 Then
TextBox3.Value = c.Offset(, 58)
valeur_max = c.Offset(, 58)
Label6.Caption = c.Offset(, 54)
End If
Next c
If Me.ComboBox3.Value Like "*P*" Or Me.ComboBox3.Value Like "*P*" Then
'Me.TextBox4.Value = "P_" & Me.TextBox3.Value
Tol_TM = CDbl(valeur_max * 0.024)
Else
'If Me.ComboBox3.Value Like "*U*" Then
Tol_TM = CDbl(valeur_max * 0.016)
End If
Me.TextBox4.Value = Tol_TM
End Sub
j'essaye d'utiliser la fonction cdbl pour formater un texte :
Code:
Tol_TM = CDbl(valeur_max * 0.024)
Que dois je faire?
merci d'avance