Discussion :

[Runsh63]

Bonjour à toutes et tous,

Dans une macro, j'ai besoin de remplacer des points par des virgules.
En fouillant sur la toile, j'ai vu qu'il fallait remplacer les points par des points, sûrement à cause des options régionales des formats numériques. Ainsi, sur l'onglet souhaité, j'ai changé mon :

Code :

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

1
2
3
4
5
        With .Columns("H:K")
 
            .Replace What:=".", Replacement:=",", LookAt:=xlWhole
 
        End With

par :

Code :

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

1
2
3
4
5
        With .Columns("H:K")
 
            .Replace What:=".", Replacement:=".", LookAt:=xlWhole
 
        End With

Mais rien n'y fait, aucun changement ne s'opère...

Avez-vous une raison à celà ?

Comment faire pour que celà fonctionne ?

Merci d'avance pour votre aide, une très bonne journée à tous.

[Daniel.C]

Bonjour,

Si la virgule est ton signe décimal, il faut mettre :

Code :

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

.Replace ".", "."

C'est le paramètre "xlwhole" qui est erroné. Il faut mettre "xlpart" (paramètre par défaut).

[Runsh63]

Bonjour Daniel,

Merci beaucoup pour la qualité de votre réponse et votre rapidité à me la fournir, votre code fonctionne parfaitement et vous m'otez une belle épinse du pied.
Encore merci, une excellente journée à vous