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
A voir également:
- Changé les , en . dans un tableau de données VBA
- Tableau word - Guide
- Trier un tableau excel - Guide
- Imprimer un tableau excel - Guide
- Changer de dns - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif ci-dessous. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. il manque 5 valeurs dans le tableau ci-dessous. retrouvez-les dans votre tableau, puis reportez-les arrondies à l’entier le plus proche. - Guide
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
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 ?
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 .
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.
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 .
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 .
