Vous n'êtes pas connecté ! Identifiez-vous pour poster dans le Forum...| remplacer en VBA en respectant la casse | ||
|---|---|---|
|
Inscription: 11/03/2010
Messages:
18
Système d'exploitation: PC Version Excel utilisée: 2003-2007-2010 |
Posté le : 08-09-2010 18h07
Bonjour
Je suis en Excel 2003. (séparateur de décimales = ,) Je souhaite dans une colonne de données remplacer les , par des . Lorsque je fais la manip via Ctrl+h et en cochant la case 'Respecter la casse' ça marche. Lorsque j'enregistre le code via l'enregistreur de macro, que je le simplifie et que je l'exécute sur le même type de données... ça ne marche pas...??  ... cf. fichier ci-jointPar avance merci. |
|
 |
|
|
pbMacro.xls| Re: remplacer en VBA en respectant la casse | ||
|---|---|---|
|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 08-09-2010 21h34
Bonsoir yaka, le Forum,
Là, tu tombes sur LE piège « classique » VBA et fort pénible pour tout le monde... La première chose à prendre en compte, c'est que si en France le séparateur décimale est la virgule, chez les anglo-saxons, ça reste le point. La deuxième chose à assimiler, c'est que VBA c'est le côté sombre de la force  : dans l'environnement VBA, tout est en anglais.Pour s'en convaincre, il suffit de saisir dans l'éditeur VBA : Range("A1").Value = 13.4 'avec un "point"Sur nos versions Excel en français, il y a donc une multitude de conversions automatiques de format réalisées par le système pour traiter, puis ré-afficher les données numériques. J'ai testé dans tous les sens, il me semble impossible d'y arriver en utilisant globalement la méthode Replace comme tu l'as fait. En lieu et place, j'ai utilisé Replace() dans une boucle, mais en tant que fonction cette fois (voir l'aide VBA sur le mot clé Replace pour la distinction entre méthode Excel et fonction VBA). J'ai aussi usé de la propriété FormulaLocal des cellules et, pour rendre l'ensemble pas trop lent, j'ai optimisé pour ne cibler que les seules cellules concernées (celles contenant un nombre uniquement). Je te propose donc cette procédure à la place de la tienne : Sub ChangerVirguleEnPoint()J'espère que ça pourra te convenir... Cordialement, Didier_mDF
 Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
|
|
|
| Re: remplacer en VBA en respectant la casse | ||
|---|---|---|
|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 08-09-2010 21h38
Bonsoir yaka,
Pas vu de résille, mais au cas où, avec l'enregistreur en gros j'obtiens ça: Columns("E:E").Replace What:=",", Replacement:=".", LookAt:=xlPart, _Vois si ça marche de ton coté ? Bonne soirée, Mth Edit:  Bonjour myDearFriend Heureusement que tu es passé sur le fil, j'étais bien loin !! @ + :) |
|
|
|
|
|
| Re: remplacer en VBA en respectant la casse | ||
|---|---|---|
|
Inscription: 11/03/2010
Messages:
18
Système d'exploitation: PC Version Excel utilisée: 2003-2007-2010 |
Posté le : 08-09-2010 21h49
Bonsoir
et en un mot... parfait ! utiliser la fonction Replace... je n'y avais pas pensé. MERCI. +++ |
|
|
|
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes
Didier FOURGEOT