OVH Cloud OVH Cloud

Remplacement auto

42 réponses
Avatar
f4crw
Bonjour ou Bonsoir,

Quelqu'un peut-il m=E2=80=99expliquer pourquoi cette macro fonctionne bien =
en pas =C3=A0 pas et me laisse certains points en automatique et quoi chang=
er.

Merci

R=C3=A9gis

Sub Macro2()
'
'Remplacer les points par des virgules
Columns("D:F").Select
Selection.Replace What:=3D".", Replacement:=3D",", LookAt:=3DxlPart, _
SearchOrder:=3DxlByRows, MatchCase:=3DFalse, SearchFormat:=3DFalse,=
_
ReplaceFormat:=3DFalse
End Sub

10 réponses

1 2 3 4 5
Avatar
News.aioe.org
Bonjour,
Si ton séparateur décimal est la virgule, je suis surpris que cette macro ne
fonctionne pas.
Selon moi, cette macro devrait faire le boulot pour toutes les versions
d'Excel.
Si Jacquouille ou quelqu'un d'autre veut bien faire le test, il n'a qu'à
télécharger ce fichier.
Le fichier a été enregistré au format 1997-2003. Il est accessible à tous.
Il n'a qu'à cliquer
sur un bouton pour observer le résultat.
http://www.cjoint.com/c/FLtl6mJjqKi
MichD
Avatar
News.aioe.org
Désolé, utilisé plutôt ce lien, il y a un petit problème avec l'autre
fichier!
http://www.cjoint.com/c/FLtmeUrT0li
MichD
"News.aioe.org" a écrit dans le message de groupe de discussion :
o38ia8$1sle$
Bonjour,
Si ton séparateur décimal est la virgule, je suis surpris que cette macro ne
fonctionne pas.
Selon moi, cette macro devrait faire le boulot pour toutes les versions
d'Excel.
Si Jacquouille ou quelqu'un d'autre veut bien faire le test, il n'a qu'à
télécharger ce fichier.
Le fichier a été enregistré au format 1997-2003. Il est accessible à tous.
Il n'a qu'à cliquer
sur un bouton pour observer le résultat.
http://www.cjoint.com/c/FLtl6mJjqKi
MichD
Avatar
News.aioe.org
Désolé, utilisé plutôt ce lien, il y a un petit problème avec l'autre
fichier!
http://www.cjoint.com/c/FLtmeUrT0li
MichD
Avatar
Jacquouille
Salut Denis,
A drwatt.... drwatt! (comme à l'armée)
Excuse mon retard, mais j'ai du lire trois fois le message. -))))))
Je ne te ferai pas l'injure de te dire que mon vieux 2003 a TRES bien digéré
ce filet de macro. Même pas une petite arête pour faire ch**** le truc.
Seule chose qui me perturbe depuis quelques jours: tes messages viennent,
dans mon navigateur, une fois sous ton nom (DM) et une fois sous le nom du
navigateur (news.aioe.org).
Est-ce grave, Docteur?
Tout entier à votre service, veuillez recevoir, Monsieur, ma facture et mes
meilleurs voeux. -))
Jacques, heureux d'avoir pu rendre service.
" Le vin est au repas ce que le parfum est à la femme."
.
"News.aioe.org" a écrit dans le message de groupe de discussion :
o38irr$1tp4$
Désolé, utilisé plutôt ce lien, il y a un petit problème avec l'autre
fichier!
http://www.cjoint.com/c/FLtmeUrT0li
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Avatar
News.aioe.org
Merci Jacquouille pour le test.
| dans mon navigateur, une fois sous ton nom (DM) et une fois sous
| le nom du navigateur (news.aioe.org)
.
J'ai 2 partitions avec des configurations un peu différentes. Windows 10
que je n'utilise que pour une application affiche (news.aioe.org).
Habituellement, j'emploie Windows 7 et je signe "Michd".
Voilà pour la petite histoire!
MichD
Avatar
Jacquouille
Merci beaucoup.
Pas grave, alors.
mais, n'y a-t-il jamais d'interférence entre toutes tes partitions?
Bonne fin de journée
Jacques.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"News.aioe.org" a écrit dans le message de groupe de discussion :
o38uj7$k9d$
Merci Jacquouille pour le test.
| dans mon navigateur, une fois sous ton nom (DM) et une fois sous
| le nom du navigateur (news.aioe.org)
.
J'ai 2 partitions avec des configurations un peu différentes. Windows 10
que je n'utilise que pour une application affiche (news.aioe.org).
Habituellement, j'emploie Windows 7 et je signe "Michd".
Voilà pour la petite histoire!
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Avatar
Jacky
Bonjour,
Aucun problème avec xl 2007 Win10 et le point comme séparateur
Micro climat ??
Salutations
JJ
News.aioe.org a exposé le 19/12/2016 :
Désolé, utilisé plutôt ce lien, il y a un petit problème avec l'autre
fichier!
http://www.cjoint.com/c/FLtmeUrT0li
MichD
Avatar
News.aioe.org
Merci Jacky pour le test. Effectivement, je suspecte qu'il y a un
petit problème local dont le demandeur ne nous dit pas!
MichD
"Jacky" a écrit dans le message de groupe de discussion :
o39187$qsl$
Bonjour,
Aucun problème avec xl 2007 Win10 et le point comme séparateur
Micro climat ??
Salutations
JJ
News.aioe.org a exposé le 19/12/2016 :
Désolé, utilisé plutôt ce lien, il y a un petit problème avec l'autre
fichier!
http://www.cjoint.com/c/FLtmeUrT0li
MichD
Avatar
f4crw
Le lundi 19 décembre 2016 18:29:20 UTC+1, News.aioe.org a écrit  :
Merci Jacky pour le test. Effectivement, je suspecte qu'il y a un
petit problème local dont le demandeur ne nous dit pas!
MichD
"Jacky" a écrit dans le message de groupe de discussion :
o39187$qsl$
Bonjour,
Aucun problème avec xl 2007 Win10 et le point comme séparateur
Micro climat ??
Salutations
JJ
News.aioe.org a exposé le 19/12/2016 :
Désolé, utilisé plutôt ce lien, il y a un petit pro blème avec l'autre
fichier!
http://www.cjoint.com/c/FLtmeUrT0li
MichD


