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à.
'------
If PrixArticle > 0 Then
If InStr(CStr(PrixArticle), ",") > 0 Then
PrixArticle = Replace(CStr(PrixArticle), ",", ".")
End If
.Cells(L, 16).Formula = "=" & PrixArticle
par :
Code:
'------
If PrixArticle > 0 Then
.Cells(L, 16).Formula = "=" & Replace(PrixArticle, ",", ".")
j'en déduis que le code n'est pas de vous puisque vous n'êtes pas capable de vous y retrouver.
Code:
'------
If PrixArticle > 0 Then
If C > 4 Then
Formule = Formule & "+(" & NbArticle & "*" & Replace(PrixArticle, ",", ".") & ")"
Else
Formule = "=" & Replace(PrixArticle, ",", ".")
End If