Importer des chiffres avec des virgules

[lostheroe]

Bonjour,

J'ai la macro sur le fichier liste qui me permet d'importer les prix depuis une feuille nommée base prix.
La macro marche bien ci les prix dans le fichier base prix sont des prix sans rien derrièere la virgule.
Dès que je mets des prix avec des chiffres derrière la virgule. La macro ne fonctionne plus à ce moment là.

Cordialement

 

[job75]

Re : Importer des chiffres avec des virgules

Bonjour losteheroe,

Dans la macro Prix_type remplacer :

'------
                If PrixArticle > 0 Then
                    If InStr(CStr(PrixArticle), ",") > 0 Then
                        PrixArticle = Replace(CStr(PrixArticle), ",", ".")
                    End If
                  .Cells(L, 16).Formula = "=" & PrixArticle

par :

'------
                If PrixArticle > 0 Then
                   .Cells(L, 16).Formula = "=" & Replace(PrixArticle, ",", ".")

A+

 

[lostheroe]

Re : Importer des chiffres avec des virgules

Merci Job75.
ça marche quand il n'y a qu'un prix à importer.
Mais dès qu'il y a plusieurs prix par exemple en ligne 31 la macro bug.

 

[job75]

Re : Importer des chiffres avec des virgules

Re,

Vous êtes un grand garçon non ?

Ce que je vous ai indiqué pour Case 1 vous devez être capable de l'adapter pour Case Is > 1.

A+

 

[lostheroe]

Re : Importer des chiffres avec des virgules

Je suis bien d'accord avec toi.
J'ai bien essayé mais j'arrive pas à trouver pour l'appliquer a Case Is >1

 

[job75]

Re : Importer des chiffres avec des virgules

Re,

j'en déduis que le code n'est pas de vous puisque vous n'êtes pas capable de vous y retrouver.

'------
                        If PrixArticle > 0 Then
                            If C > 4 Then
                            Formule = Formule & "+(" & NbArticle & "*" & Replace(PrixArticle, ",", ".") & ")"
                            Else
                            Formule = "=" & Replace(PrixArticle, ",", ".")
                            End If

A+

 

[lostheroe]

Re : Importer des chiffres avec des virgules

En effet il est pas de moi.
En tout cas merci, les modifs marche parfaitement