Discussion :

[nawla]

bonjour. je veux savoir s'il vous plais comment parcourir un tableau excel a partir du vb en utilisant la boucle do while. (comment exprimer la fin du tableau pour la boucle while )

[illight]

c'est quoi que tu appelle un tableau Excel ? une feuille ?

Tu pourrait etre plus précise dans ta question ?

[Pierre Fauconnier]

Bonjour

Si ta feuille est remplie comme une base de données, sans solution de continuité entre la cellule A1 et la dernière cellule utilisée en A, avec par exemple une cellule titre en A1, je propose cette technique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim Cellule as range
for each cellule in range("a2:a" & range("a65536").end(xlup).row)
    ...
    ...
next cellule

Ok?

[Invité]

Bonjour

Va consulter ce tuto tu auras toutes les indications

ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf

Starec

[ludo02]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
do while A1 <>""
 ...
 ...
 
loop

je pense que cela peu etre adapté a ton probleme.

Tant qque A1 est ecrit on continue.

[ludo02]

vraiment desolé d'ecrit une telle anerie. Je merite des clac la.
Bon aller un peu de seruieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim i as integer
Dim ref as string
 
i = 1
ref = worksheets("ta feuille").cells(1,i)
 
do while ref <> ""
 
   i = i +1
   ref = worksheets("ta feuille").cells(1,i)
 
loop

voila qui devrait mieux fonctionner. Encore une fois désolé.