Microsoft 365 remplacer . par virgule

[Lascaux]

Bonjour,

Je ne comprends pas (je n'arrive pas trouver la solution).

je dois remplacer les "." par une "," dans la colonne D.

le problème (exemple : ligne 6 - je supprime le "." au lieu de remplacer.

je me demande si cela vient pas du problème de format des données. mais là je vois pas comment résoudre.

merci

 

[Cousinhub]

Bonjour,
La première partie de ton code était sur la bonne voie.
Cependant, tu n'as pas utilisé la bonne option à l'étape 3 :

Refais la manip', enregistreur de macro en cours, et tu auras le bon code.
Bon courage

 

[cathodique]

Bonjour,

Je ne comprends pas (je n'arrive pas trouver la solution).

je dois remplacer les "." par une "," dans la colonne D.

le problème (exemple : ligne 6 - je supprime le "." au lieu de remplacer.

je me demande si cela vient pas du problème de format des données. mais là je vois pas comment résoudre.

merci

Bonjour,

un code à tester.

Sub RemplacerPointParVirgule()
   Dim ws As Worksheet
   Dim cell As Range

   Set ws = ThisWorkbook.ActiveSheet

   For Each cell In ws.Range("D3:D" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
      If Not IsEmpty(cell.Value) Then
         cell.Value = Replace(cell.Value, ",", ".")
         On Error Resume Next   '
         cell.Value = CDec(cell.Value)
         On Error GoTo 0   ' Réactiver la gestion des erreurs
      End If
   Next cell
End Sub

bonne journée

 

[vgendron]

bonjour

et comment fais tu pour "remplacer" ??

 

[vgendron]

sinon, pour transformer ta colonne D en numérique
en I4: =CNUM(D4)

 

[Phil69970]

Bonjour à tous

Je te propose ce fichier

Merci de ton retour

 

[Lascaux]

Super merci. en effet c'est mieux.

 

[vgendron]

bonjour

et comment fais tu pour "remplacer" ??

Hahaha.. je n'avais meme pas vu la macro..