Microsoft 365 Bouton remplacer caractère dans une feuille

azerty64

XLDnaute Nouveau
Bonjour à tous,

J'ai besoin de vous pour créer un bouton permettant de changer les points "." en virgule "," dans une feuille entière.
Pouvez vous m'aider ?
Merci d'avance

Cordialement,
azerty64
 
Solution
Bonjour Azerty,
En utilisant l'enregistreur de macro et en bidouillant :
VB:
Sub RemplacePointParVirgule()
    Cells.Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    [A1].Select
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Azerty,
En utilisant l'enregistreur de macro et en bidouillant :
VB:
Sub RemplacePointParVirgule()
    Cells.Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    [A1].Select
End Sub
 

Discussions similaires

Réponses
3
Affichages
150
Haut Bas