Bonsoir à tous.
Encore merci pour toutes vos réponses, non il n'y a pas de problè me local.
Je crois que l'on nous nous somme pas bien compris
Avec votre macro qui fait très bien ce que vous lui demander on obtien t en E11 la valeur 10392241,00 pour 1.0392241à l'origine, mais ce que je recherchai c'est 1,0392241 ce qui vous en conviendrez n'est pas pareil.
Je crois avoir trouvé une solution avec = SUBSTITUTE(RC[-3],"".""," ","")*1
= SUBSTITUTE(RC[-3],""."","","") qui me remplace bien les points par des virgules et *1 qui convertit en nombres.
Maitenant (après suppression des lignes qui ne me sont pas utiles) je voudrais envoyer ce tableau A2:F34 dans un fichier TXT avec des ; comme s éparateur, j'ai lue quelques part que c'était possible, mais je n e le retrouve pas, donc je vous sollicite encore une fois.
Merci d'avance et bonne soirée
Régis
Avatar
News.aioe.org
Bonjour,
A )
Si lors de ton premier retour suite à ma proposition, j'aurais adapté
la macro immédiatement.
Quand j'ai regardé le format des cellules de la plage désignée, toutes
étaient au format standard sauf la colonne dont tu notes le problème
qui elle avait le format suivant : -1234 . C'est ce pour quoi tu observes
un résultat erratique comme résultat. Désolé, mais je n'ai pas vérifié
le formatage de chacune des cellules de la plage...
Essaie cette macro, cela devait aller.
'------------------------------------------------------------------------
Sub test()
Dim C As Range, X As Variant
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
With Worksheets("Feuil1") 'Nom feuille à adapter au besoin
For Each C In .Range("D2:F34").Columns
With C
.NumberFormat = "General"
X = .Value
.Value = ""
.Value = X
End With
Next
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
'------------------------------------------------------------------------
B ) Si ton fichier contient plus de données que la plage que tu veux avoir
dans ton fichier .csv,
Copie cette plage de cellules dans un nouveau classeur et lors d'un
enregistrement de ce
fichier, dans la fenêtre enregistrer sous, dans la liste déroulante du
bas de la fenêtre "Type"
choisis le type "CSV (DOS)(*.CSV). Voilà.
Si tu fermes ton fichier, vas dans l'explorateur Windows dans ledit
répertoire, et fais un clic droit
sur le fichier. Avec la commande "Ouvrir avec" du menu contextuel, tu
pourras choisir l'application
"Notepad" ou "Excel" pour ouvrir ce fichier.
MichD
1 2 3 4 5