Discussion :

[rico63]

Bonjour à tous,
Je vais essayer de vous expliquer mon problème !

J’ai un fichier Excel générer lors j'exporte des données depuis un autre logiciel et dans l'une des colonnes, j'ai des nombres sous la forme suivante :

1.230,78 ou 1.500 ou 26,80 ...

et pour transformer ces données en nombre, au départ j'utilisais la fonction remplacer le . par du "". Tout fonctionne bien.

Maintenant j'ai voulu automatiser à l'aide d'une macro :

Code :

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

1
2
3
4
Columns("N:N").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Malheureusement quand je fais fonctionner cette macro, elle remplace les . et les virgules par "". Voici le résultat obtenu :
123078 ou 1500 ou 2680 au lieu de 1230,78 et 26,80.

Je ne comprends vraiment pas d'ou vient le problème ! Il doit y avoir une histoire de format ...
Merci pour votre aide.
Cordialement.

[NEC14]

Bonjour,

Il me semble, sauf erreur de ma part, que dans VBA les "." et les "," sont considérés comme des signes décimaux. Donc il ne fait pas la différence.
Mais cela reste à confirmer.
Je sais que cette question a déjà était posée sur ce site. Il faudrait faire une recherche sur les questions posées.
Si je trouve je te fais signe.
Cordialement

[NEC14]

J'ai trouvé ce code posté par Ormonth il y a quelques temps. Vois si cela peux t'aider.

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

[rico63]

Bonjour NEC14,

Merci pour ton aide.
Je viens d'essayer le code proposé, le résultat est cohérant.
Simplement il faut que je réalise une boucle pour traiter toutes les données et il faut utiliser 4 colonnes pour obtenir le bon résultat.
Si il y a moyen de faire plus simple je suis preneur …

@+ et encore merci.

[Didier Gonard]

Bonjour,

utiliser 4 colonnes pour obtenir le bon résultat.

c'est à dire ? (dans faitout, tu peux traiter la cellule sur elle-même).

S'il y a moyen de faire plus simple je suis preneur

ainsi ?

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
Option Explicit
Option Base 1
 
Sub traitecol()
Dim objMaplage As Range
Dim tbopass As Variant
Dim I As Long
 
'*** Suppose qu'il y a un entête de colonne.
Set objMaplage = Range(Range("C" & Rows.Count).End(xlUp), Cells(2, 3))
tbopass = objMaplage
For I = 1 To UBound(tbopass, 1)
   tbopass(I, 1) = CDbl(Replace(Trim(tbopass(I, 1)), ".", " "))
Next I
objMaplage.NumberFormat = "# ##0.00" 'ou "0.00"
objMaplage = tbopass
Set objMaplage = Nothing
End Sub

cordialement,

Didier

[rico63]

Bonsoir et merci Ormonth,
J'ai utilisé la première proposition que j'ai adapté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
21
22
23
24
25
Sheets("CA des MP").Select
    Set Feuille = ThisWorkbook.Sheets("CA des MP")
    Set Rng = Feuille.Cells(65536, 2)
    Do While IsEmpty(Rng) And Rng.Row > 1
    Set Rng = Rng.Offset(-1)
    Loop
    If IsEmpty(Rng) Then
    LastLine = 0
    Else
    LastLine = Rng.Row
    End If
 
 
 
    compteurbis = 2
    Do While compteurbis < LastLine + 1
 
    With Cells(compteurbis, 14)
    .NumberFormat = "0.00" '"0.00"
    .Value = CDbl(Replace(Trim(Cells(compteurbis, 14)), ".", " "))
    End With
 
    compteurbis = compteurbis + 1
 
    Loop

j'ai tout de même une question à propos de la seconde proposition car lors de l'exécution, j'ai une erreur sur la ligne

Code :

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

For I = 1 To UBound(tbopass, 1)

[Didier Gonard]

re,

surement un message de pb d'index.

il faut que tu ais bien déclaré Option base 1

d'autre part la méthode employés pour sélectionner la plage fera qu'il y a plantage si tu n'as pas au moins 2 données sous ton en-tête.
tu peux avoir aussi une incompatibilité de type si tes données ne sont pas numériques si cellule vide etc..

les codes fournis sont pour adaptation au contexte

cordialement,

Didier

[rico63]

Bonsoir,

L'erreur est générée par le fait que je n'avais pas plus de 2 données dans mon test.

Merci beaucoup pour votre aide.
Le problème est résolu.

@+.

[mapeh]

Bonjour,

Même si je suis trop tard.....

Essaie avec ce code :

Code :

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

1
2
3
4
5
6
Sub Convertir()
With Columns(14)
    .TextToColumns Destination:=Range("N1"), ThousandsSeparator:="."
    .Replace ".", "."
End With
End Sub

Bonne journée