Remplacer caractère par un autre VBA

Bonjour la communauté,

j'ai une macro qui normalement fonctionne je suis persuadé qu'elle correctement écrite, sauf qu'elle ne fait pas le job demandé voir fichier ci-joint.

http://www.cjoint.com/c/FAAqmc5MSw6

il s'agit juste de remplacer "," par "." tout bête mais tout ce que j'ai pu tenter ne fonctionne pas. A défaut pouvoir effectuer une private sub, j'ai réaliser cette macro mais elle ne fonctionne pas.

si l'un d'entre vous connaitrait l'explication je lui en serai reconnaissant.

:salut:

Il serait plus judicieux de poster le code qui ne fonctionne pas correctement ; cela en le mettant entre les balises CODE disponibles en cliquant sur le bouton #. Pour l'utilisation dudit bouton, une explication est disponible ici :

démonstration de l'utilisation du bouton code (#)

:fleche: À lire : Fichier joint dans vos discussions

Cordialement,
Malick

Normalement, la fonction Replace fait ça sans problème.
Couplé à un "For Each ... in UsedRange", ça devrait se résoudre en trois lignes (quatre si on compte la déclaration de variable).

Citation:

---

Envoyé par Menhir

Normalement, la fonction Replace fait ça sans problème.
Couplé à un "For Each ... in UsedRange", ça devrait se résoudre en trois lignes (quatre si on compte la déclaration de variable).

---

Bonsoir à tous les deux !

Voici la macro qui ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub remplacer()     Dim c As Range Dim d As String   For Each c In Range([E4], [E65536].End(xlDown)) d = Replace(c, ",", ".")   Next c     End Sub

---

j'avais commencer par enregistrer une macro, mais quand je l'exécutais ce remplacement ne fonctionnais pas. Du coup j'ai cris cette formule

Salut

Code:

---

1 2 3 4 5 6

For Each c In Range([E4], [E65536].End(xlUp)) c.value = Replace(c, ",", ".") Next c

---

EDIT: Avec ctrl+h ça marche aussi, s'il n'y a pas 50 pages à faire c'est même mieux.

Bonsoir,

Un petit coup d'enregistreur de macros et ensuite adapter le code ??? ( onglet Affichage / Menu Macros / Enregistrer une macro )

Exemple :
Enregistrer une macro via le menu cité plus haut
Dans la feuille sélectionner la colonne B
Dans l'onglet Accueil, sélectionner le menu Rechercher et Sélectionner
Choisir le sous-menu Remplacer
Renseigner les champs "qui vont bien" caractère à remplacer et caractère de remplacement
Exécuter
Arrêter la macro ( petit carré blanc en bas à gauche dans la barre de Status )
Reste plus qu'à la modifier en fonction du besoin

J'ai bon :D ou pas :(

Pounet95

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Remplacer_Caractère() Dim sAvant As String Dim sAprès As String   sAvant = "," sAprès = "."   Columns("B:B").Select Selection.Replace What:=sAvant, Replacement:=sAprès, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub

---

Bonjour.

Code:

---

1 2	Set r = Range([E4], [E65536].End(xlDown)) r.FormulaLocal = r.Formula

---

Citation:

---

Envoyé par letienne

Salut

Code:

---

1 2 3 4 5

For Each c In Range([E4], [E65536].End(xlUp)) c.value = Replace(c, ",", ".") Next c

---

EDIT: Avec ctrl+h ça marche aussi, s'il n'y a pas 50 pages à faire c'est même mieux.

---

salut Letienne,

j'ai essayé ton code sans reaction, je ne sais si ce sont les données dans les cellules qui coincent (pourtant il n'y en a qu'une petite 50aines)...

Citation:

---

Envoyé par Docmarti

Bonjour.

Code:

---

1 2	Set r = Range([E4], [E65536].End(xlDown)) r.FormulaLocal = r.Formula

---

---

que signigfie

Code:

---

1 2	r.FormulaLocal = r.Formula

---

[/QUOTE] ? quelle est sa fonction ?

visionnez mon fichier joint vous comprendrez peut être pourquoi ca ne fonctionne pas

Bonjour,

une simple description du type de données (1), de sa source (2), du problème exact (3) t'aurait permis d'avoir directement la bonne solution, puisque comme tu le vois il y a beaucoup de façon de faire ... tout dépendra du cadre d'utilisation

Par exemple :

(1) Ce sont des valeurs ? Des mots ? des Formules ? etc...
(2) Feuille de calcul, Userform, Autre fichier etc...
(3) Le remplacement n'est pas pris en compte / etc...

donner éventuellement un mini exemple des données si besoin DIRECTEMENT dans le message sans utiliser de fichier
et si tu n'as pas montré l'ensemble des codes VBA que tu utilises pour ce problèmes, rajoute-les

Citation:

---

Envoyé par med_mugen

que signigfie

Code:

---

1 2	r.FormulaLocal = r.Formula

---

? quelle est sa fonction ?

