Problème avec les virgules.

Résolu/Fermé

Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015 - 14 janv. 2015 à 09:49
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 14 janv. 2015 à 14:08

Bonjour tout le monde,

Bonne année à toutes et tous et bonne année au forum.
De nouveau parmi vous pour vous solliciter sur un problème auquel je suis confronté actuellement. Dans ma feuille Excel, j'ai des données numériques de ce genre : 8965.236,35 et puis de ce genre aussi 236,56. A travers ma macro, je voudrais enlever les points mais garder les virgules ( 8965.236,35 ==> 8965236,35). Seulement voila, quand Excel trouve un point il l'enlève, le problème c'est quand il n'y a pas de points, exemple : pour ce chiffre 236,56 il enlève la virgule.
Autrement dit s'il trouve un point dans le chiffre, c'est bon il fait les choses correctement : 8965.236,35 ==> 8965236,35. Mais s'il ne trouve pas un point il commence à faire du n'importe quoi : 236,56 ==> 23656 .

Quelqu'un pourrait-il m'aider s'il vous plaît ? Je vous remercie d'avance pour votre aide.

Voila le code que j'ai utilisé :

 Cells.Select
 
     
     Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

A voir également:

Problème avec les virgules.
Alea entre bornes avec virgule ✓ - Forum Excel
Conversion binaire octal avec virgule ✓ - Forum Programmation
Excel extraire texte entre deux virgules - Forum Excel
Supprimer les chiffres après la virgule excel ✓ - Forum Excel
Supprimer les virgules dans excel - Forum Excel

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
14 janv. 2015 à 10:44

Bonjour,

En effet, c'est curieux.

Essaye cette macro :

Sub EnlevePoints()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
    If InStr(Cel.Value, ".") > 0 Then Cel.Value = Replace(Cel.Value, ".", "")
Next
End Sub

Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015
14 janv. 2015 à 11:17

Je te remercie infiniment Pijaku. ça marche pour certaines valeurs et je ne sais absolument pas pourquoi dans plusieurs autres cellules il remplace la virgule et le point par le vide. Vraiment je n'ai aucune explication à cela. Peut-tu m'aider dans ce sens ? et Merci beaucoup.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751 > Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015
14 janv. 2015 à 11:25

AS tu essayé mon code?
Chez moi cela fonctionne bien...

Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015
14 janv. 2015 à 12:14

ouii le tien. Ce qui me laisse sans mots, c'est que pour la majorité des lignes ça marche correctement mais pour quelques lignes, il enlève les points et virgules.

Peux tu nous passer le fichier incriminé?

Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com

Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

Statisticien Messages postés 26 Date d'inscription mardi 25 novembre 2014 Statut Membre Dernière intervention 14 janvier 2015
14 janv. 2015 à 13:42

Impossible :( données très confidentielles et puis ça dépasse les 90000 lignes !

Discussions similaires

Extraire un texte à gauche d'une virgule

Enlever la virgule dans les nombres

Transposer noms séparés par virgules en lignes d'une colonne

division sous excel

[EXCEL] passer d'un .xls à un .txt