Boucle for next

[gerard55]

Bojour à tous et toutes
j'essaie en vain de réaliser cette boucle. Je ne parviens pas à la faire avancer.
Je veux qu'il me réalise K6-F5 puis K7-f6 etc et ce sur 25 lignes

Dim i As Integer
i = i + 1
For i = i To 5
Range("k6").Select
ActiveCell = [k6].Offset(i) - [f5]
next i
Merci pour votre aide
a+

 

[wilfried_42]

Re : Boucle for next

bonjour

je ne comprend pas ta ligne mais je verrai ca comme ca

lignefin = 12
lignedeb = 2

for i = lignedeb + 1 to lignefin
Range("K" & i) = range("K" & i-1) - Range("F" & i-1)
next i

 

[gerard55]

Re : Boucle for next

merci Wilfried42
quelques adapations et ça marche.
Merci encore
a+