changé les , en . dans un tableau de données VBA Fermé

Question

Bonjour, 

J'ai créé un tableau de donnée en VBA et je souhaiterai changé les virgules contenues dans les cellules par des points.

Dim tableau() as variant
Tableau=range("A1").CurrentRegion.value

for i=0 to ubound
","=replace("," , ".")
next i

Ceci ne semble pas fonctionner.

Quelqu'un pourrait-il m'aider?
Merci d'avance

Configuration: Windows 7 / Firefox 24.0

foo · Answer

Bonjour

Voila un Exemple pour une Colonne

Sub TestPoint()
   For L = 2 To Range("B" & Rows.Count).End(xlUp).Row
      Range("B" & L).Value = Replace(Range("B" & L).Value, ",", ".")
   Next
End Sub

A+
Maurice

lermite222 · Answer

Bonjour,
Autre option ?
Sub ChangeVirgule()     Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, _     SearchOrder:=xlByRows, MatchCase:=Falseend Sub A+
 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Rico_AVL · Answer

Merci de vous suggestions mais elles ne s'applique pas à un tableau de données enregistré sous VBA.

J'ai palié au pb en traitant le changement avt d'intégré les données au tableau.

Merci encore.

lermite222 · Answer

J'ai palié au pb en traitant le changement avt d'intégré les données au tableau.
C'est EXACTEMENT ce que mon exemple fait... 
 Si au moins tu l'avais testé, tu n'aurais pas posté une tel réponse.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Changé les , en . dans un tableau de données VBA

4 réponses

Discussions similaires