VBA - Insérer une formule
M
Bonjour à tous,
J'ai le code suivant, qui me permet de transferer les données du tableau, onglet : Livraison, sur l'onglet récapitulation. Afin de garder une base de donnée des livraisons effectuées.
Sub Transfert()
Dim dl&, p As Range
dl = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
Set p = Feuil1.Range(Cells(5, 1), Cells(dl, 11))
p.Copy Feuil3.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
p.ClearContents
Set p = Nothing
End SubCependant, il ne laisse pas les formules en place dans mes cellules.
Par exemple, dans la colonne "K" dès la cellule "K5" j'ai besoin de la formule suivante : =SI(E5+F5+G5>0;Somme(E5+F5+G5);"")
Mais j'ai une erreur 400 qui apparait toujours..
Saurez vous me donner une réponse ?
Au plaisir de relire vos réponses.
Cordialement,
Mugiwaraa
Salut,
Avec un fichier à disposition, ce serait quand même plus simple de te répondre
Cordialement.