Probleme avec l'ouverture d'un usf
bonjour tous
j'ai un petit souci avec un usf qui s'ouvre quand il ne faut pas .
j'ai créé une application de gestion de fabrication . jusque-là et grâce à quelque conseille de la part de quelque uns entre vous c'est plutôt réussi mais il reste un bug que je ne m'explique pas .
dans le fichier joint "allégé" je double clic sur le n° du bac
1) l'usf s'ouvre
2) je rempli le textbox "poids de fin de mélange"
3) lorsque le poids est diffèrent de +- 2% du poids à faire un autre usf s'ouvre pour info
tous fonctionne bien sauf quand le poids à fabriquer est 100000 kg je ne comprends rien
si vous avez des idées parce que là je sèche
merci par avance
Bonjour pihuce,
Si tu veux comparer des valeurs, il faut que ce soit des nombres et non du texte
Sinon tu auras droit à ce genre de chose
Voici le code pour ton USF1
Dim Min As Double, Max As Double, MaVal As Double
Private Sub mel_termine_Click()
ActiveCell.Offset(0, 3) = TextBox4
ActiveCell.Offset(0, 3).Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Label20 = ActiveCell.Offset(0, 0)
Label2 = ActiveCell.Offset(0, 1)
Label24 = ActiveCell.Offset(0, 2)
Label26 = ActiveCell.Offset(0, 5)
Min = Val(Me.Label26.Caption)
Label27 = ActiveCell.Offset(0, 6)
Max = Val(Me.Label27.Caption)
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox4 <> "" Then
MaVal = Me.TextBox4.Value
If MaVal > Max Or MaVal < Min Then UserForm2.Show
End If
End SubA+
Bonsoir,
Comme tu compares des valeurs "Texte", Excel se perd peut-être...
Je ne sais pas non plus pourquoi, uniquement pour la valeur 100 000...
Par contre, tu peux modifier comme ceci :
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox4 <> "" And IsNumeric(Me.TextBox4) Then
If Val(Me.TextBox4) > Val(Me.Label27) Or Val(Me.TextBox4) < Val(Me.Label26) Then UserForm2.Show
End If
End SubBon courage
Edit, Bonsoir Bruno
merci à-vous de votre intérêt pour mon projet et comme d'hab le problème est résolu
merci encore