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

Résolu/Fermé

Sheridana - 18 mai 2017 à 13:37
Sheridana Messages postés 10 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017 - 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

A voir également:

Problème avec les chiffres pour une remonter d'un etat TXT
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Aide etat reparation electromenager - Guide
Province état yesstyle - Forum Consommation & Internet
Nombre de combinaison possible avec 10 chiffres - Forum Programmation
Pour enregistrer ce texte au format txt sans perdre d’informations, quel codage utiliser ? le musée païen d’αθήνα (athènes) a rapporté à sa ville plusieurs millions d’€. ✓ - Forum Word

11 réponses

Réponse 1 / 11

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
18 mai 2017 à 14:04

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

Réponse 2 / 11

Sheridana Messages postés 10 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
18 mai 2017 à 14:06

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.

Réponse 3 / 11

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié le 18 mai 2017 à 14:24

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

Réponse 4 / 11

Sheridana Messages postés 10 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
18 mai 2017 à 14:29

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
18 mai 2017 à 14:45

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

Réponse 6 / 11

Sheridana Messages postés 10 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
18 mai 2017 à 15:03

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

Réponse 7 / 11

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié le 18 mai 2017 à 15:14

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)

Réponse 8 / 11

Sheridana Messages postés 10 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
18 mai 2017 à 15:17

C'est magique vraiment merci merci merci !!!

Réponse 9 / 11

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
18 mai 2017 à 15:22

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

Réponse 10 / 11

Sheridana Messages postés 10 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
18 mai 2017 à 15:27

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

Réponse 11 / 11

Sheridana Messages postés 10 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 19 mai 2017
18 mai 2017 à 15:30

C'est bon j'ai trouver merci pour tout
vraiment

bonne fin de journée

Discussions similaires

Nombre de combinaisons possibles avec trois chiffres

Trouver l'Etat/Province des départements Français ?

Comment remontez en haut d'une conversation Instagram

Tous les code possible de 0 à 9 (4 chiffres )

combinaison de 8 chiffres

Discussions similaires

Newsletters