Astuces Excel
  1. Astuces Excel
  3. Erreur sur la comparaison des nombres de la textbox
Intereting Posts
Comment copyr des données d'une feuille Excel vers une autre feuille Excel téléchargée dans sharepoint à l'aide de VBA? Lock excel work book using apache poi api java Saisie de grandes quantités de données textuelles sous forme HTML réorganiser les rangées de list dans r Mise à niveau vers POI-3.16 à partir de POI-3.9 pour Excel Export VBA: boucle Excel – cache / déverrouille des feuilles Cellules VBA (i, 5) .Texte Comment la macro me montrera le nom de la feuille? Filtrage pour afficher deux choix spécifiques dans un filter de rapport de table pivot Comment puis-je préserver un multi-index de pandas entre un to_excel () et un read_excel ()? Une fonction de search personnalisée Impossible de définir un classur Large tableau avec un nombre de dimensions défini par l'user Comment utiliser le referencement structuré de la table dans Excel Data-Validation? Comment définir des formules pour une gamme de cellules dans Excel

Erreur sur la comparaison des nombres de la textbox

J'ai 2 boîtes de text qui saisissent 2 valeurs de l'user et compare la première valeur avec la seconde. Si la première valeur est inférieure à la seconde valeur, elle entre dans la boucle où l'user doit saisir les valeurs à nouveau.

Le problème que je reçois est que si j'entends 10 et 9.9 dans les zones de text, il entre dans la boucle et dit que 10 est inférieur à 9.9. Cela n'arrive qu'avec 10 100 et 1000. Veuillez vous aider.

J'ai même essayé de définir des variables de type Long pour les nombres entiers et les ai assignés et les ai comparés, excel ne fait que suspendre. Aidez-nous

Voici le code ci-dessous. 

If Mean < LSLValue Then MsgBox "Please enter a numeric value greater than LSL as Nominal Value" Me.DimnTxt.Value = InputBox("Enter the Nominal") Me.LSLTxt.Value = InputBox("Enter the LSL") Mean = Me.DimnTxt.Value LSLValue = Me.LSLTxt.Value End If Loop Until Mean >= LSLValue

Peut être parce que vous comparez le text au lieu du nombre. Essayez de convertir en nombre puis comparez. PAR EXEMPLE: 

 if CDbl(Textbox1.value) < CDbl(Textbox2.value) then '.... end if