---

Si dans tes parametres regionaux, le separ decimal est la virgule,
Tes cellules contiennent des nombres décimaux avec virgule comme separateur decimal
La propriete Formula est un String contenant le meme nombre mais toujours avec le point comme separ decimal
La propriete FormulaLocal est un String contenant le meme nombre mais avec la virgule comme separ decimal
Si le format de la cellule est numerique, FormulaLocal attend un String contenant la virgule comme separ decimal
Si je dis cells(1,1).FormulaLocal = c.FormulaLocal , j'envoie un nombre avec la virgule comme separ decimal et FormulaLocal y reconnait un nombre
Si je dis cells(1,1).FormulaLocal = c.Formula , j'envoie un nombre avec le point comme separ decimal et FormulaLocal n'y reconnait pas un nombre. Il considere que un String.

Citation:

---

Envoyé par med_mugen

j'ai essayé ton code sans reaction, je ne sais si ce sont les données dans les cellules qui coincent (pourtant il n'y en a qu'une petite 50aines)...

---

Sans doute parce que Replace fonctionne sur les chaînes de caractères et que le contenu de tes cellules ne doit pas en être.
Comme le demande joe.levrai, décrit la nature du contenu de tes cellules.

Bonjour tous le monde,


je ne savais pas que replace fonctionnait pour du texte uniquement.

le fichier était tout simple ; juste une colonne E avec une entête nommé semaine, les vleurs dans les cellules sous cette colonne sont :
5,2015
6,2015
7,2015
8,2015
...

pas de nom de feuille particulier, juste "feuil1".

le format de chaque cellule est standard.


Enfin le code associé est :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub remplacer()     Dim c As Range Dim d As String   For Each c In Range([E4], [E65536].End(xlDown)) d = Replace(c, ",", ".")   Next c

---

voilà pour les infos du doc

Citation:

---

Envoyé par Docmarti

Si dans tes parametres regionaux, le separ decimal est la virgule,
Tes cellules contiennent des nombres décimaux avec virgule comme separateur decimal
La propriete Formula est un String contenant le meme nombre mais toujours avec le point comme separ decimal
La propriete FormulaLocal est un String contenant le meme nombre mais avec la virgule comme separ decimal
Si le format de la cellule est numerique, FormulaLocal attend un String contenant la virgule comme separ decimal
Si je dis cells(1,1).FormulaLocal = c.FormulaLocal , j'envoie un nombre avec la virgule comme separ decimal et FormulaLocal y reconnait un nombre
Si je dis cells(1,1).FormulaLocal = c.Formula , j'envoie un nombre avec le point comme separ decimal et FormulaLocal n'y reconnait pas un nombre. Il considere que un String.

---

Bonjour Docmarti,

si je comprend bien ton explication r.formulalocal = r.formula va observer le format de la cellule r (decimale avec ",") et va dire que ça correspond au format decimal avec ".", c'est bien ça l'idée ?

cordialement,

donc pour des formats numériques, voire standard on utilise cette formule de remplacement des décimales, sinon c Replace () pour les chaines de caractères de types textes, c'est cela?

letienne t'a indiquer une erreur dans le poste #5 mais tu ne l'as pas corrigée.

Ensuite, remplace le c qui est dans la fonction Replace par Format(c)

Merci Menhir pour votre conseil !

Citation:

---

Envoyé par med_mugen

donc pour des formats numériques, voire standard on utilise cette formule de remplacement des décimales, sinon c Replace () pour les chaines de caractères de types textes, c'est cela?

---

On n'est pas obligé d'utiliser cette formule de remplacement ( FormulaLocal ).
C'est le format numérique de la cellule ( propriété NumberFormat ) qui cause le problème. Il suffit de le contrôler

Si le format numérique de la cellule est TEXTE, la fonction Replace () fonctionne car elle envoie une chaîne de caractères dans une cellule qui attend une chaîne de caractères.

Mais si le format numérique de la cellule est STANDARD, la fonction Replace () ne fonctionne pas car la cellule attend d'abord une date ou un nombre et le résultat de Replace () qui a remplacé la virgule par un point, est de nouveau converti en nombre et le point redevient virgule.

Pour obtenir un résultat assuré, il faut changer la propriété NumberFormat pour "@" avant d'écrire le résultat de Replace () dans la cellule.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub tt()   Set c = Cells(1, 1) valeur = CDbl(CDate("10/01/2015 12:13"))   strt = Replace(valeur, ",", ".")   Set c = Cells(1, 1): c.NumberFormat = "@" c.Value = strt '--> 42014.5090277778   Set c = Cells(2, 1): c.NumberFormat = "General" c.Value = strt '--> 42014,5090277778   Set c = Cells(3, 1): c.NumberFormat = "0.0000" c.Value = strt '--> 42014,5090277778   Set c = Cells(4, 1): c.NumberFormat = "d/m/yyyy" c.Value = strt '--> 10/01/2015 12:13:00   End Sub

---