[VBS] "Userform ?" et calcul simple

Le 19/04/2021 à 18:57

Bonjour, je fais face à un problème assez simple, j'aimerais faire une mini application en .vbs qui fait un calcule par rapport à une valeur entrée, comme j'ai bcp de valeurs a rentrer j'aimerais que la calcul se fasse automatiquement sans avoir a appuyer sur OK a chaque fois. En gros que la cellule d'entrée et de sortie soit sur la même fenêtre et mise a jour en temps réel. Voici mon petit bout de code:

Et PS un bouton quitter serait parfait.

Merci par avance de vos conseils !

a=1
while a <> 0
a = inputbox("test")
a = a/1.15 + 0.01
msgbox a
wend

J'ai mit ce code dans un blocnote que j'ai enregistré en .vbs

Le 27/04/2021 à 15:06

Soluton trouvé sur un autre forum plus spécialisé. J'ai codé en .HTA (HTML pour windows) et avec des procédure en VBS a l'intérieur.

Donc voici le résultat:

<HTML>
               <HEAD> 
                              <HTA:APPLICATION
                                                          MAXIMIZEBUTTON="no"
                                                           SCROLL="no"
                                                           BORDER = "thin"
                              >
                              <SCRIPT language="VBScript" type="text/vbscript">
        'redimensionner la fenêtre de départ
        ResizeTo 350,120: MoveTo (Screen.Width-350)/2,(Screen.Height - 120) / 2
                </SCRIPT>
   <style>
    /* partie estetique des différents controles sur la page */
      label{
        position: relative;
        left:10px;
        color:blue;
      }
      input{
        position:absolute;
        left:170px
      }
    </style>
               </HEAD>
               <BODY>
                              <label id="Lab1">Saisir prix d'achat:</label> <INPUT TYPE="text" id="Achat" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">
                              <BR>
                              <label id="Lab2">Saisir prix de vente:</label> <INPUT TYPE="text" id="Vente" Title="Enter pour calculer" SIZE="20" MAXLENGTH="30" VALUE="">

               <script language="VBScript">
                'message pour traitement d'erreur, la variable MsG est valide dans toutes la partie ScripT
                dim MsG: MsG = "Entrez un nombre valide (Exemple: 123,456)"
                Sub Window_Onload()
       Achat.focus() 'pour que le curseur souris soit sur l'input Achat
                end sub

                Sub Achat_onkeyup()
      'If (window.event.keyCode) = 13 Then ' si la touche est Enter faire ...
        'gestion du separateur decimale
        Achat.value = replace(Achat.value,".",",")
        if Achat.value = "" then exit sub
        if EntrerValide(Achat.value)=false then msgbox MsG:exit sub 'quitte imediatement la sub
        'ici on sait que l'on traite bien un nombre
        Vente.value = FormatNumber((Achat.value * 1.15 - 0.01),2)'on limite à 2 decimale
      'end if
                end sub

                Sub Vente_onkeyup()
      'If (window.event.keyCode) = 13 Then
        Vente.value = replace(Vente.value,".",",")
       if Vente.value = "" then exit sub
       if EntrerValide(Vente.value)=false then msgbox MsG:exit sub
       Achat.value = FormatNumber((Vente.value+0.01) / 1.15,2)
      'end if
                end sub

                function EntrerValide(valeur)
       EntrerValide = IsNumeric(valeur) 'renvoie false si valeur n'est pas un nombre, sinon true
                end function
        </script>
               </BODY>
</HTML>
Rechercher des sujets similaires à "vbs userform calcul simple"