Problème avec les chiffres pour une remonter d'un etat TXT
Résolu
Sheridana
-
Sheridana Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Sheridana Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai besoin d'aide j'aimerais automatiser un traitement et je bloque sur la remonter des chiffres. Je n'arrive pas à supprimer les points sans que cela touche au reste. Il me semble que c'est un probleme de format mais je n'ai aucune formation VBA et j'aimerais bien y arriver Ci dessous le format de mon fichier
Merci de votre aide à tous.
23100000 Immos en cours transit. lin. -81.652,46
23100010 Immos en cours transit. lin. Mtrg -49.400,00
23110000 Immos en cours transit. dég. -35.258,00
23120005 PO Immo. reçues non facturées 320.352,08
23200000 Immo. en cours PAS linéaire 2.347.294,32
27500000 Dépôts et cautionnements versés -42.386,75
32114000 Stock Lyreco 70.373,60
40110000 Fournisseurs HG 1.209.997,90
40120000 Fournisseurs IG 9.951.209,08
J'ai besoin d'aide j'aimerais automatiser un traitement et je bloque sur la remonter des chiffres. Je n'arrive pas à supprimer les points sans que cela touche au reste. Il me semble que c'est un probleme de format mais je n'ai aucune formation VBA et j'aimerais bien y arriver Ci dessous le format de mon fichier
Merci de votre aide à tous.
23100000 Immos en cours transit. lin. -81.652,46
23100010 Immos en cours transit. lin. Mtrg -49.400,00
23110000 Immos en cours transit. dég. -35.258,00
23120005 PO Immo. reçues non facturées 320.352,08
23200000 Immo. en cours PAS linéaire 2.347.294,32
27500000 Dépôts et cautionnements versés -42.386,75
32114000 Stock Lyreco 70.373,60
40110000 Fournisseurs HG 1.209.997,90
40120000 Fournisseurs IG 9.951.209,08
A voir également:
- Problème avec les chiffres pour une remonter d'un etat TXT
- Remettre pc etat usine - Guide
- Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
- Combien de combinaison possible avec 3 chiffres - Forum Réseaux sociaux
- Tous les code possible de 0 à 9 (4 chiffres ) liste - Forum Jeux vidéo
- Etat disque dur - Télécharger - Informations & Diagnostic
11 réponses
Bonjour
As tu essayé
1. Sélectionner la plage à traiter
2. Edition/Remplacer
3. Replacer . (le point) par tu ne mets rien
4. Replacer tout
Tes valeurs devraient alors se caler à droite dans les cellules (> elle sont devenues des nombres)
Il ne te reste, peut être, qu'à les reformater en ajoutant le séparateur de milliers
Cdlmnt
As tu essayé
1. Sélectionner la plage à traiter
2. Edition/Remplacer
3. Replacer . (le point) par tu ne mets rien
4. Replacer tout
Tes valeurs devraient alors se caler à droite dans les cellules (> elle sont devenues des nombres)
Il ne te reste, peut être, qu'à les reformater en ajoutant le séparateur de milliers
Cdlmnt
Oui mais j'ai une macro de remonter pour aller plus vite avec de caler les colonnes et j'aimerais automatiser ca aussi. Simplement quand je fais ca en manuel ca passe mais des que j'essai d'automatiser ca ne marche plus.
Essaies d'adapter ce code
Cdlmnt
Public Sub OK() Dim cel As Range, v As String, vv As Single For Each cel In Selection v = cel.Value v = Replace(v, ".", "") v = Replace(v, ",", ".") vv = Val(v) cel.Value = vv cel.NumberFormat = "#,##0.00" Next cel End Sub
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionConst lideb As Long = 2 ' premiere ligne à traiter Const co As String = "C" ' colonne à traiter Public Sub OK() Dim li As Long, lifin As Long, v As String, vv As Single lifin = Range(co & Rows.Count).End(xlUp).Row For li = lideb To lifin v = Range(co & li).Value v = Replace(v, ".", "") v = Replace(v, ",", ".") vv = Val(v) Range(co & li).Value = vv Range(co & li).NumberFormat = "#,##0.00" Next li End Sub
c'est super ca marche merci !!
Par contre dernier petit souci cela me change sur certaine ligne le dernier chiffre par exemple le chiffre etait a la base 1 447 625.86 et a la suite de la macro il se termine par 1 447 625.88
Merci de ton aide précieuse
Par contre dernier petit souci cela me change sur certaine ligne le dernier chiffre par exemple le chiffre etait a la base 1 447 625.86 et a la suite de la macro il se termine par 1 447 625.88
Merci de ton aide précieuse
Essaies en remplaçant le type single de vv par le type double
Dim li As Long, lifin As Long, v As String, vv As Double
Et ajouter cette ligne
vv = Val(v)
vv = Round(vv, 2)
Dim li As Long, lifin As Long, v As String, vv As Double
Et ajouter cette ligne
vv = Val(v)
vv = Round(vv, 2)
De rien
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Bonne fin de journée
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Bonne fin de journée