VB excel 2003
Résolu
Bonjour,
Je désire répéter l'opération suivante (loop?) jusqu'à ce que le Range ("I4") atteigne ("I200") et l'ActiveCell.FormulaR1C1 = "=R4C4" atteigne ActiveCell.FormulaR1C1 = "=R200C4"
Range("I4").Select
ActiveCell.FormulaR1C1 = "=R4C4"
Range("I5").Select
ActiveCell.FormulaR1C1 = "=R5C4"
Range("I6").Select
ActiveCell.FormulaR1C1 = "=R6C4"
Range("I7").Select
ActiveCell.FormulaR1C1 = "=R7C4"
Si quelqu'un pouvait m'aider...
Un grand merci d'avance.
Have a nice day
Je désire répéter l'opération suivante (loop?) jusqu'à ce que le Range ("I4") atteigne ("I200") et l'ActiveCell.FormulaR1C1 = "=R4C4" atteigne ActiveCell.FormulaR1C1 = "=R200C4"
Range("I4").Select
ActiveCell.FormulaR1C1 = "=R4C4"
Range("I5").Select
ActiveCell.FormulaR1C1 = "=R5C4"
Range("I6").Select
ActiveCell.FormulaR1C1 = "=R6C4"
Range("I7").Select
ActiveCell.FormulaR1C1 = "=R7C4"
Si quelqu'un pouvait m'aider...
Un grand merci d'avance.
Have a nice day
Configuration: Windows XP Firefox 3.0.13
2 réponses
-
De rien, ^^
Merci de mettre le topic en résolu.
Bonne continuation et bon courage.
;o) -
Bonjour,
Peut être comme ça :
Dim i As Integer For i = 4 to 200 Range("I" & i).Select ActiveCell.FormulaR1C1 = "=R" & i & "C4" Next i
Ou bien :Dim i As Integer i = 4 While i < 200 Range("I" & i).Select ActiveCell.FormulaR1C1 = "=R" & i & "C4" i = i + 1 Wend
;o)
