Calculer la différence entre deux texbox

Y compris Power BI, Power Query et toute autre question en lien avec Excel
l
lynelolaluc
Membre habitué
Membre habitué
Messages : 54
Inscrit le : 2 juillet 2015
Version d'Excel : 2010

Message par lynelolaluc » 12 juillet 2019, 12:56

Bonjour ,
J'ai un soucis que je n'arrive pas à résoudre ,malgré mes heures passées sur le forum et sur la toile, voici mon problème : J 'ai un userform avec 3 pavés différent "valeurs réelles", "valeurs enregistrées","résultats". Dans cet userform il y a des textbox , je voudrais effectuer un controle entre les "valeurs réelles" et les "valeurs enregistrées", si une "valeur enregistrée" est superieur à 0.5 par rapport à la ""valeur réelle alors je renvoi dans la textbox " résultats" : N.C , en blanc sur fond rouge. Cela bien sur pour chaque machine.
Je joint un mon fichier .
Merci beaucoup de votre aide . Je n'ai vraiment plus beaucoup de cheveux! :-)))
POIDS v1.xlsm
(26.69 Kio) Téléchargé 5 fois
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'679
Appréciations reçues : 185
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 12 juillet 2019, 13:23

Bonjour,
Ton userform est loin d'être fini ; les textbox concernant les valeurs Enregistrées ne sont pas alimentées à l'ouverture.


Pour tes calculs alors comme exemple pour la machine 4 (Textbox1 et Textbox16 ) :
if cdbl(textbox16.value) - cdbl(textbox1.value) >0.5 then ....
Avatar du membre
oxydum
Membre dévoué
Membre dévoué
Messages : 694
Appréciations reçues : 72
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 12 juillet 2019, 13:32

Bonjour,
tu peux essayer ça :
Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox16.Value > TextBox1.Value + 0.5 Then TextBox24.Value = "N.C"
End Sub
l
lynelolaluc
Membre habitué
Membre habitué
Messages : 54
Inscrit le : 2 juillet 2015
Version d'Excel : 2010

Message par lynelolaluc » 12 juillet 2019, 14:31

Rebonjour,
Pour xmenpl , d'abord merci, mais le textbox 16 dans les valeurs enregistrées est alimentées par des personnes, et si je prends ton code ,je l'insere à la fin du code "command button1" j'obtiens un message d'erreur si je met des valeurs avec virgule (100.6) me renvoie une erreur .
Si tu peux m'aider , ça serait gentil!
Je te renvoie mon fichier avec ton code inserer dans command button
POIDS v1.xlsm
(27.04 Kio) Téléchargé 1 fois
POIDS v1.xlsm
(27.04 Kio) Téléchargé 1 fois
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'679
Appréciations reçues : 185
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 12 juillet 2019, 15:01

Re,

Bizarre le fichier que tu retournes avec la proposition de Oxydum |k) fonctionne correctement chez moi.

En retour celui avec ma propre ligne et test avec chiffre à virgule effectué.
::o

Pour la couleur et la police de la textbox NC je ne conseille pas de changer car ton userform reste ouvert aprés validation.

Donc si quelqu'un revalide avec d'autre chiffre les couleur ne seront pas réinitialisées ::(
POIDS v1 (3).xlsm
(23.61 Kio) Téléchargé 3 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message