Changé les , en . dans un tableau de données VBA
Rico_AVL
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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
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
4 réponses
-
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 -
Bonjour,
Autre option ?Sub ChangeVirgule()
A+
Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
end Sub
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 . -
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. -
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 .
