vba comparaison 2 fichiers excel

Version imprimable

Bonjour à tous, voilà on a 2 fichiers l'un s'appelant test et l'autre test2, mon fichier test est mis a jour régulièrement mais il a besoin d'une donnée particulière dans le fichier test2.

contenu du fichier test.xls :

http://img11.hostingpics.net/pics/776534test.png

contenu du fichier test2.xls :

http://img11.hostingpics.net/pics/950254test2.png

On peut identifier les utilisateur de façon unique avec leur "id" présent dans chacun des fichiers, on voudrais dans le cas où on parle du même utilisateur ajouter les données de la colonne "code" de test2 aux utilisateurs correspondants dans test.
A savoir que ce sont bien sûr 2 fichiers excel et que je dois répéter plusieurs fois cette action car en réalité il y a des milliers d'utilisateurs.

Voilà un code fonctionnel pour cet exemple mais j'obtiens l'erreur "dépassement de capacité" pour les plus gros fichiers :
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 33 Sub comparaison() 'Evite de voir les opérations intermédiaire sur les fichiers Application.ScreenUpdating = False 'déclarations des variables Dim i As Integer Dim j As Integer Dim Trouve As Integer i = 2 'initialisation du compteur à 2 car la ligne 1 contient l'en-tête de chaque donnée While (Workbooks("test.xlsm" ).Sheets(1).Cells(i, 2).Value <> "" ) ' tant que dans le fichier test la cellule en (ligne i, colonne B) n'est pas vide j = 2 Trouve = 0 'cette variable sert d'indicateur si c'est à 0 on a rien trouvé ou 1 on a trouvé la cellule correspondante While (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value <> Null) & (Trouve = 0) 'si la cellule du fichier test2 correspond à celle de test alors If (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value = _ Workbooks("test.xlsm" ).Sheets(1).Cells(i, 2).Value) Then Trouve = 1 'On copie le code à la ligne actuelle dans une nouvelle colonne Workbooks("test.xlsm" ).Sheets(1).Cells(i, 3).Value = _ Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 2).Value 'sinon on passe à la ligne suivante de icatfiltre Else j = j + 1 End If Wend i = i + 1 Wend
On m'a conseillé d'utiliser la méthode Find mais j'avoue ne pas savoir comment l'adapter à ce code.
A savoir que la version d'office que j'utilise est la 2007.

12/05/2013, 18h38
SfJ5Rpw8

bonjour,

gros fichier ? combien de ligne ?
12/05/2013, 19h27
Marc-L

Je lui ai effectivement conseillé la méthode Find, aussi de vérifier les types des variables ou mettre en commentaire les lignes des Dim
mais surtout l'inutilité d'un code VBA car avec la colonne Id en première dans le fichier test2,
une simple formule RECHERCHEV dans une cellule du fichier test s'acquitte de la récupération de la donnée !
12/05/2013, 20h23
SfJ5Rpw8

Citation:

Envoyé par Marc-L

... ou mettre en commentaire les lignes des Dim...

arf ... Vade rétro satanas .... il ne faut pas supprimer les Dim .. il faut déclarer toutes les variables !!! et rajouter en haut de toutes les pages de code la ligne :

Code:

Option Explicit

cela permet d'éviter grand nombre de bugs !!
12/05/2013, 20h25
Furil

Alors pour le nombre de lignes ce serait de 1300 lignes. J'aimerai pouvoir réutiliser le code car je devrais faire la même chose pour un autre fichier mais copier cette fois plusieurs champs au lieu d'un seul lors d'une correspondance de l'id des utilisateurs.
Ensuite concernant le recherchev je crains que ce ne soit inutile car la/les personnes mettant à jour le fichier le copie sur le partage et donc écrase directement le fichier modifié ce qui voudrait dire qu'à chaque fois je devrais bouger la colonne id donc ce n'est pas la bonne solution :/

Puis je viens de mettre en commentaire les dim et j'obtiens l'erreur "Erreur définit par l'application ou par l'objet".

Enfin je ne sais pas pourquoi mais il me marque "incompatibilité de type" sur la deuxième boucle lorsque je met la double quote au lieu de Null:

Code:

While (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value <> ""
12/05/2013, 20h33
SfJ5Rpw8
tu as rajouté en haut de tes page de codes la ligne OBLIGATOIRE (surtout pour les débutants) :
Code:

1 2 Option Explicit
12/05/2013, 21h31
Furil

Oui j'ai bien mis Option Explicit, dans mon exemple ça fonctionne mais dans le fichier de 1300 lignes, j'obtient ce message : "dépassement de capacité".
12/05/2013, 21h52
BlueMonkey

Bonsoir,

En VBA opérateur & ne fait pas la même chose qu'en C ou d'autres languages.
En effet, seul, il sert à faire de la concaténation de chaînes de caractères.
(même en C ça serait && pour l'opérateur logique)

Donc la ligne suivante ne fait pas ce que tu crois.

Code:

While (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value <> Null) & (Trouve = 0)

Ce que tu veux c'est en fait :

Code:

While (Workbooks("test2.xlsm" ).Sheets(1).Cells(j, 3).Value <> "") And (Trouve = 0)

[Edit] Avec cette correction, tu peux remettre les Dim. ;)
12/05/2013, 21h54
SfJ5Rpw8

Enleve le null et remet le <>"". J'avais pas remarqué ton & ... en Vb il faut utiliser And .
13/05/2013, 01h14
Marc-L

Les variables i & j ne devraient pas être en Integer !

Car même en mettant en commentaire les Dim :evilred:, plus d'erreur si dépassement des 32767 lignes, si ?!

____________________________________________________________________
Ikéa est le meilleur prénom pour une femme : suédoise, bon marché, à emmener aussitôt chez soi et facile à monter !

Grand merci à tous, ça venait bien du "&" et ça passe avec les doubles quotes maintenant, je met le code pour ceux qui en auront éventuellement besoin dans le future :) :

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
33
34
35
36
37
38
 
Sub Comparaison ()
 
'Evite de voir les opérations intermédiaire sur les fichiers
Application.ScreenUpdating = False
'déclarations des variables
Dim i As Integer
Dim j As Integer
Dim Trouve As Integer
 
 
 
    i = 2 'initialisation du compteur à 2 car la ligne 1 contient l'en-tête de chaque donnée
    While (Workbooks("test.xlsm").Sheets(1).Cells(i, 2).Value <> "")  ' tant que dans le fichier test la cellule en (ligne i, colonne B) n'est pas vide
        j = 2
        Trouve = 0 'cette variable sert d'indicateur si c'est à 0 on a rien trouvé ou 1 on a trouvé la cellule correspondante
 
 
        While (Workbooks("test2.xlsm").Sheets(1).Cells(j, 3).Value <> "") And (Trouve = 0)
 
            'si la cellule du fichier test2 correspond à celle de test alors
            If (Workbooks("test2.xlsm").Sheets(1).Cells(j, 3).Value = _
            Workbooks("test.xlsm").Sheets(1).Cells(i, 2).Value) Then
            Trouve = 1
            'On copie le code à la ligne actuelle dans une nouvelle colonne
               Workbooks("test.xlsm").Sheets(1).Cells(i, 3).Value = _
                Workbooks("test2.xlsm").Sheets(1).Cells(j, 2).Value
            'sinon on passe à la ligne suivante de test2
            Else
 
            j = j + 1
 
            End If
        Wend
 
        i = i + 1
    Wend
End Sub

A savoir qu'avant d’exécuter cette macro, il faut veiller à ouvrir les 2 fichiers concerné. :)

Voilà donc encore merci et bonne soirée. :)