Afficher la formule de calcul dans les cellules
Bonsoir,
Je suis confronté à un problème dans l'une de mes macros, j'essaye de faire apparaître la formule de calcul dans mon tableau afin que ce soit dynamique si on apporte une modification sans avoir à relancer la macro.
Voici ce que j'ai tenté mais si vous avez des propositions, je suis très intéressé
For i = 1 To 100
Sheets("xxx").Cells(i, 3).FormulaLocal = WorksheetFunction.Sum(Sheets("xxx").Cells(i, 1), Sheets("xxx").Cells(i, 2))
Next i
Merci pour votre aide
Bonne soirée
Bonjour
For i = 1 To 100
Cells(i, 3).FormulaR1C1 = "=RC[-2]+RC[-1]"
Next iMerci beaucoup Steelson, ça fonctionne !
Par contre, il se peut que les colonnes ne soient pas placées au même endroit en fonction de ce que je saisi dans la macro, j'ai donc nommé les colonnes, par exemple colonne_stockinitial, colonne_approvisionnement, colonne_stockfinal, ce qui donne :
for i=1 to 100
cells(i, colonne_stockfinal) = cells(i, colonne_stockinitial) + cells(i, colonne_approvisionnement)
next i
Est-ce qu'il y a la possibilité de ne pas fixer les colonnes avec un chiffres mais de les appeler directement par leurs noms tout en laissant apparaître la formule ?
Je vous remercie pour votre aide,
A ce stade là, un bout de fichier aurait été utile pour te répondre.
A condition d'avoir défini les colonnes en numérique dans la macro, essaie quelque chose comme ceci mais pas testé :
For i = 1 To 100
Cells(i, colonne_stockfinal).FormulaR1C1 = "=RC[" & colonne_stockinitial - colonne_stockfinal & "]+RC[" & colonne_approvisionnement - colonne_stockfinal & "]"
Next iDonc supprime les noms donnés dans la feuille et définis les colonnes dans la macro, ce sera plus simple, exemple :
colonne_stockfinal = 3
colonne_stockinitial = 1
colonne_approvisionnement = 2Encore une fois, merci Steelson, ça fonctionne parfaitement vu que les colonnes sont déjà définies numériquement dans ma macro, ce n'est donc pas la peine que je supprime les noms donnés !
Je mets ce sujet en résolu, merci beaucoup !
Bonne soirée