Discussion :

[ousi64]

Bonjour, je sais pas trop ou poster sa. donc dsl si ce n'est pas dans la bonne section


Je dévellope en vba sous access 2007.

Je dois parcourir un fichier excel de +/-3000 lignes.
Lors de ce parcours je dois voir les doublons dans ce fichier excel(première difficulté).
Puis si il n'y a pas de doublon je vérifie par rapport a ma base de données si , ces données exsite.Si elles existent je fais un update des données de ma base access sinon je les insert.

Ma diffculté viens du fais que j'arrive a parcourir le fichier excel et a insérer les données mais cela est trés trés long.

Est ce que vous auriez des idées svp ?
(J'ai poster dans la partie acces, je viens poster dans la partie excel)
Si vous avez deja une idée pour parcourir le fichier excel et trouver les doublons se serai cool.

[Theze]

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 :

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

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é.