Excel 2k3 - VBA - Bug Ctrl-H "remplacer" [réglé]

[rdep01]

Bonjour à tous,

Dans une colonne de chiffres format américain (avec un point pour marquer les décimales), j'ai un bug sur certains montants lorsque je remplace le point par la virgule.

Ce bug n'apparait pas lorsque je fais Edition > Remplacer (CTRL H) manuellement, mais il apparait lorsque je le fais faire par VBA.

Pour exemple, 10073977.75256 me donne 10073977,75256 avec CTRL H et 1007397775256,0000 avec VBA.

Voici le code que j'utilise pour remplacer les points par des virgules :

Code: Tout sélectionner

    Selection.Replace What:=".", Replacement:=";", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

C'est donc ce code qui me donne 1007397775256,0000

Quelqu'un a-t-il déjà connu ce bug, ou quelqu'un voit-il une erreur ?

Merci par avance à toutes les réponses

P.S. : Excel 2003 SP2

[emilie laure]

bonjor,

Cette macro devrait te convenir:

Code: Tout sélectionner

Sub Remplacer()
  For Each cell In Selection
    If InStr(1, cell.Text, ".") > 0 Then
      cell.Value = CDbl(Val(cell.Text))
    End If
  Next
End Sub

milie

[rdep01]

Merci !

Excuses-moi de ne répondre que maintenant, je voulais tester avant de répondre et le temps a filé

Ca a l'air de fonctionner super bien

Où as-tu trouvé CDbl ? Il n'est pas dans l'aide

[emilie laure]

salut,

Je ne sais plus où je l'ai trouvé. Mais je l'avais déjà utilisé avant ton post.

http://groupes.codes-sources.com/articl ... 49358.aspx

pas sur ce lien précis mais sur ce forum?

milie

[rdep01]

Hello,

Merci pour les liens ils sont très intéressants

Ce mystérieux CDbl est "Convert double", un peu comme CInt

[emilie laure]

salut,

Yessir.

Excel: CDbl Function (VBA only)

--------------------------------------------------------------------------------

In Excel, the CDbl function converts a value to a double.

The syntax for the CDbl function is:

CDbl( expression )



Applies To:

Excel 2007, Excel 2003, Excel XP, Excel 2000


VBA Code
The CDbl function can only be used in VBA code. For example:

Dim LDouble As Double

LDouble = CDbl(8.45 * 0.005 * 0.01)

The variable called LDouble would now contain the value of 0.0004225.

milie