addition particulière

[Jean7234]

Bonjour,

Hier "Modeste" m'a donné un sacré coup de main en me permettant avec ce code d'obtenir ce que je voulais reporter d'un classeur fermé dans le classeur où je gère mes photos.

Sub test()
For lig = 0 To 19
    Cells(lig + 1, 1).FormulaLocal = "='X:\DIM24\Suivi\2016\03*MARS*2016\Nature\[Lieux.xls]HD'!D" & 3 + lig * 35
Next lig
End Sub

Je souhaite réaliser un calcul pour avoir le nombre de points des photos et j'ai pour ça 2 valeurs à multiplier

J'ai essayé comme ça mais ça ne marche pas

Sub test()
For lig = 0 To 19
    Cells(lig + 1, 1).FormulaLocal = "='X:\DIM24\Suivi\2016\03*MARS*2016\Nature\[Lieux.xls]HD'!F" & 3 + lig * 35 * X:\DIM24\Suivi\2016\03*MARS*2016\Nature\[Lieux.xls]HD'!G" & 3 + lig * 35
Next lig
End Sub

Mais ça bloque, et comme je suis "nul" en macro je ne sais pas corriger.

Vous pouvez m'aider ?

Merci

 

[Modeste]

Bonjour Jean7234 (j'ai oublié de te souhaiter la bienvenue hier!)

Tu aurais pu rester dans le même fil: la question est vraiment très proche de la précédente, si j'ai bien compris!?
Puisque les cellules à multiplier sont contigües, il me semble que tu peux essayer:

Sub test()
For lig = 0 To 19
    Cells(lig + 1, 1).FormulaLocal = "=produit('X:\DIM24\Suivi\2016\03*MARS*2016\Nature\[Lieux.xls]HD'!F" & 3 + lig * 35 & ":H" & 3 + lig * 35 & ")"
Next lig
End Sub