[Déplacé VB6 -- VBA] VB excel 2003

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  = "=[b]R200C4"
/b
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

cs_Jack · Answer

Salut
"I4" n'est pas un Range, mais une Cellule.
Range est un ensemble de cellules.
Utilise ce format :
Dim maCellule As Object
Dim maLigne As Long
For Each maCellule In Range("I4:I200")
  maCellule.Select
  maLigne = maCellule.Row
  ActiveCell.FormulaR1C1 = "=R" & CStr(maLigne) & "C4"
Next
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

userrrqi115 · Answer

Hello,
Ce qui suit doit également fonctionner:

Range("I1").FormulaR1C1="=RC[-5]"
Selection.AutoFill Destination:=Range("I1:I200"), Type:=xlFillDefault
Range("I1").select

BR

USERRRQI115
Simple user
Great brain

cs_Jack · Answer

Ah, pas mal, ça, fallait y penser !
Cool

CTAC · Answer

Salut,

> "I4" n'est pas un Range, mais une Cellule. 
> Range est un ensemble de cellules. 

"I4" est un Range, un ensemble de cellules, qui ne comporte qu'une seule cellule.

ctac

leure007 · Answer

Résolu.
Merci à tous

[Déplacé VB6 --> VBA] VB excel 2003

5 réponses

Votre réponse

Discussions similaires