Problème de formulation pour enlever 3 lettres

[S100CIEL]

Bonjour,

Je m’adresse à vous étant donner que je n’ai pas trouvé de solution à mon problème.J’ai fait de multitude de recherche en vain et je suis tombé sur ce forum j’espère qu’un membre éclairé aura la bonté de m’aider je me suis résigné à demande de l’aide en voyant que toute mes recherche me mener a rien.


Voila mon problème j’ai du retranscrire des tarifs pour des impressions de flyers et dans la colonne ou je devais mettre le prix de base j’ai ajouté manuellement la devise c'est-à-dire CHF pour Franc suisse donc dans ma cellule ou y a le prix sa me donne par exemple CHF 340,00 et c’est la qu’il y a un hic je dois faire 2 colonne a coté avec un % + 40% et + 50%
Mais je ne trouve aucune formule pour enlever le CHF vous me direz que je pourrais enlever Le CHF manuellement mais il y a quand même 3053 ligne j’espère que j’ai réussi a bien exposer mon problème et je vous remercie d’avance

 

[kiki29]

Re : Problème de formulation pour enlever 3 lettres

En supposant que c'est la colonne A qui est en cause
sinon à adapter : Range("XX65536") ainsi que Cells(i,X)

Option Explicit

Sub Tst()
Dim iLastRow As Long
Dim i As Long
Dim s As String

    iLastRow = Range("A65536").End(xlUp).Row
    
    For i = 1 To iLastRow
        s = Cells(i, 1)
        s = Replace(s, "CHF", "")

        Cells(i, 1) = CCur(s)
        Cells(i, 1).NumberFormat = "#,##0.00 [$CHF]"
    Next i
End Sub

 

[Jocelyn]

Re : Problème de formulation pour enlever 3 lettres

Bonjour le Forum,
Bonjour S100CIEL, kiki29,

Une autre solution pour ceux qui comme moisont réfractaires aux macros 😛

Tu sélectionnes la plage qui contient tes données tu vas dans menu édition => remplacer dans le champ rechercher tapes CHF et dasn remplacer par on ne met rien puis remplacer tout.

Jocelyn

EDIT : Bonjour Ballmaster

Juste a titre d'information supplémentaire si tu veux faire des calcul sans changer le format de tes données par exemple ajouter 40% à CHF 340,00 tu peux utiliser si ta donnée est en A1 :

=DROITE(A1;NBCAR(A1)-4)*1*1,40 et ensuite mettre le format préconisé par Ballmaster dans la cellule ou tu as inscrit la formule

 

[ballmaster]

Re : Problème de formulation pour enlever 3 lettres

Bonjour à tous,

Une autre solution pour l'avenir.
C'est d'utiliser le format personnalisé des nombres.
Tu pourrais inscrire par exemple : # ##0,00" CHF"

Cela a l'avantage de te laisser dans tes cellules uniquement les valeurs numériques, donc très pratique si tu as des formules à faire, ce qui est ton cas.