Script conversion nombre avec caratères

Résolu/Fermé

El_Dje Messages postés 2 Date d'inscription mardi 7 novembre 2017 Statut Membre Dernière intervention 7 novembre 2017 - Modifié le 7 nov. 2017 à 13:18
ElDje Messages postés 4 Date d'inscription vendredi 15 février 2013 Statut Membre Dernière intervention 26 décembre 2017 - 26 déc. 2017 à 10:46

Bonjour,

J'ai le problème suivant : je mets un forme via un script VBA un fichier qui comporte des chiffres écrit avec un "." pour la séparation des milliers.
J'ai donc ceci dans le fichier:
56,34
2.645,34
24

Problème : le 2.654,34 n'est pas reconnu comme un chiffre, mais comme un texte.

Lorsque je fais un simple "remplacer tout" ("." en ""), ça fonctionne bien, et je retrouve ce que je veux.

Mais lorsque je le fait avec VBA (j'ai bêtement enregistré la marco), il m'enlève également les ","; de sorte que je me retrouve avec ceci:
5634
2645,34
24

Macro :

Columns("C:C").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False

Une idée de mon erreur ou de comment corriger mon script pour obtenir le même résultat qu'en utilisant la

A voir également:

Script conversion nombre avec caratères
Script vidéo youtube - Guide
Nombre facile - Télécharger - Outils professionnels
Mas script - Accueil - Windows
Nombre de jours entre deux dates excel - Guide
Monnaie conversion - Télécharger - Banque & Budget

3 réponses

Réponse 1 / 3

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
7 nov. 2017 à 13:24

Bonjour,
pour eviter le select, mais ca marche sans virer les "," !!!!!!

Columns(3).Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False

El_Dje Messages postés 2 Date d'inscription mardi 7 novembre 2017 Statut Membre Dernière intervention 7 novembre 2017
7 nov. 2017 à 13:45

Pas chez moi...

J'ai partiellement contourné le problème en définissant un type décimal avec "." comme séparateur de groupe ("digit group separator") dans les paramètre régionaux.

Reste à automatiser le passage en nombre d'un nombre formaté en texte.

Mais je suppose que ça, je trouverai dans le forum.

Merci pour l'aide!

Réponse 2 / 3

Mike-31 Messages postés 18384 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 9 avril 2025 5 127
7 nov. 2017 à 13:54

Bonjour,

écrit ton code comme cela pour traiter la plage C2:C100

Dim i As Integer
For i = 2 To 100
Cells(i, 3).Replace What:=".", Replacement:=""
Cells(i, 3) = Cells(i, 3) * 1
Next i

ElDje Messages postés 4 Date d'inscription vendredi 15 février 2013 Statut Membre Dernière intervention 26 décembre 2017
26 déc. 2017 à 10:46

Bonjour Mike,

merci beaucoup pour la réponse.
Je viens de pouvoir modifier le code, il tourne aux petits oignons !

Et des 3 propositions, c'est celle qui me plait le plus (passé de programmeur/bisouilleur sans doute...)

Dje

Réponse 3 / 3

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
7 nov. 2017 à 14:46

Bonjour,

sur tes nombres formatés 2.645,34 (et uniquement ceux-là sinon les bons repasseront en texte) :

    [C2:C10].TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=",", ThousandsSeparator:=".", _
        TrailingMinusNumbers:=False

mais ça peut être fait directement au moment de l'importation à l'étape 3.
eric

Discussions similaires

présentation en-tête

Bonjour,

Ci joint un dossier que je dois faire pour un mémoire. La présentation ne me plait pas.
Ce que j'aimerais faire c'est un L inversé en en-tête.
C'est à dire garder ma bande verte au dessus, mais également en mettre une sur la marge de droite de la même largeur et qui se rejoigne.
Le numéro de page marqué dans cette marge en bas.
L'idéal serai de le faire comme une en-tête, puisque j'ai déjà pas mal de pages faites

Merci pour votre aide

https://www.cjoint.com/c/CHdp5oRuWUO

combien y a t il d'épisode dans GTO

Bonjour,
combien y a t il d'épisode dans GTO ?
merci

additionner nombres dans cellules avec texte

Bonjour à tous,
Je vous contacte car je n'ai pas trouvé la solution à mon problème.
J'ai vu des posts qui s'en rapprochaient mais pas réussi à mettre en œuvre :/

J'ai deux colonnes contenant texte et chiffres et souhaite "simplement" additionner les chiffres afin de contrôler si les totaux sont bons.
Voilà ce que j'ai :
Existe [3] N'existe pas [223]
Existe [185] N'existe pas [41]
Existe [10] N'existe pas [216]
Existe [21] N'existe pas [205]
Existe [6] N'existe pas [220]
Existe [6] N'existe pas [220]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]

Connaître le nombre de messages dans une conversation

Hey, Petite question, je voudrais connaître le moyen de savoir le nombre de messages dans une conversation par SMS avec une personne. Sur le net je n'ai rien trouvé à par un site qui demande de télécharger une appli douteuse.. Quand j'étais jeune, donc ça remonte. Sur nos téléphone qui était que des briques à l'époque je suis sûr que c'était déjà possible et je m'amusais à regarder avec qui je parlais le plus... Donc pourquoi j'y arrive pas avec un téléphone qui peut contrôler ma maison ? ???? Merci à vous pour vos réponses ! Ah et je suis sur un S22 si ça peut être utile