Bonjour,

Je désire créer une boucle avec la macro suivante car je dois traiter une centaines de lignes sur plusieurs pages et je me vois mal taper une centaine de bloc pour chaque pages à modifier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
' Page 1
' Ligne 1
Sheets("VIS").Range("H8").Formula = Sheets("trivis").Range("C1").Value
Sheets("VIS").Range("P8").Formula = Sheets("trivis").Range("F1").Value
 
' Ligne 2
Sheets("VIS").Range("H9").Formula = Sheets("trivis").Range("C2").Value
Sheets("VIS").Range("P9").Formula = Sheets("trivis").Range("F2").Value
Le but est d'incrémenter les coordonnées des cellules à chaque boucle, jusqu'à avoir 100 lignes.



Pour information, le code de départ était du type :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Range("H10:I10").Select
ActiveCell.FormulaR1C1 = "=trivis!R[-7]C[-5]"
Range("P10:R10").Select
ActiveCell.FormulaR1C1 = "=trivis!R[-7]C[-10]"
Code généré en automatique, que j'ai simplifié comme écrit plus haut.

Merci de votre aide.