P
PHOENIX
Guest
salut tous le monde
J'aurais une petite question concernant un bug dans mon pgm que je n'arrive pas a solutionné.
Voila le code suivant ne fonctionne pas, il me dit incompatibilité de donnée ( label33 )?
Private Sub TextBox15_Change()
Sheets("Tableau").Select
[t2] = TextBox15.Value
Macro5
Label33.Caption = ([u2])
Label33 = Format(Label33.Caption, "0.00")
If Label33.Caption < 1.21 Then
Label33.ForeColor = &H80000012
Label33.BackColor = &HC000&
Else
Label33.ForeColor = &H80000012
Label33.BackColor = &HFF&
End If ..........
Alors qu'un autre a l'identique fonctionne bien :
Private Sub TextBox5_Change()
Sheets("Tableau").Select
[g2] = TextBox5.Value
Macro2
Label2.Caption = ([h2])
Label2 = Format(Label2.Caption, "0.00")
If Label2.Caption < 5.89 Then
Label2.ForeColor = &H80000012
Label2.BackColor = &HC000&
Else
Label2.ForeColor = &H80000012
Label2.BackColor = &HFF&
End If .......
Je ne trouve pas la faille
Si quelqu'un peux m'aider ce serait sympha.
Merci
Phoenix
J'aurais une petite question concernant un bug dans mon pgm que je n'arrive pas a solutionné.
Voila le code suivant ne fonctionne pas, il me dit incompatibilité de donnée ( label33 )?
Private Sub TextBox15_Change()
Sheets("Tableau").Select
[t2] = TextBox15.Value
Macro5
Label33.Caption = ([u2])
Label33 = Format(Label33.Caption, "0.00")
If Label33.Caption < 1.21 Then
Label33.ForeColor = &H80000012
Label33.BackColor = &HC000&
Else
Label33.ForeColor = &H80000012
Label33.BackColor = &HFF&
End If ..........
Alors qu'un autre a l'identique fonctionne bien :
Private Sub TextBox5_Change()
Sheets("Tableau").Select
[g2] = TextBox5.Value
Macro2
Label2.Caption = ([h2])
Label2 = Format(Label2.Caption, "0.00")
If Label2.Caption < 5.89 Then
Label2.ForeColor = &H80000012
Label2.BackColor = &HC000&
Else
Label2.ForeColor = &H80000012
Label2.BackColor = &HFF&
End If .......
Je ne trouve pas la faille
Si quelqu'un peux m'aider ce serait sympha.
Merci
Phoenix