Boucle sur une liste dans Excel

**totoen** · 02/02/2010, 10h46

Bonjour,

Désolé mais après plusieurs recherches infructueuse et lu quelque tuto je me permet de poser cette question simple dont je ne trouve pas de solution simple...

Alors voila j'ai une liste dans mon fichier excel et j'aimerais boucler sur tous les lignes de cette liste et ainsi pouvoir accéder a chaque colonne de chaque ligne.

Je pense que je dois utiliser for each next mais je ne sais pas quelle objet ou méthode je dois utiliser pour atteindre ma liste?

Pour info c'est liste commence en A2 et va jusqu'a D2
et peux contenir une multitude de ligne. J'aimerais m'arrêter juste avant ma ligne total.

Merci

Merci

**Fvandermeulen** · 02/02/2010, 11h26

Bonjour,
Voici le principe de boucle For Each et For x To y, toutefois, dis en plus sur le but final de cette boucle, il y a peut-être une solution alternative...

For each nécessite de définir une plage dans laquelle on fait la boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub boucleForEach()
 
Dim cel As Range
Dim c As Long, DerLig As Long
 
For c = 1 To 4 'Boucle sur les colonnes de 1 à 4, 1=A; 4=D
         DerLig = Sheets("TaFeuil").Cells(Columns(c).Cells.Count, c).End(xlUp).Row 'Determine la dernière ligne remplie selon la colonne
    For Each cel In Sheets("TaFeuil").Range(Sheets("Tafeuil").Cells(2, c), Sheets("TaFeuil").Cells(DerLig-1, c))
        'Que faut il faire ?
    Next cel
Next c
 
End Sub

For x To y nécessite un début et une fin en terme de ligne et de colonne dans ce cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Boucle()
Dim c as long, r as long, DerLig as long 'Dimmensionnement des variables
 
For c = 1 to 4 'Boucle sur les colonnes de 1 à 4, 1=A; 4=D
     DerLig = sheets("TaFeuil").cells(columns(c).cells.count,c).end(xlup).row 'Determine la dernière ligne remplie selon la colonne
     For r = 2 to DerLig-1 'Boucle sur les lignes, depuis 2 car titre et denière ligne -1 car total
          'Que faut-il faire ?
     Next r
Next c
 
End sub

A+

**totoen** · 02/02/2010, 16h01

Ok je pensais qu'on pouvait faire mieux avec un for each et une liste...

Donc la j'ai utilisé un do loop until jusqu'a que je trouve ma ligne total

Merci pour la réponse

**Fvandermeulen** · 02/02/2010, 16h04

Re,
Tu n'as pas répondu à la question cruciale:
Quel est le but final?
-Trouver la ligne qui contient "total"?
-Trouver la dernière ligne?
-Trouver un élément entre les lignes x et y?
-Faire une somme selon des conditions?
-...

**totoen** · 02/02/2010, 16h22

Désolé

Donc mon but c'est de générer un xml en parcourant les toutes le ligne de ma liste (une ligne correspond a une balise xml)

Code :

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

1
2
3
4
5
<Root>
<Line id="y,1" compte="y,2"><Nom>y,3</nom><Prenom>y,4</Prenom></Line>
<Line id="x,1" compte="x,2"><Nom>x,3</nom><Prenom>x,4</Prenom></Line>
...
</Root>

Et donc de générer autant de line que j'ai de ligne dans ma liste