High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Boucle en vba Excel

Dernière réponse le 22 jun 2009 à 16:33:06 wida, le 22 jun 2009 à 12:05:14 
 Signaler ce message aux modérateurs

Bonjour,


est ce qu'il possible, avec vba excel, de faire une boucle du genre

Dim i as integer
for(i=1; i<10; i+1)
{

range(Ai) :=range(Ai-1)+range(Bi)

}

je sais que syntaxiquement c faux!! pour la boucle je pourai utiliser "do until" s'il n'ya pas le for mais parcontre pour gerer les cellule ainsi j'ai pas d'idée comment faire!!

j'ai besoin de votre aide!
Merci. Le rêve n'aboutit à rien, l'action à tout.
(J. FIAUX).

Configuration: Windows XP Internet Explorer 7.0

Posez votre question Répondre

1

Polux31, le 22 jun 2009 à 12:37:25
  • +1

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) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

3

garion28, le 22 jun 2009 à 12:43:28

Pas sur d'avoir vraiment compris ce que polux31 a dit ^^
mais si ton i commence a 1 et non pas a 0 alors il n'y a pas de problème (premier passage dans la boucle: i=1) Vous avez des problème avec IE8 ? moi je vous donne LA solut­ion, installez firefox (cherchez sur google)

   
Répondre à garion28

5

Polux31, le 22 jun 2009 à 14:21:36

Fais un test en commençant à i = 1, tu vas vite voir où se situe le problème... ^^ «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

2

michel_m, le 22 jun 2009 à 12:42:36
  • +1

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 Cordialement, Michel

   
Répondre à michel_m

4

wida, le 22 jun 2009 à 13:03:36

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. Le rêve n'aboutit à rien, l'action à tout.
(J. FIAUX).

   
Répondre à wida

6

michel_m, le 22 jun 2009 à 14:29:19

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

   
Répondre à michel_m

7

michel_m, le 22 jun 2009 à 14:34:56

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

   
Répondre à michel_m

8

Polux31, le 22 jun 2009 à 15:41:11

Pas de problème ... deux avis valent mieux qu'un. Mon post 5 s'adresse à Garion ... ^^

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

9

 garion28, le 22 jun 2009 à 16:33:06

^^ 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à) Vous avez des problème avec IE8 ? moi je vous donne LA solut­ion, installez firefox (cherchez sur google)

   
Répondre à garion28
Posez votre question Répondre
Ils ont besoin de votre aide