Discussion :

[luko6]

Bonjour à tous

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

Code :

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

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 :

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

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

[Kimy_Ire]

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
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 ?

[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 :

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

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

[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 :

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

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 :

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

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.

[luko6]

Merci

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