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

Question

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

ccm81 · Answer

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 · Answer

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 · Answer

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 · Answer

merci pour ton aide 
mais comment lui dire de ne séléctionner que la colonne C avant

ccm81 · Answer

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 · Answer

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 · Answer

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 · Answer

C'est magique vraiment merci merci merci !!!

ccm81 · Answer

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 · Answer

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 · Answer

C'est bon j'ai trouver merci pour tout 
vraiment

bonne fin de journée

Problème avec les chiffres pour une remonter d'un etat TXT

11 réponses

Discussions similaires