Canger les points en virgulesRésolu

Question

Je voudrai, dans une macro, faire le changement du point en virgule sur une s&#233;rie de nombre sur un classeur excel.
Lorsque je fais un enregistrement de macro sous excel et que je fais manuellement Edition->remplacer->remplacer tout, ca marche nickel. Par contre, quand je relance la macro, ca ne fonctionne plus.
Lorsque j'execute la macro, le point est bien chang&#233; en virgule, seulement, tous les nombres sont multipli&#233;s par 1000.

La commande enregistr&#233;e automatiquement par excel est :
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Je penses qu'il y a un probl&#232;me de format de nombre, mais en changeant TOUS les param&#232;tre possibles sous excel, rien n'y fait.
Je ne consid&#232;re pas comme une solution de changer les param&#232;tre r&#233;gionaux de windows!

J'ai m&#234;me essay&#233; la fonction Selection.Replace avec juste les param&#232;tres "What" et "replacement", mais le m&#234;me probl&#232;me se pose. m&#234;me quand je converti le format de la selection en texte, toujours le m&#234;me probl&#232;me. Comment pourais-je faire?!?
Merci de votre aide!
--==IvanTil==--

lhurgoyf_37 · Accepted Answer

Salut

voici une petite macro qui devrais r&#233;gler ton probl&#232;me.

'---------------------------------------------------------------------------------------
' Procedure : Remp_Pts_Par_Virgule
' DateTime  : 03/03/2006
' Author    : Florent
' Purpose   : Remplacement d'un point par une virgule
'---------------------------------------------------------------------------------------
Sub Remp_Pts_Par_Virgule()
    Dim ZoneSelectionne
    Dim TabTexte()            As String
    Dim Resultat              As String
    Dim NbElement             As Integer
    Dim Inc                   As Integer

    ' Exploration de toute la zone s&#233;lectionn&#233;e
    For Each ZoneSelectionne In Selection.Cells
        ' Suppression du cas o&#249; la cellule ne contiens rien
        If ZoneSelectionne.Value <> "" Then
            ' D&#233;composition du contenu de la case en sous-&#233;l&#233;ments
            TabTexte = Split(ZoneSelectionne.Value, ".")
            ' Intialisation de varable pour la suite du programme
            Inc = 0
            NbElement = UBound(TabTexte)
            ' D&#233;termination de l'&#233;l&#233;ment de base &#224; ins&#233;rer
            Resultat = TabTexte(Inc)
            ' Test si le tableau contiens plus d'un &#233;l&#233;ment
            If NbElement > 0 Then
            ' Exploration du tableau pour faire le remplacement
                For Inc = 1 To NbElement
                    ' Concat&#233;nation des &#233;l&#233;ments suppl&#233;mentaire
                    Resultat = Resultat & "," & TabTexte(Inc)
                Next
            End If
            ' Ecriture du r&#233;sultat dans la feuille excel
            ZoneSelectionne.Value = Resultat
        End If
    Next
End Sub

La limite de cette macro viendra du faites que si une des cases contiens un &#233;l&#233;ment du type "12.12.12.12", elle remplecera tous les points par une virgule. Mais bon c'est une base de travail. Tu n'as plus qu'a l'adapter pour ton cas de figure.

Le grand FLO

cs_eldim · Answer

Bonjour,

A priori c'est normal car lorsque tu le fait manuellement tu pr&#233;cise remplacer tout
hors ta macro ne v&#233;rifie que la cellule actuellement s&#233;lectionn&#233;e...

-- Pourquoi faire simple quand on peut faire compliquer  --

ivantil · Answer

Ma macro me selectionne toute une zone avant de faire le remplacement.

En plus, si tu avais bien lu, je signale que tous les points sont bien
transform&#233;s en virgule, seulement, il y a une multiplication par 1000
pour les valeurs sup&#233;rieures &#224; 1.

j'esp&#232;re que la prochaine r&#233;ponse sera un peu plus constructive.

Merci quand meme pour ta r&#233;ponse.

--==IvanTil==--

cs_eldim · Answer

A l&#224; c normal ta multiplication &#231;a vient du symbol r&#233;gional :
en vb on travail en anglais et sous excel en fran&#231;ais
or en anglais la virgule est un s&#233;parateur de milliers

(et comme j'aime pas qu'on me cherche le vendredi matin c'est la derni&#232;re fois que je te parle sur ce sujet)

-- Pourquoi faire simple quand on peut faire compliquer  --

ivantil · Answer

Merci pour ton aide constructive lhurgoyf_37. Seulement, m&#234;me avec ta macro, le m&#234;me probl&#232;me se pr&#233;sente &#224; moi. tous les nombres sup&#233;rieurs &#224; 1 se trouvent multipli&#233;s par 1000... Je penses qu'il doit y avoir un petit truc pour r&#233;soudre ce probl&#232;me, seulement, c'est la premi&#232;re foi que je touche au visual basic.... enfin. si vous connaissez d'autres solutions pour ce genre de probl&#232;mes, je suis preneur.

P.S: eldim, tu peux faire comme tu dis et ne plus me parler sur ce sujet. parcequ'a part medire des choses que j'avais d&#233;j&#224; expliqu&#233; dans mon premier post, je ne voi pas ce que tu es venu faire ici..... ah et pis dans ta signature, c'est "compliqu&#233;" pas "compliquer".

merci &#224;tous les autres qui deigneront r&#233;pondre &#224; mon probl&#232;me. ;)

--==IvanTil==--

cs_eldim · Answer

la r&#233;ponse est pourtant &#233;vidente pour r&#233;soudre ton probl&#232;me mais comme tu joues au gamin t'auras rien

c'est pourtant hyper simple...

-- Pourquoi faire simple quand on peut faire compliquer  --

ivantil · Answer

ihurgoyf, En fait ta macro marche nickel, il fallait juste que je mettes les cases au format texte avant de lancer ton prog. je les remet en nombre apr&#232;s et pouf ca marche. MERCI!!!!!!!!!!! 


Bon pis eldim, toujours &#233;gal a toi m&#234;me. si on a besoin de rien, on t'enverra des messages persos, t'en fais pas, en attendant, arretes de surcharger les sujets de choses inutiles. Merci.

--==IvanTil==--

Canger les points en virgules

7 réponses

Discussions similaires