Discussion :

[Rainmaker666]

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.

[zandru]

Je l'écrirai plus simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for i = 8 to 100
    Sheets("VIS").cells(i,8)=Sheets("trivis").cells(i-7,3)
    Sheets("VIS").cells(i,21)=Sheets("trivis").cells(i-7,6)
next

[fring]

Bonjour,

Pour éviter de devoir relancer la procédure à chaque fois qu'une valeur change dans la feuille "trivis" (ce que propose zandru), tu peux essayer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim i As Integer
 
For i = 8 To 100 '<-- de la ligne 8 à la ligne 100 (à adapter)
    Sheets("VIS").Cells(i, 8).Formula = "=trivis!" & Sheets("trivis").Cells(i - 7, 3).Address
    Sheets("VIS").Cells(i, 16).Formula = "=trivis!" & Sheets("trivis").Cells(i - 7, 6).Address
Next
End Sub

[Rainmaker666]

Merci à vous d'avoir répondu si rapidement, j'ai réussi à régler mon problème, j'ai finalement opté pour la première solution car normalement je n'ai besoin d'éxécuter la macro qu'une seule fois.