Une macro "convertisseur" ?

Bonjour,

En copiant des chiffres sur un tableur, ceux-ci se trouvent dans un format "texte".

J'arrive bien à les convertir en format "nombre" mais il faut à chaque fois que je modifie le "paramètre séparateur" qui revient par défaut à un . alors qu'il me faut une ,

La technique par "copier/multiplier par 1" = je n'arrive pas à l'enregistrer sous forme de macro pour pouvoir l'appliquer à n.colonnes.

Tout le reste est dit dans le tableur joint.

Cordialement

15convertir.xlsx (89.29 Ko)

Bonjour,

essaye peut etre ce code, à adapter, s'applique à la colonne A

Option Explicit
Sub test()
Columns(1).TextToColumns Destination:=Range("A1"), DecimalSeparator:="."
End Sub

bonne journée

@+

Bonjour,

Je "sens" que l'idée est bonne...mais je ne sais pas l'appliquer pour dire les choses simplement.

J'ai insérer le code...mais comment le lancer pour le tester ?

L'idéal serait d'avoir un code permettant de "traiter n.colonnes" selon l'indication cellule en jaune en une seule fois

mais si cela devient trop compliqué, une solution applicable par colonne me dépannerait !

Bonjour,

Pour les codes ALT F11 pour ouvrir VBE et accéder aux 2 macros

Private Sub cmdConvertir_Click()
    Convertir
End Sub
Public Sub Convertir()
Dim ws As Worksheet, _
    derColonne As Integer, _
    Col As Integer

    Application.ScreenUpdating = False
    Set ws = Worksheets("Feuil1")

    With ws
        derColonne = .Cells(1, Columns.Count).End(xlToLeft).Column
        For Col = 3 To derColonne
            Columns(Col).TextToColumns Destination:=.Cells(1, Col), DecimalSeparator:="."
        Next
    End With

    Set ws = Nothing

End Sub

Bonjour,

A l'évidence, la réponse que j'avais envoyée n'est pas passée !

Je disais que j'avais installé les 2 codes mais le lancement par un clic sur Convertir....ne faisait rien !

Sans doute, j'ai du rater quelque chose ou ne procède pas de la bonne façon ?

Je joins le tableur évoqué

Cordialement

7convertir-1.xlsm (16.84 Ko)

tiens

7convertir.xlsm (16.58 Ko)

Bonjour,

Mise à jour de ton fichier avec macro initiale et ajout bouton (cmdConvertir).

13convertir-jep.xlsm (22.33 Ko)

Bonsoir,

Je me disais bien qu'il me manquait quelque chose !

Tout est ok, je vais pouvoir "m'amuser" à convertir !

Merci à vous deux et excellent we (pont)

Tonthon

Rechercher des sujets similaires à "macro convertisseur"