Bouton Convertir et Remplacer

Bonjour

j'aimerai associer une macro à un bouton permettant à la fois de:

• Convertir les textes sélectionnés de la colonne A en tableau en fractionnant le texte en différentes colonnes au niveau de chaque virgule
• Remplacer dans toutes les colonnes le caractère "." par le caractère ",".

Je fais déjà ce travail en deux étapes mais j'aurai aimé créer un bouton/macro qui les regroupe.

Ci-joint un fichier à 3 onglet :

Onglet 1 = Bilan ( là ou se trouve le bouton)

Onglet 2 = Brute (fichier à traiter)

Onglet 3 = Modèle obtenu après traitement en 2 étapes.

Auriez vous une idée ?

Merci Beaucoup pour votre aide

Cordialement

Bonjour

Utilisez l'enregistreur de macro

C'est super comme outil ça

Je connaissais pas du tout

Merci ^^

Bonjour

Ma contribution

Option Explicit

Sub Convertir()
  Application.ScreenUpdating = False
  With Sheets("Brute")
    .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:=True
    .Cells.Replace what:=".", replacement:=".", lookat:=xlPart
  End With

Le fichier avec la conversion des nombres stockés en format lettre en numérique.