Discussion :

[ayms75]

Bonjour à tous,

Je souhaiterais remplacer les points par des virgules des nombres qui sont en colonne G, cela marche pour ceux qui ont 2 chiffres après la virgule mais pas pour ceux qui ont trois chiffres après la virgule, pour ces derniers cela me met un espace

Mon code donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
Sub a()
 
Columns("g:g").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
 
 
End Sub

[Invité]

Bonjour,

Code :

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

1
2
3
 
Columns("g:g").numberformat="general"
Columns("g:g").value =Columns("g:g").value

[ayms75]

Merci pour ta réponse rdurupt, j'ai remplacé ton code par ma ligne 3 et j’ai une erreur d’exécution '438'

[Invité]

Non ne replace rien exécutés le code tel quel!

[ayms75]

Merci beaucoup rdurupt, c'est exactement ce que je voulais

[mariestp]

Bonjour

Voilà mon code :

'prise en compte des 3 chiffres après la virgule
Columns("q:q").NumberFormat = "general"
Columns("q:q").Value = Columns("q:q").Value

'Modification du . par la virgule pour les colonne P, Q, Z, AA
Range("P,Q:Q,Z:Z,AA:AA").Select
Range("AA1").Activate
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Et pourtant ça ne fonctionne pas pour moi !
tableau de base.xlsxtableau modifier.xlsx

Pouvez-vous m'aider?
Merci d'avance
Marie