[XL-2007] Parcours fichier excel

Bonjour,

Je suppose que tu parcour les cellules de la feuille ? Il serait plus judicieux de mettre la plage de cellules dans un tableau et ensuite de parcourir le tableau :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub Tableau()
 
    Dim Tbl As Variant
    Dim I As Integer
    Dim J As Integer
 
    Tbl = Worksheets("Feuil1").UsedRange
 
    'ici, la boucle parcour la plage par ligne
    '(parcour horizontal)
    For I = 1 To UBound(Tbl, 1)
 
        For J = 1 To UBound(Tbl, 2)
 
            Debug.Print Tbl(I, J)
 
        Next J
    Next I
 
    'ici, la boucle parcour la plage par colonne
    '(parcour vertical)
    For I = 1 To UBound(Tbl, 2)
 
        For J = 1 To UBound(Tbl, 1)
 
            Debug.Print Tbl(J, I)
 
        Next J
    Next I
 
End Sub

Hervé.