Probleme Fonction Replace

Version imprimable

Bonjour à tous

voici le code que j'utilise pour remplacer le point séparateur de millier par rien
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim plage As Range 'initialise la plage Set plage = Range("e1:f120") 'pour chaque cellule de ma plage For Each c In plage 'je remplace le . par une , c.Value = Replace(c.Value, ".", "") Next c
cela fonctionne bien sauf que lorsque je sélectionne mes valeurs, excel ne calcule pas la somme (visible en bas à droite) , j'ai seulement le nombre de cellules sélectionnées.

J'ai essayé en vain de changer le format de cellule avec ce code par exemple
Code:

1 2 Range("e2:f120").Select Selection.NumberFormat = "0"
cependant quand je clique sur la cellule puis quand je place mon curseur dans la barre de formule et que je tape sur entrée, le format de cellule change en nombre et excel peut calculer la somme.

quand je le fais manuellement (sans passer par la macro) je n'ai pas ce problème.

Merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub rplce()
Dim plage As Range
Dim sum As Double
Dim test As Range
 
 With Worksheets("Feuil1")
 
 sum = 0
'initialise la plage
Set plage = Range("e1:f120")
 
'pour chaque cellule de ma plage
For Each c In plage
   'je remplace le . par une ,
    c.Value = replace(c.Value, ".", "")
Next c
 
For j = 5 To 6
    sum = 0
    Set test = .Range("e1")
    For i = 0 To .Columns(j).Find("*", , , , xlByColumns, xlPrevious).Row - 1
        sum = sum + test.Offset(i, j - 5)
    Next i
    test.Offset(i, j - 5) = sum
Next j
End With
End Sub

Ce code marche pour moi... Je ne comprends pas trop ta question je crois. Tu veux remplacer les points par "rien" donc transformer des singles en integers ou doubles et en faire la somme, c'est ça ?

21/12/2012, 16h47
luko6

merci pour ta réponse

J'ai un message d'erreur "erreur d'execution "13" avec ton code au niveau de la ligne

Code:

sum = sum + test.Offset(i, j - 5)

ce que je souhaite c'est de supprimer le point en séparateur de millier qui est présent par defaut lors de mon extraction sous excel et ensuite sélectionner les cellules et voir la somme en bas à droite de mon écran
21/12/2012, 17h50
Philippe Tulliez
Bonjour,
Parlons-nous de la même chose ?
Soit tu as dans ta plage E1:F120 des valeurs alphanumériques contenant un point séparateur des milliers, soit ce sont bien des valeurs numériques mais formatées par excel comme séparateur de milliers. Ce qui n'est pas la même chose.
Si c'est le premier cas, le code avec la fonction Replace doit fonctionner sauf si tu travailles avec un format où le point est un séparateur décimale.
Ce code fonctionne
Code:

1 2 3 4 5 6 7 Sub Exemple1() Dim rng As Range, cell As Range Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A2:A26") For Each cell In rng cell = Replace(cell.Value, ".", "") Next End Sub
L'autre solution est de multiplier par 1
Code:

1 2 3 4 5 6 7 Sub Exemple2() Dim rng As Range, cell As Range Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A2:A26") For Each cell In rng cell = cell * 1 Next End Sub
Si c'est le 2ème cas, valeurs numériques formatées comme séparateur de milliers, il y a lieu de créer un nouveau format.
27/12/2012, 09h15
luko6

Merci

J'ai combiné tes deux propositions et cela fonctionne !
Merci encore