Re : Utilisation de constantes prédefinies dans une formule
Bonsoir à tous
Trois façons d'écrire cette multiplication "inter-classeurs)
Pour tester Ouvrir Excel et cliquer 3 fois sur nouveaux classeurs
Dans le classeur 1, copies la macro ci-dessous
En A1, du classeur 2, saisir un nombre
En A2 du classeur 3, saisir un nombre
Revenir dans le classeur 1 et lancer les macros
On a bien des formules fonctionnelles qui renvoient le bon résultat
PS: J'ai testé avec 2 en A1 (Classeur2) et 3 en A1 (Classeur2), et j'obtiens bien 6 dans le classeur 1.
Code VBA:
Sub Sommons()
Dim a As Workbook, b As Workbook, sh1 As Worksheet, sh2 As Worksheet
Set a = Workbooks("Classeur2"): Set sh1 = a.Sheets(1)
Set b = Workbooks("Classeur3"): Set sh2 = b.Sheets(1)
With ThisWorkbook.Sheets(1)
.[A1].FormulaR1C1 = "=" & sh1.Parent.Name & "!R1C1*" & sh2.Parent.Name & "!R1C1"
.[B1].FormulaLocal = "=" & sh1.Parent.Name & "!A1*" & sh2.Parent.Name & "!A1"
.[C1].FormulaR1C1 = "=" & "PRODUCT(" & sh1.Parent.Name & "!R1C1," & sh2.Parent.Name & "!R1C1)"
End With
End Sub