Sujet Précédent Sujet Suivant

VB excel 2003

Résolu/Fermé
leure007 Messages postés 19 Date d'inscription lundi 24 août 2009 Statut Membre Dernière intervention 25 janvier 2010 - 24 août 2009 à 10:42
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 24 août 2009 à 12:13
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
24 août 2009 à 11:27
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 lundi 24 août 2009 Statut Membre Dernière intervention 25 janvier 2010
24 août 2009 à 12:01
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
24 août 2009 à 12:13
De rien, ^^

Merci de mettre le topic en résolu.

Bonne continuation et bon courage.

;o)
0