Enlever les separateur de milliers dans une cahine de caractere [Résolu]

Question

Posez votre question Signaler

Enlever les separateur de milliers dans une cahine de caractere [Résolu]

Makamb

Messages postés: 9
Date d'inscription: mercredi 9 octobre 2013
Dernière intervention: 24 janvier 2014

- 24 janv. 2014 à 11:56 - Dernière réponse : ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Contributeur
Dernière intervention: 11 avril 2018

- 24 janv. 2014 à 13:43

VBA Office (Excel, Word ...) Posez votre question Signaler

Bonjour, chers amis.
En effet, j'utilise un logiciel de comptabilité qui est paramétré de telle sorte que le point (.) soit séparateur de millier. Il m'arrive parfois d'extraire certaines informations du logiciel vers un fichier Excel afin de faire certaines analyses.
le problème c'est que quand je fais l'extraction, tous les nombres restent tels avec le point comme séparateur de millier, ce qui fait que je ne peux pas les additionner ou faire quoique ce soit. existe t il une formule Excel qui va me permettre de retirer les Points (.) et avoir des valeurs en nombre au lieu de texte? j'ai déjà essayer avec "subtitute", "remplacer", "gauche", "droite" mais rien de bon. Aidez moi svp.
NB: on tient a garder le point comme séparateur dans le logiciel car il sert à d'autres personnes.

Afficher la suite

A voir également:

Séparateur de liste vba
Vba séparateur de liste - Meilleures réponses
Cdec vba - Meilleures réponses
Listes VBA ✓ - Forum - Visual Basic
Plusieurs colonnes zone de liste VBA ✓ - Forum - Visual Basic
Forcer la sélection dansune zone de liste (VBA) ✓ - Forum - Visual Basic
Recuperer le ieme element dans une liste avec le separateur de son choix - Codes sources - Visual Basic / VB.NET (Texte)
Utiliser les listes avec vba et access - Codes sources - Visual Basic / VB.NET (VBA)

Votre réponse

Répondre au sujet

4 réponses

Votre réponse

Répondre au sujet

Posez votre question

Makamb · Answer 1 · 2014-01-24T12:06:39+0100

Signaler Commenter la réponse de Makamb

Makamb

Messages postés: 9
Date d'inscription: mercredi 9 octobre 2013
Dernière intervention: 24 janvier 2014

24 janv. 2014 à 12:06

0

Merci

Bien merci à tous qui avaient commencer à réfléchir pour moi. je viens de trouver l'une des solutions à mon problème.
en fait, il faut d'abord utiliser "subtitute" pour enlever les points (.) et après "CNUM" pour convertir le texte en nombre. on peut bien sur faire une imbrication des deux formules. merci encore les gars.

Signaler Commenter la réponse de jordane45

jordane45

Messages postés: 24997
Date d'inscription: mercredi 22 octobre 2003
Statut: Contributeur
Dernière intervention: 21 mars 2019

364 - 24 janv. 2014 à 12:30

Bonjour,
Il n'y a pas de quoi...
Par contre... ce dont tu parles ici c'est de Formule... hors ce forum est principalement destiné à du DEV (donc pour office : du VBA ).

Voici un exemple de code ( en VBA donc) qui fait ce que tu demande :

Sub test()
For Each cell In Selection
Debug.Print "Valeur avant modif : " & cell.Value
 CTP = modif_sep(cell.Value)
 cell.Value = CTP
 Debug.Print "Valeur Après modif : " & cell.Value
Next
End Sub

Function modif_sep(valCell As String, Optional sepAchanger = ".", Optional sepAutiliser = ",")
    modif_sep = CDec(Replace(valCell, sepAchanger, sepAutiliser))
End Function

Makamb · Answer 2 · 2014-01-24T12:37:54+0100

Signaler Commenter la réponse de Makamb

Makamb

Messages postés: 9
Date d'inscription: mercredi 9 octobre 2013
Dernière intervention: 24 janvier 2014

24 janv. 2014 à 12:37

0

Merci

merci, pour tout jordane45. ton code fonctionne correctement. je l'ai lié à un command-button et c'est impecable. merci, Dieu vous benissse.

Makamb · Answer 3 · 2014-01-24T12:47:23+0100

Signaler Commenter la réponse de Makamb

Makamb

Messages postés: 9
Date d'inscription: mercredi 9 octobre 2013
Dernière intervention: 24 janvier 2014

24 janv. 2014 à 12:47

0

Merci

pardon, il y a un dernier souci. lorsque la cellule est vide, j'ai un bug. Pourtant je sélectionne parfois une plage de cellule qui peut contenir des cellules vides. Que peut on faire pour le débogage?

ucfoutu · Answer 4 · 2014-01-24T13:43:06+0100

Signaler Commenter la réponse de ucfoutu

ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Contributeur
Dernière intervention: 11 avril 2018

264 24 janv. 2014 à 13:43

0

Merci

Bonjour,pas sur de tout avoir deviné, mais ===>>
essaye ceci :

For i = 1 To 10
  toto = Range("A" & i).Text
  If Not IsNumeric(toto) And toto <> "" Then
    Range("A" & i).Value = CDbl(Replace(toto, ".", ""))
    Range("A" & i).NumberFormat = "#0.00"
  End If
 Next

où je traite les cellule A1 à A10

Enlever les separateur de milliers dans une cahine de caractere [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !