Run Time Error '1004
M
Bonjour,
Ma macro VBA génere une erreur que je n'arrive pas à corriger :
Ceci surligne la ligne suivante du code :
Et voici le code
Sub MAJ_BoMCSV()
Dim k As Integer
Sheets("BoM_csv").Select
k = 5
For i = 1 To 2022
Cells(i, 1).Value = "=IF(Export!A" & k & "="""";"""";SUBSTITUTE(Export!A" & k & ";"","";"".""))"
Cells(i, 2).Value = "=IF(Export!C" & k & "="""";"""";Export!C" & k & ")"
Cells(i, 3).Value = "=IF(Export!D" & k & "="""";"""";Export!D" & k & ")"
Cells(i, 4).Value = "=IF(Export!B" & k & "="""";"""";IF(Export!B" & k & "=""KG"";""kg"";Export!B" & k & "))"
Cells(i, 5).Value = "=IF(B" & k & "="""";"""";""."")"
Cells(i, 6).Value = "=IF(Export!E" & k & "="""";"""";Export!E" & k & ")"
k = k + 1
Next i
End SubJ'espère que quelqu'un comprendra la raison de l'erreur.
Merci
Pouvez-vous nous mettre en clair une copie de la formule que vous voulez coller ? Une formule qui fonctionne bien sûr.
A
Bonjour MarcJanard, Optimix,
Si on veut utiliser les noms de fonctions anglais, il vaut mieux utiliser .Formula que .Value et utiliser la virgule à la place du point-virgule :
Cells(i, 1).Formula = "=IF(Export!A" & k & "="""","""",SUBSTITUTE(Export!A" & k & ","","","".""))"A+
M
Voici une formule que je souhaite :
=IF(Export!A5="";"";SUBSTITUTE(Export!A5;",";"."))A
Avez vous essayer ma proposition de modification?
l'autre solution est d'utiliser .FormulaLocal , de conserver les point-virgule(avec s ou pas ?) et d'utiliser les noms de fonction en français ( si excel français)