Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Convertir des valeurs monétaires format texte en valeurs monétaires françaises.

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

MCOTTEND

XLDnaute Nouveau
Bonjour à toutes et Tous,

Je coince sur un problème de VBA qui va paraître idiot à certains et certaines.
Je dois convertir les valeurs texte de forme 1234.6 en valeurs monétaires de forme 1234,60 € dans plus de 150 fichiers tel que celui joint en exemple.
Malgré de nombreux essais, je ne trouve pas de solution pour ce travail.
Est-ce quelqu'un du forum aurait une solution ?
Je vous remercie par avance de votre aide.
Cordialement.
Michel
 

Pièces jointes

Trier par date Trier par votes
Bonjour Mcottend,
Un essai en PJ avec :
VB: 
Sub Convertir()
    Application.ScreenUpdating = False
    With Columns("C:F")
        .NumberFormat = "#,##0.00 $"
        .Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        .Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End With
    [A1].Select
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir à toutes et tous 🙂,

Une autre tentative de traitement en masse.

J'ai considéré que les colonnes à formater sont toujours sur la première feuille et sont les colonnes D à F.
  • ouvrir dans Excel, un certain nombre de fichier à traiter. A partir de l'explorateur, on peut en ouvrir plusieurs à la fois (sélectionner les noms des fichiers puis cliquer-droit/Ouvrir)
  • ouvrir le fichier joint
  • cliquer sur le bouton Hop!
le code est dans module1.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rouge à dit:
Bonjour,

En H2 et à tirer à droite et vers le bas
VB: 
=SIERREUR(SUBSTITUE(D2;".";",")*1;"")

Cdlt
Cliquez pour agrandir...
Merci pour votre aide et proposition.
Elle fonctionne très bien.
Rouge à dit:
Bonjour,

En H2 et à tirer à droite et vers le bas
VB: 
=SIERREUR(SUBSTITUE(D2;".";",")*1;"")

Cdlt
Cliquez pour agrandir...
Merci de votre aide.
Je viens de tester votre proposition. Elle fonctionne à merveille.
Rouge à dit:
Bonjour,

En H2 et à tirer à droite et vers le bas
VB: 
=SIERREUR(SUBSTITUE(D2;".";",")*1;"")

Cdlt
Cliquez pour agrandir...
Merci à vous.
Je viens de tester votre proposition. Elle fonctionne très bien.
Toutefois, je vais intégrer le script vba proposé par Barbatruc puisque derrière j'ai toute une mise en page déjà programmée qui elle ne m'avais pas posée problème.
Bonne soirée.
Cordialement.
Michel
 
Vote positif 0 Vote négatif
job75 à dit:
Bonjour à tous,

@sylvanu le remplacement du point par... le point suffit :
VB: 
Sub Convertir()
With Columns("C:F")
    .NumberFormat = "#,##0.00 $"
    .Replace ".", ".", xlPart
End With
End Sub
A+
Cliquez pour agrandir...
Merci à vous.
Je viens de tester votre proposition. Elle fonctionne très bien.
Je vais l'intégrer dans mon script vba de mise en page que j'ai déjà programmé qui ne m'avais pas posé problème.
Bonne soirée.
Cordialement.
Michel
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
359
MCOTTEND
M
C
  • Question Question
XL 2021 Convertir formules en résultat texte
Réponses
5
Affichages
591
cbar
C
H
  • Question Question
Microsoft 365 Automatiser la conversion des montants en fonction des devises
Réponses
6
Affichages
678
sylvanu
  • Question Question
Microsoft 365 Créer des listes de valeurs uniques
Réponses
4
Affichages
485
merinos-BernardEtang
S
  • Question Question
XL 2019 Joindre texte sauf si valeur = 0
Réponses
4
Affichages
701
Staple1600
K
  • Question Question
XL 2021 Insertion saut chariot plutôt qu'effectuer le saut en lui-même (Macro VBA)
Réponses
1
Affichages
608
KLfy
K
A
  • Question Question
XL 2016 En tete reprenant valeurs d'une cellule
Réponses
2
Affichages
507
Hasco
R
  • Résolu(e)
XL 2019 Conversion date et heure texte en format excel
Réponses
10
Affichages
988
Phil69970
J
  • Question Question
XL 2016 Trier des dates dans un ComboBox
Réponses
11
Affichages
657
jeff2318
J
  • Question Question
XL 2021 Mises en formes Conditionnelles.
2
Réponses
26
Affichages
2 K
TooFatBoy
S
  • Question Question
Autres Convertir un fichier CSV en XLSX avec un macro
Réponses
5
Affichages
5 K
Hasco
B
  • Question Question
Autres Macro de mise en forme
Réponses
6
Affichages
613
sylvanu
V
  • Résolu(e)
Microsoft 365 Conversion en format date suite extraction logiciel interne
Réponses
2
Affichages
1 K
vivi2377
V
P
  • Question Question
XL 2016 Convertir du texte (en heure) en format heure
Réponses
3
Affichages
886
sylvanu
X
  • Question Question
XL 2019 Création d'une boucle pour importer des fichiers d'un répertoire
Réponses
6
Affichages
2 K
vgendron
D
  • Question Question
Microsoft 365 Comment Additionner des valeurs d'une colonnes basées sur leurs dates dans une autre colonne
Réponses
5
Affichages
1 K
desto
D
R
  • Question Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
2 K
Rom1-51
R
R
  • Question Question
XL 2019 Convertir Macro 32 bit en 64 bit
Réponses
2
Affichages
3 K
sylvanu
  • Question Question
XL 2016 [Résolut] Convertir des lignes d'un tableau en colonnes
Réponses
10
Affichages
981
Zdz16
  • Question Question
XL 2016 [Résolu] Convertir date au format texte mm.dd.yyyy en date au format JJ/MM/AAAA
Réponses
12
Affichages
5 K
Modeste geedee
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…