insertion photo Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
phil107
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 23 septembre 2016
Version d'Excel : 2013

Message par phil107 » 11 février 2019, 11:28

oui c'est ça
p
phil107
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 23 septembre 2016
Version d'Excel : 2013

Message par phil107 » 11 février 2019, 11:28

oui c'est ça
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'071
Appréciations reçues : 99
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 11 février 2019, 13:27

Re-

Code modifié :
Sub FormatCurrency()
Dim c As Control
For Each c In Controls
    If c.Name Like "TextBox*" And (Right(c.Name, 2) >= 32 And Right(c.Name, 2) <= 40) Then
        If c = "" Then
            c = "0,00€"
        ElseIf InStr(1, Replace(c, ".", ","), ",") = 0 Then c = Replace(c, ".", ",") & ",00€"
        ElseIf InStr(1, Right(Replace(c, ".", ","), 2), ",") >= 1 Then c = Replace(c, ".", ",") & "0€"
        Else: c = Replace(c, ".", ",") & "€"
        End If
    End If
Next c
End Sub
Fichier modifié ci-joint

Restant à dispo :)
Pour Phil.xlsm
(317.27 Kio) Téléchargé 6 fois
A l'instant même où je l'ai vue, ingénue,
Je suis tombé amoureux d'eeeeeeelle.
Elle est la seule ici bas,
Que je trouve digne de moi.
Et je compte bien épouser cette demoiseeeeelle.

La Belle et la Bête. Belle
p
phil107
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 23 septembre 2016
Version d'Excel : 2013

Message par phil107 » 13 février 2019, 16:50

merci ça marche impeccable
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message