Formule excel pour inverser un montant

Résolu/Fermé
cesam69 - 4 nov. 2010 à 16:46
 cesam69 - 5 nov. 2010 à 14:52
Bonjour,

Je souhaiterais inverser un prix:

pour que par une formule je puisse avoir pour 150,50 résultat: 05,051

Merci de Votre aide

A voir également:

9 réponses

ccm81 Messages postés 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
5 nov. 2010 à 13:30
ce sont effectivement des macros
pour les integrer
Al-F11 pour passer sous l'editeur VBA
Insertion Module
recopier la maro (copier/coller marche
revenir sur la feuille de calcul
tu disposes maintenant d'une (de deux) nouvelle fonction
que tu peux utiliser comme une fonction excel
ex si tu as 3,14 en A1
en A2 = inverse(A1) devrait donner 41,3
ou avec celle de michel_m
A2 = inverser("FR";A1;PDF) devrait donner FR41,3PDF
si tu veux que la "," soit transformée en "."
tu dis on te fera la modif

bon courage
1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 nov. 2010 à 14:24
Function inverser(prefixe, chiffre, suffixe) As String
inverser = Replace(prefixe & StrReverse(chiffre) & suffixe, ",", ".")
End Function
1
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 398
4 nov. 2010 à 18:19
Je ne crois pas qu'il y ait de solution.
Pouvez vous nous dire quel est le but pour que l'on puisse chercher un peu plus précisément, et avoir quoi vous voulez faire cela.
Crdlmnt
0
Bonjour,

oui, le but c'est de cacher un prix dans une référence pour que les visiteurs ne puisse pas lire le prix et uniquement les vendeurs.

Par exemple un prix de 150,50 puisse devenir FR05.051PDF par exemple.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
Modifié par ccm81 le 5/11/2010 à 10:59
essayer la fonction

Function Inverse(ByVal x As String) As String   
  If x = "" Then   
    Exit Function   
  Else   
    Inverse = Right(x, 1) & Inverse(Left(x, Len(x) - 1))   
  End If   
End Function
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 nov. 2010 à 11:11
bonjour
peut-^tre plus simple

Function inverser(prefixe, chiffre, suffixe) As String
inverser = prefixe & StrReverse(chiffre) & suffixe
End Function


préfixe: fr
chiffre cellule qui contient le montant
suffixe: pdf

par exeemple montant en B3
inverser("fr",B3,"pdf")
0
Merci pour vos réponses mais désolé je ne comprends pas c'est des formules macro ? ou excel
0
C'est extra, merci.

Oui j'aimerai que "," soit transformée en "."

Merci de me dire Comment faire
0
J'arrive à faire marcher la macro de CCM81 mais pas celle de michel_m

Pourquoi?
0
Oui c'est bon.

Merci Michel_m et CCM81 de votre précieuse aide
0