Menu

Problème avec les chiffres pour une remonter d'un etat TXT [Résolu/Fermé]

Sheridana - 18 mai 2017 à 13:37 - Dernière réponse : Sheridana 10 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention
- 18 mai 2017 à 15:30
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
Afficher la suite 

11 réponses

ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - 18 mai 2017 à 14:04
0
Utile
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
Sheridana 10 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 18 mai 2017 à 14:06
0
Utile
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.
ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - Modifié par ccm81 le 18/05/2017 à 14:24
0
Utile
Essaies d'adapter ce code

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
Sheridana 10 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 18 mai 2017 à 14:29
0
Utile
merci pour ton aide
mais comment lui dire de ne séléctionner que la colonne C avant
ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - 18 mai 2017 à 14:45
0
Utile
Const 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
Sheridana 10 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 18 mai 2017 à 15:03
0
Utile
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
ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - Modifié par ccm81 le 18/05/2017 à 15:14
0
Utile
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)
Sheridana 10 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 18 mai 2017 à 15:17
0
Utile
C'est magique vraiment merci merci merci !!!
ccm81 8399 Messages postés lundi 18 octobre 2010Date d'inscription 16 mai 2018 Dernière intervention - 18 mai 2017 à 15:22
0
Utile
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
Sheridana 10 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 18 mai 2017 à 15:27
0
Utile
Toute derniere question apres j'arrrete lol
comment intégrer ta macro a la mienne pour qu elle se lance a la suite elle est inscrite en dessous de mon end sub separer par un trait
Sheridana 10 Messages postés jeudi 18 mai 2017Date d'inscription 19 mai 2017 Dernière intervention - 18 mai 2017 à 15:30
0
Utile
C'est bon j'ai trouver merci pour tout
vraiment

bonne fin de journée