recup données userform dans macro

[stephane]

Bonjour je débute en user form et je voudrais en utiliser un pour présenter un masque de saisie à un utilisateur au lieu d'executer la macro.

En gros c'est un calcul d'indemnité kilomérique en fonction de la puissance de la voiture et de la distance parcourue.

Je voudrais récuperer la donnée1 ( puissance dans ma macro ) en tant que variable puis la donnée 2 ( distance ) que ma macro d'execute et m'insere le resultat dans le champ 3.

Actuellement ca marche très bien avec des inputbox, mais ça ferait plus propre avec un userform.

Merci de votre aide.

Stephane.

 

[@+Thierry]

Mini Démo => recup données avec calcul dans userform

Salut Stéphane et Bonjour le Forum

Ci-joint une mini appli qui te fera çà pile/poil... C'est par contre avec des OptionButtons plutôt qu'e des TextBox... car çà fait encore un exemple de plus de l'utilisation des OptionButtons. Je t'ai laissé une TextBox pour saisir le Kilométrage c'est tout !!

Par contre ton code initial était vraiment tiré par les cheveux avec les
"Dim puissance, kilometre, toto, toto1, toto2, tata As Integer, Dim infa5000, fixe, coefx As Single, Dim sup2, reponse As Single.....

et j'ai vraiment eu du mal à suivre la logique des caculs avec ce bazar... Tu verras j'ai ré-écrit tout d'une manière un peu plus "clean"... (il faut éviter d'être brouillon à ce point Stéphane...)

Par contre j'espère que j'ai bien interprété la "logique des Toto1, Toto2 Tata, et toute la bande !!! lol... Vérifie les calculs !

Je pense que tu devrais être content...

Bon allez à plus et bienvenu sur XLD Stéphane

@+Thierry

 

[andré]

Salut Stéphane et Thierry, ... et tous les autres,

A quoi servent les valeurs des colonnes C, D et E ?
(je sais que je ne suis pas des plus malins, mais quand même, ... - lol-)

André

 

[@+Thierry]

Mini Démo => recup données avec calcul dans userform

Salut André, Re Stéphane

J'avouerai que je n'ai pas essayer de comprendre en calcul rééls et à quoi ces colones correspondent..... J'ai juste fait comprendre par Excel à travers du VBA ... ce qu'il fallait multiplier / additionner....

et ça donne çà André :

If KM <= 5000 Then 'On multiplie le KM par la col "B"
Tariff = Application.WorksheetFunction.Round _
((KM * Sheets("Sheet1").Range("B" & i)), 0)
End If

If KM > 5000 And KM <= 20000 Then 'On multiplie le KM par la col "C" et on ajoute la colonne "C" (Forfaitaire)
Tariff = Application.WorksheetFunction.Round _
((KM * Sheets("Sheet1").Range("D" & i)), 0) _
+ Sheets("Sheet1").Range("C" & i)
End If

If KM > 20000 Then 'On multiplie le KM par la col "E"
Tariff = Application.WorksheetFunction.Round _
((KM * Sheets("Sheet1").Range("E" & i)), 0)
End If

Voilà... çà donne les même résultats que le "truc" qui est en Macro dans le fichier de Stéphane mais en plus structuré (j'ai eu du mal à interpreter aussi !!)

Bon voilà pour la petite histoire....

Salut André
@+Thierry