Créer une boucle (for) ds une macro excel

[super rattata]

Bonjour,

Je cherche a automatisé certaines taches sous excel et pour cela je réalise des macros.
Cependant g un léger souci, je souhaite réaliser une boucle for...

mon script de départ est le suivant :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 03/07/2003 par NEC Computers International
'

'
Range("B22").Select
Range("D2").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Range("B33").Select
Range("D3").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Range("B44").Select
Range("D4").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"

End Sub

Je souhaite ajouter une boucle au départ pour automatiser l'opération sur toutes les cellules...

je souhaite obtenir quelque chose comme ca....

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 03/07/2003 par NEC Computers International
'

'
For i=3 to 39
Range("Bii").Select
Range("Di").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Next

End Sub

Pour éviter d'avoir a écrire toutes les lignes de comandes.
mais le débuggeur m'indique une erreur a ces 2 lignes :

Range("Bii").Select
Range("Di").Activate

Je pense qu'il y a une erreur de syntaxe au niveau du i...
Pouvez vous m'aider ?
Pour information, je dois répeter cette opération sur 800 cellules!!!

Et je ne me sens pas lecourage de faire 800 fois l'opération a la main...

Merci pour toutes réponses

Vincent

 

[Robert]

Salut Vincent, Salut le forum,

Voici ce que je te propose

For i = 3 To 39
Cells(i, 4).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Next

en espérant que cela répond à ta question.

À plus

Robert