Convertir des cellules à partir d'une InputBox

[Creepy]

Bonsoir à toutes & tous,

J'avais une macro de conversion en Euro que je veux recycler mais j'ai du mal.

Je veux en faire un convertisseur. L'utilisateur selectionne des cellules de chiffres, lance la macro et rentre l'operation dans la boite de dialogue.
et Zou les cellules selectionnées sont converties.

J'arrive à isoler l'operande (/, *, +, -) et la valeur issus de la inputbox.

par contre j'arrive pas à appliquer la formule. J'ajoute mon texte à ma valeur plutôt que de la convertir. Par exemple j'ai 100/6.56 dans ma cellule, plutot, que 15.24 !!

regardez la PJ pour plus d'infos.

Merci de votre aide

++

Creepy

 

[Zon]

Salut,

Tu peux utiliser activecell=Evaluate(operation) pour arriver à tes fins.

A+++

 

[Creepy]

Salut,

Désolé mais je ne vois pas bien comment cela va fonctionner dans ma macro

Merci de me donner plus d'aide

Creepy

 

[David Guy]

Salut Creepy
(un fan des vieux magazines made in USA)

modifie ta macro
dans la boucle
tu rajoutes :

IF Operande="/" Then
leprix.value=leprix.value/valeur
ElseIf Operande="*" Then
leprix.value=leprix.value*valeur
End If

Et là ça marche j'ai essayé
A+ G.David

 

[Creepy]

Re all,

Merci David de ta réponse, j'ai aussi trouvé une solution. Et oui l'éclair de génie du mois dès le matin !!! (pfff encore 28 jours à tenir :🙂

J'ai utilisé : Select case operande
case "/"
Leprix.Value / Valeur
case"*"

etc...

En sommes la même chose que toi, mais d'ailleurs quelle eest la meilleure méthode (+rapide, + propre) ; Le Case ou le if enchainé ?

Merci

++

Creepy

 

[Zon]

Salut,

Creepy, j'avais lu trop vite ton code et j'avais fait pas attention à ce que tu voulais faire . Je croyais que tu tapais l'opération 15/6.56 dans ton inputbox

On peut l'écrire aussi

Dim Leprix As Range
Dim Operation
Operation = InputBox("Entrez l'operation [/ = Diviser, * = Multuplier, +, - puis le chiffre]", "S.V.P...")
For Each Leprix In Selection
With Leprix
On Error Resume Next
.FormulaLocal = "=" & .Text & Operation & ""
.NumberFormat = "#,##0.00"
End With
Next Leprix


Pour ta dernère question le select case est plus propre qu'une série de if elseif

A+++

 

[Jocelyn]

Bonsoir à vous tous

C'est justement ce genre de boite que j'aisseillais de faire hier.
Pis ça marche.

Super !

 

[Jocelyn]

Encore moi

Pour compléter, et par curiositée si ça vous adone de relire:

Est-il possible de charger un choix (Comme un menu déroulant)?

Juste curieux!

Ça serait plutôt intéressant.

Au plaisir.

 

[Zon]

Salut,

Jocelyn si tu lis encore ce post pour les listes tu peux récupérer le coffret des listes de Celeda dans la zone de téléchargement ainsi que les 2 packs démos de @Thierry dans la zone de télécharment d'XLD.

A+++