recup données userform dans macro

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

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é

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