Discussion :

[laetitia]

re, si tu veux changer egalement les chiffres type 980.4 par 980,4
on peur l'ecrire comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub es()
Dim c As Variant
  Application.ScreenUpdating = False
  For Each c In Range("a1", Range("a65536").End(xlUp))
    If Not c Like "*,*" And c Like "*.*" Then
       c.Value = Replace(c.Value, ".", ",")
          Else
      c.Value = Trim(Replace(c.Value, ".", " "))
  End If
Next c
End Sub

[NEC14]

Bonjour LeForestier,

Désolé d'avoir tardé à te répondre mais la neige a pertubé un peu mes projets.
Sinon, j'ai testé en Excel 2003.
Le libellé de l'erreur est 'Incompatibilité de type'
A+

bonjour NEC14,
Tu a quel version d'excel ? parce que chez moi c'est nickel.
Et je n'ai pas en tête le libellé de l'erreur 13, c'est quoi ?
A+
PS: c'est sur son classeur que j'ai tester.
Peut-être en ajoutant..

Code :

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

    V = Val(Cells(i, 1))

[Didier Gonard]

Bonjour,

une piste détaillée :

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
Option Explicit
 
Sub SupEspaceExtrem()
Cells(1, 2) = Trim(Cells(1, 1))
End Sub
 
Sub BonFormat()
Cells(1, 3) = Replace(Cells(1, 2), ".", " ")
End Sub
Sub PassenNombre()
Cells(1, 4).NumberFormat = "0.0"
Cells(1, 4) = CDbl(Cells(1, 3))
End Sub
 
Sub Faitout()
With Cells(1, 5)
   .NumberFormat = "0.0" '"0.00"
   .Value = CDbl(Replace(Trim(Cells(1, 1)), ".", " "))
End With
End Sub

l'espace n'est que l'expression d'un format / séparateurs de milliers...
vois dans l'aide vba si besoin, notamment à VAL pour comprendre les écueils

cordialement,

Rajout, Oups pas vu qu'il y avait 2 pages , mais bon l'approche est différente, en espérant qu'il y trouve son bonheur
Didier