[VBA] Range.replace , par

Bonjour,

Est-ce que quelqu'un aurait l'extrême gentillesse de m'aider sur le problème suivant:

Je désire :

1) convertir une plage en texte (contenant des nombres à virgules)

puis 2) remplacer les virgules , par des points .

j'ai tiré le code ci-dessous de l'enregistreur de macro mais en l'adaptant dans ma macro cela met bien la plage en format texte mais ne remplace pas la virgule par .

Merci par avance

sub xxx ()
Sheets("Compilation").Range("J2:J10").Select
Selection.NumberFormat = "@"
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End sub

Bonjour,

Si ton Excel reconnait la virgule comme séparateur d'unité ; pourquoi convertir en texte ?

A partir du moment ou tu remplaceras la virgule par le point pour ton excel dans ce cas cela devient du texte

Merci pour ta réponse.

Je viens d'essayer comme tu dis et il ne se passe rien, mais pas de message d'erreur non plus

Sub xxx()
Sheets("Compilation").Range("G2:G18").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart

End Sub

Bonjour,

En essai ...

Sub xxx()
Dim R As Range
   With Sheets("Compilation")
      .Range("J2:J10").NumberFormat = "@"
      For Each R In .Range("J2:J10")
         R = Replace(R, ",", ".")
      Next R
   End With
End Sub

ric

Merci bcp pour ta réponse Ric, mais ça ne fonctionne pas chez moi

Bonjour,

L'essai en fichier ...

Est-ce que ceci fonctionne ?

ric

Ric,

J'ai essayé ton premier code dans ma grosse macro et en fait ça marche très bien donc mille mercis

Et ton deuxième code marche bien dans mon fichier de test où je bricolais juste le bout de code en question.

MERCI BEAUCOUP

BON WEEK END

ps: vous devriez mettre un lien vers votre compte paypal parce que franchement vous méritez ceux qui aident

Bonjour,

ps: vous devriez mettre un lien vers votre compte paypal parce que franchement vous méritez ceux qui aident

Pour ma part, il n'en est pas question. Je suis en formation et ce sont vos demandes variées qui sont motivantes pour l'apprentissage.

ric