Boucle en vba Excel [Résolu]

Bonjour,

Tu peux utiliser le For ... Next ou le While ... Wend ou le Do ... Loop.

Dim i As Integer
   For  i = 1 To 10
      Sheets(1).Range("A" & i).Value = Sheets(1).Range("A" & i - 1) + Sheets(1).Range("B" & i)
   Next i

Ou

Dim i As Integer
i = 1
   While i < 10
      Sheets(1).Range("A" & i).Value = Sheets(1).Range("A" & i - 1) + Sheets(1).Range("B" & i)
      i = i + 1
   Wend

Le problème c'est que tu vas lever une exception dès ta première boucle, dans les 2 cas.

i étant le numéro de ligne, si tu commences à 1, quand tu fais : Sheets(1).Range("A" & i - 1), i sera égal à 0. Hors la ligne 0 n'existe pas dans Excel. La numérotation des lignes, comme des colonnes, commence à 1.

;o)

bonjour

a quoi correspond range(Ai-1)?
cellule au dessus: si oui, pb si i=1
ou cellule
range(Ai)-1

1° cas:
dim i as integer 'en VBA les variables doivent de préférence être déclarées

for i=2 to 10
cells(i,1)=cells(i-1,1)+cells(i,2)
next

2° cas:
for i=1 to 10
cells(i,1)=cells(i,1)+cells(i,2)-1
next

Merci beaucoup pour vos reponses claires et bien détaillées.
au fait le range Ai-1 correspond a la cellule au dessus, j'ai mis i=1 dans cet exemple juste pour simplifier.
Merci à tous, les deux methodes celle de Polux31 et de michel_m marchent bien.

Excuses-moi, Polux, je n'avais pas rafraichi...

Excuses-moi, Polux, je n'avais pas rafraichi...

^^ oui je vien de voir qu'il fesai -1 a un moment, donc logique que ca bug (en vba je code un peu comme je réfléchi donc ya pas (ou très peu) d'erreur de ce genre là)