Formule excel pour inverser un montant

Résolu
cesam69 -  
 cesam69 -
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

9 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Function inverser(prefixe, chiffre, suffixe) As String
    inverser = Replace(prefixe & StrReverse(chiffre) & suffixe, ",", ".")
    End Function
    1
  3. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
  4. cesam69
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      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
  7. cesam69
     
    Merci pour vos réponses mais désolé je ne comprends pas c'est des formules macro ? ou excel
    0
  8. cesam69
     
    C'est extra, merci.

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

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

    Pourquoi?
    0
  10. cesam69
     
    Oui c'est bon.

    Merci Michel_m et CCM81 de votre précieuse aide
    0