VB excel 2003 Résolu

Question

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

Polux31 · Answer

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)

Polux31 · Answer

De rien, ^^

Merci de mettre le topic en résolu.

Bonne continuation et bon courage.

;o)

VB excel 2003

2 réponses

Votre réponse