Pb Macro Conversion données.

Version imprimable

17/01/2011, 11h06
george33

Pb Macro Conversion données.
Bonjour,

Mon problème est le suivant.
J'ai un fichier Excel est je souhaite convertir toutes les cellules, en remplaçant les . par des , (mettre sous forme de nombre) pour faire tourner des calculs.

Cette opération fonction en manuel (transforme 12.500
13.000 13
13.500 = > 13,5
14.000 14

l'enregistreur de macro donne le code suivant pour l'opération.
Code:

1 2 3 4 5 Range("A36:A44").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
mais quand je compile cette macro sur d'autres cellules la conversion se fait mal et j'obtiens :
13.000 13 000
13.500 = > 13 500
14.000 14 000

Merci pour votre aide !
17/01/2011, 11h22
mayekeul

bonjour,

Citation:

mais quand je compile cette macro sur d'autres cellules

C'est-à-dire??
comment procède-tu?
17/01/2011, 11h25
pgz

Bonjour.

Cela illustre bien une limite de l'enregistreur de macros. Il y en a d'autres!

Je te propose :

Code:

ThisWorkbook.Worksheets("NomFeuille").Range("A36:A44").Formula =ThisWorkbook.Worksheets("NomFeuille").Range("A36:A44").Formula

Cordialement,

PGZ
17/01/2011, 11h42
george33

Citation:

bonjour,

Citation:

mais quand je compile cette macro sur d'autres cellules

C'est-à-dire??
comment procède-tu?

j'ai placé le code dans une procédure que je lance et ce code produit par l'enregistreur de macro sur une tache donnée (ctrl F remplacer . par , ) ne produit plus le meme resultat quand on l'appelle ..

La solution de mayekeul fonctionne mais si une solution existe pour remplacer tout les éléments contenus dans une feuille par d'autres (pas uniquement . => ,), je suis intéressé !
17/01/2011, 12h06
mayekeul

Citation:

La solution de mayekeul fonctionne

ah bon?? laquelle???? ;)
17/01/2011, 13h47
mercatog

Essaie ceci

Code:

Range("A36:A44").Replace ".", "."

J'ai la même problématique

Bonjour,

J'allais justement poster une question sur ce sujet.
j'ai utilisé un replace mais qui ne fonctionne pas (problème de format??)

Code:

1
2
3
4
5
6
7
8
9
 
 For Each cell In Range("A" & DebTab & ":M" & FinTab)
        cell.Value = Replace(cell.Value, ",", ".")  'NE FONCTIONNE PAS 
        'J'ai donc testé d'autres trucs :
        If cell.Value = "2,9" Then cell.Value = "2.5"     'Ne fonctionne pas 
        If cell.Value = "3,4" Then cell.Value = "trouvé" 'Fonctionne très bien
        cell.Value = Replace(cell.Value, "5", "**")      'Fonctionne très bien 
        cell.Value = Replace(cell.Value, ",", "**")      'Remplace bien mais modifie les autres données de la colonne (arrondi très bien et ne modifie pas les autres données de la colonne : ce n'est même pas un arrondi puisqu'un "-2,6" se transforme en 12
  Next cell

Quelqu'un comprend t-il quelque chose?

17/01/2011, 15h47
pgz

Bonjour.

Quand on a la valeur 2.54 dans une cellule et qu'on travaille avec une version française d'Excel, cette valeur est une constante de type chaîne de caractères. Par défaut de formatage, le texte est calé à gauche.
La méthode Replace ne marche pas car elle ne permet pas la conversion de type.
Si on lit la propriété Formula de cette cellule, on obtient une constante qui en étasunien est de type numérique. FormulaLocal donne une constante de type String.
Du coup si on écrit la valeur renvoyée par Formula dans Formula, on redéfinit la valeur comme numérique. Cette fois, Value ou FormulaLocal renvoie un numérique.

Cordialement,

PGZ