Discussion :

[captaine93]

Bonjour,
Lorsque j'utilise la fonction remplacer . par , dans une macro cela me créé des trucs assez étranges et aléatoires...ca peut * par 1000 mon résultat par exemple et mes cases sont reconnues comme du texte au lieu de nombres...
Du coup cette fonction est inutilisable dans le cas de macros (enfin j'ai pas la solution)
Auriez vous une idée ?
Merci de votre aide

[Gorfael]

Salut captaine93 et le forum
La multiplication me laisse sceptique, mais le remplacement du point par la virgule demande une redéfinition du format de la cellule. N'ayant pas beaucoup de données, il faudrait un code du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Cel as range
'......définition de cel....
Set cel = .......
Cel = CDec(Replace(Cel, ".", ","))
Cel.NumberFormatLocal = "0,00"

Mais sans infos précises...
A+

[JPierreM]

essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function MaValeur(Chaine)
 
    Dim fin
    Dim temp
    Dim i
 
    fin = ""
 
    For i = 1 To Len(Chaine)
        temp = Mid(Chaine, i, 1)
        If Asc(temp) >= 48 And Asc(temp) <= 57 Then
            fin = fin & temp
        ElseIf temp = "." Then
            fin = fin & ","
        End If
    Next
 
    MaValeur = CDbl(fin)
 
End Function

[captaine93]

salut !
Merci de t'être penché sur mon problème
Voici le fichier excel sur lequel je fais mes tests en pièce jointe.
Voici le code que j'ai dans ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   Cells.Select
    Selection.NumberFormat = "0.000"
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Je ne comprends pas que cela multipliedes valeurs...en fait ca doit décaler la virgule de 3 chiffres...
Merci

[JPierreM]

Après essai avec ta méthode, j'ai l'impression que les nombres < 1 sont convenablement convertis. Pour les nombres >1 il semble que le point soit considéré comme le séparateur des milliers (je pense aux US mais là je ne suis pas sûr) , c'est pourquoi 1.147 serait converti en 1147,000

J'ai essayé avec ma méthode, ça semble correct. Si tu tiens absolument aux 3 décimales il suffit d'appliquer un format en conséquence ensuite.

[LeForestier]

Bonjour,
Une autre approche ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub MetVirgule()
Dim Lig As Integer, Col As Integer
    Range("C2:R5").Select
    Selection.NumberFormat = "@"
    For Lig = 2 To 5
        For Col = 3 To 18
            Cells(Lig, Col) = Replace(Cells(Lig, Col), ".", ",")
        Next Col
    Next Lig
    Selection.NumberFormat = "0.000"
End Sub

A+

[captaine93]

merci de vos réponse...j'ai essayé la méthode de Leforestier qui marche bien...
sauf que mes cases ne sont pas reconnues comme des nombres : il y a un ptit losange vert qui me dit que c'est du texte alors que quand je fais un click droit, c'est bien du nombre...du coup, pas moyen de faire une moyenne...une idée ?
Encore merci !