Macro ^pour convertir le format de décimalisation

Bonjour

Je cherche à faire une macro qui me permettrai de convertir le format des nombres d'une colonne de la décimalisation Anglo-saxonne avec un point à la décimalisation Française avec une virgule.

J'ai enregistré la macro de mon opération manuelle(Recherche et Remplace) mais cela ne fonctionne pas. Cela me renvoie des chiffres bizarres.

Pouvez vous m'aider?

Merci à tous

Raj

Bonjour et

Avec un exemple ce serait plus facile de t'aidé.

A+

Bonjour, je ne sais pas vraiment comment insérer un fichier dans ce forum. Je vais quand même éssayer.

A B C

SELECT V 15.05246645231

ALPHA V 30.2591

EURO BLACK V 41.9432999999999

EURO V 9.3048

MAT RA V 86.590100000000007

RISK V 4.402200000000001

MAX V 15.433199999999999

MAND V 15.180999999999999

Voici un bout de mon fichier. Il y a trois colonnes. A, B, C. La deuxième colonne ce n'est que des "V" ..Désolé Je ne sais pas comment insérer les feuilles de calcul.

La macro que j'ai enregistré est celle ci.

Columns("D:D").Select

Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cela ne me renvoie pas les bon chiffre en l'exécutant.

Evidemment, ces cellules ne sont pas formatées en nombre mais en texte, tu devras d'abord séparer le texte des nombres dans deux colonnes par exemple.

Pour joindre une fichier, dans le bas de l'éditeur de réponse tu clic sur <ajouter des fichiers joint>

-> Choisissez le fichier, ensuite n'oublie pas -> Ajouter le fichier

Ah je l'ai Vu!

Voici le fichier. Malheureusement Je ne comprend pas trop ce que tu veux dire par séparer le texte.

Merci encore de m'accorder un peu de temps.

Re,

Voir le module de la feuille. clic droit sur le nom de l'onglet -> Visualiser le code, Copie ce code dans le module

Sub Transforme()
Dim Lig As Long
    For Lig = 2 To Cells(Rows.Count, "D").End(xlUp).Row
        Cells(Lig, 4) = CDbl(Replace(Cells(Lig, 4), ".", ","))
    Next Lig
End Sub

Tu met le curseur de la souris au milieu du code et tu tape F5.

Tu dis,

A+