VB excel 2003

Résolu
leure007 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
0
leure007 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Un grand merci Polux. Ca marche super.
Que la force soit avec toi.
0
Réponse 2 / 2
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
De rien, ^^

Merci de mettre le topic en résolu.

Bonne continuation et bon courage.

;o)
0