Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Convertir des MF en K€

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Martini
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Martini

Guest
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 ? 😀
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Re : Convertir des MF en K€

Toine à dit:
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
Cliquez pour agrandir...
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 :
Code: 
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 🙁
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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]
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Convertir des MF en K€

dixit à dit:
bonjour,
j'ai crû comprendre qu'il s'agit d'une conversion en €
Cliquez pour agrandir...
De millions de franc en milliers d'euros en fait.
dans une macro c'est facile ; exemple pour A1
Cliquez pour agrandir...
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
Cliquez pour agrandir...
Je divise par 6.55957 mais je dois aussi multiplier par 1000 pour avoir mon résultat en k€ et pas en M€.
 
Vote positif 0 Vote négatif
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 ??
 
Vote positif 0 Vote négatif
Re : Convertir des MF en K€

Lord Nelson à dit:
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
Cliquez pour agrandir...
Superbe, fantastique, formidable.
Merci 🙂
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
404
ascal44
A
  • Question Question
Autres impossible de convertir nombre texte en nombre
Réponses
8
Affichages
410
dysorthographie
R
  • Résolu(e)
Microsoft 365 Champ recherche ou liste déroulante...
Réponses
3
Affichages
362
vgendron
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
407
LegVal
L
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
244
Dand87
D
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
2 K
Alamyr
A
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
593
TooFatBoy
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
10
Affichages
239
Saboh12617
S
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
4
Affichages
159
Lolote83
L
D
  • Résolu(e)
Microsoft 365 Macro VBA pour copier des feuilles particulières
2
Réponses
21
Affichages
1 K
driss Kor
D
  • Question Question
Microsoft 365 Associer une variable à une couleur dans des graphiques excel à plusieurs feuilles
Réponses
13
Affichages
710
Hecatonchire
H
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
840
bruno lemaire
B
C
  • Question Question
XL 2021 Retrouver l'assistant importation de texte quand on fait une extraction à partir d'un .CSV ?
Réponses
6
Affichages
669
cindynico38
C
  • Résolu(e)
XL 2010 Création de listes déroulantes interactive
6 7 8
Réponses
113
Affichages
4 K
job75
A
  • Résolu(e)
XL 2021 Création de tableau
2
Réponses
29
Affichages
991
Alamyr
A
N
  • Question Question
Microsoft 365 Excel automatisé pour gestion du temps par projet
Réponses
11
Affichages
520
Dudu2
B
  • Question Question
Microsoft 365 Colonnes apparentes selon critères
Réponses
7
Affichages
736
Phil69970
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
194
F22Raptor
F
Y
  • Résolu(e)
Microsoft 365 Rechercher et remplacer éditer une procedure
Réponses
8
Affichages
352
YGU1
Y
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
306
jujulili
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…