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.
Code:
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
Code:
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.
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:
Code:
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