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 : 42
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 : 42
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'141
Appréciations reçues : 101
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
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
p
phil107
Jeune membre
Jeune membre
Messages : 42
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