Convertir des MF en K€

[Martini]

Bonjour

Je voudrais faire une macro qui me permette de remplacer la valeur d'une cellule selectionnée par son produit par 152,44901723741037903399155737343 (=1000/6.55957).

Comment fais-je ? 😀

 

[Toine]

Re : Convertir des MF en K€

dsl suis pas trés habitué a certain terme comme

son produit

si tu peut éclairer ma lanterne peut etre pouraije taider 😛
autremen sa doit pas etre si dur
la fonction est simple s'est le chritére de choix qui me manque

 

[Lord Nelson]

Re : Convertir des MF en K€

Salut,

Sans macro, tu peux faire un copier/collage spécial "Multiplication" :
Tu copies la cellule qui contient la formule =1000/6,55957,
puis tu sélectionnes les cellules à convertir et tu appelles le menu Edition/Collage spécial et tu coches "Multiplication".

Si tu tiens à une macro, il te suffira d'enregistrer cette séquence d'opérations.

A+
Horatio

 

[Martini]

Re : Convertir des MF en K€

dsl suis pas trés habitué a certain terme comme
si tu peut éclairer ma lanterne peut etre pouraije taider 😛
autremen sa doit pas etre si dur
la fonction est simple s'est le chritére de choix qui me manque

Le produit de 57 et 36, c'est 57*36.
Moi j'ai 20 et je veux obtenir 3000 (environ) dans ma cellule.


Lord Nelson> C'est pas bête (Je préfère avoir un joli bouton sur une barre d'outil, je vais essayer d'enregistrer la séquence*).
*Seulement je voudrais éviter de devoir conserver une cellule avec =1000/6.55957 dedans....



EDIT : Bon, ça marche pas. J'ai :

Selection.PasteSpecial Paste:=xlValues, Operation:=xlMultiply, SkipBlanks _
        :=False, Transpose:=False

Ou si je fais autrement, il me modifie pas la cellule sélectionnée mais celle que j'avais modifiée lors de l'enregistrement 🙁

 

[dixit]

Re : Convertir des MF en K€

bonjour,
j'ai crû comprendre qu'il s'agit d'une conversion en €
dans une macro c'est facile ; exemple pour A1
cells(1,1)=cells(1,1)/6.55957 donne en €
ou
range("A1")=range("A1")/6.55957
la conversion en € est à faire par division : c'est la seule méthode légale
ps : il faudrait arrondir à 2 décimales
[EDIT / dans 6.55957 il s'agit d'un point et non d'une virgule comme mis par erreur initialement]

 

[Lord Nelson]

Re : Convertir des MF en K€

Alors tu peux essayer ceci :

Sub Multiplication()
Dim CL As Range
For Each CL In Selection
CL = CL * 1000 / 6.55957
Next
End Sub

Note que cette formule convertit des milliers de francs en Euros (pas en milliers d'euros).

A+
Horatio

 

[Martini]

Re : Convertir des MF en K€

bonjour,
j'ai crû comprendre qu'il s'agit d'une conversion en €

De millions de franc en milliers d'euros en fait.

dans une macro c'est facile ; exemple pour A1

Oui mais pour A2 ? ou B4 ? ou D36 ? Comment faire pour que ça le fasse pour la ou les cellule(s) séléctionnée(s) ?

la conversion en € est à faire par division : c'est la seule méthode légale

Je divise par 6.55957 mais je dois aussi multiplier par 1000 pour avoir mon résultat en k€ et pas en M€.

 

[Toine]

Re : Convertir des MF en K€

a d'ac je croyait que cettait un type de quelque chose ou je ne sait quoi 😛
donc en gros tu vexu que toute les valeur < à 100 (par exemple) soit transformer en millier d'euro ??
s est bien sa ??

 

[Martini]

Re : Convertir des MF en K€

Alors tu peux essayer ceci :

Sub Multiplication()
Dim CL As Range
For Each CL In Selection
CL = CL * 1000 / 6.55957
Next
End Sub

Note que cette formule convertit des milliers de francs en Euros (pas en milliers d'euros).

A+
Horatio

Superbe, fantastique, formidable.
Merci 🙂

 

[Martini]

Re : Convertir des MF en K€

donc en gros tu vexu que toute les valeur < à 100 (par exemple) soit transformer en millier d'euro ??
s est bien sa ??

Non, pas du tout 😀. Mais c'est bon, j'ai eu ma réponse😉


MERCI

 

[Toine]

Re : Convertir des MF en K€

mas eu encore rater ^^
bon ba peut étre une autre fois 😛

 

[dixit]

Re : Convertir des MF en K€

re
voici un autre exemple
[le fichier a été remplacé par celui-ci comportant une macro sur cellule active]

 

[dixit]

Re : Convertir des MF en K€

re, re
encore une version : la 3è macro traite les cellules d'une plage préalablement sélectionnée.

 

[Martini]

Re : Convertir des MF en K€

Ca marche aussi.
Je n'ai n'ai plus besoin puisque j'ai modifié mes tableaux mais il y a un truc qui m'aurait aidé, c'est que la macro ne renvoit rien (au lieu de 0) lorsqu'on l'éxécute sur une cellule vide...


Merci à tous.

 

[dixit]

Re : Convertir des MF en K€

re
il faut inclure la ligne d'instruction dans un IF pour tester si elle est différente de vide
IF lacellule<>"" then
traitement ici
endif
dès que je rentre à la maison, je fais une version en conséquence.