Crash après utilisation macro comparaison de fichier xls

Version imprimable

Bonjour,

J'ai fais une macro qui me permet de comparer 2 fichiers excel entre eux et d'en compléter un avec les informations du premier si elles sont manquantes dans le deuxième. Mais dès que je lance la macro excel plante et je suis obligé de les fermer en mode barbare et donc la macro ne fonctionne pas.

Voici mon code :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
Sub trixls()
 
 
Dim i As Integer
Dim j As Integer
Dim c As Integer
 
 
c = 0
i = 4
j = 5
 
Workbooks.Open ("C:\Users\CMartinez\Desktop\test\Remise en forme AD.xlsm")
Workbooks.Open ("C:\Users\CMartinez\Desktop\test\remise en forme matériel 01A.xlsm")
 
 
While (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value <> "")
 
 
 
    While (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> "")
 
 
        If (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value) Then
 
            i = i + 1
 
                If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = "") Then
                    Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value
                    c = c + 1
 
                Else
 
                    If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value) Then
 
                j = j + 1
                i = 4
 
                     End If
                 End If
 
         Else
 
            j = j + 1
        End If
 
    Wend
 
 
 
Wend
 
 
MsgBox c
 
 
End Sub

En vous remerciant par avance de votre aide !

16/05/2019, 09h13
Trystan441

Bonjour,

Tu n'aurais pas créé une boucle infinie par hasard ?

Tu as testé en mode pas à pas pour voir comme ta macro réagis face aux données que tu lui donnes ?
16/05/2019, 09h46
Zedite

Merci pour ta réponse.

En effet il semble que le programme ne passe jamais dans mon dernier else, je vais me pencher dessus !

Je me permets de re up le sujet car je me casse les dents depuis plusieurs heures sur mes boucles qui me permettent de comparer les 2 colonnes des 2 workbooks différent.

J'ai réussie à lancer 1 fois la macro, mais elle a simplement recopier la colonne à la suite de l'autre sans tenir compte des doublons, j'ai d’ailler un problème avec ces doublons qui , je ne sais pas pourquoi, ne sont pas détecter en tant que doublon dans excel ( j'ai utilisé la commande mise en forme conditionnelle pour ça).

si une personne à le temps et la patience de jeter un coup d'oeil à mon code pour m'indiquer ce qui ne va pas je suis preneur :roll:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
 
Sub trixls()
 
 
Dim i As Integer
Dim j As Integer
Dim c As Integer
 
 
 
c = 0
i = 4
j = 5
 
Workbooks.Open ("C:\Users\Martinez\Desktop\test\Remise en forme AD.xlsm")
Workbooks.Open ("C:\Users\Martinez\Desktop\test\remise en forme matériel 01A.xlsm")
 
 
While (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value <> "")
 
 
 
    While (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> "")
 
 
             If (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value) Then
 
 
                          i = i + 1
 
                End If
 
 
 
 
                If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = "") Then
                    Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value
                    c = c + 1
                    j = j + 1
                    i = i + 1
 
                End If
 
                If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value) Then
 
                j = j + 1
                i = 4
 
 
                 End If
 
 
 
 
    Wend
 
 
 
Wend
 
 
MsgBox c
 
 
End Sub

Le code actuel semble contenir une boucle infinie mais je ne comprend pas où :(

En vous remerciant par avance !

16/05/2019, 14h50
Trystan441

Si ton but c'est de supprimer les doublons d'une colonne utilise plutôt la méthode "remove duplicates"

Bonne journée,
16/05/2019, 14h57
Zedite

Non justement je ne suis pas censé avoir de doublon, le but final de la macro est d'avoir exactement les 2 mêmes colonnes sur mes 2 fichiers en ajoutant les données manquantes de chaque fichier.

Je te fais un exemple :

Colonne A Colonne B

a a

b e

c f

d b

et je veux obtenir :

Colonne A Colonne B

a a

b e

c f

d b

e c

f d

Sachant que les 2 colonnes sont dans des workbooks différents.
16/05/2019, 15h08
MarcelG

Bonjour,

Le plus utile serait à mon avis de procéder à l'affichage des variables locales et constater l'évolution de celles-ci lors d'une exécution pas à pas.

Autre piste, trop souvent ignorée à mon sens, utiliser l'instruction

Code:

Debug.Assert

.

Quand bien même, imbriquer des boucles Loop est souvent générateur d'erreur(s).

C'est, comme on dit, "juste mon avis".

Colonne A	Colonne B
a	a
b	e
c	f
d	b

Colonne A	Colonne B
a	a
b	e
c	f
d	b
e	c
f	d

Enfin ça fonctione !

J'ai simplement supprimer un while et ajouter une condition sur le 2eme pour ne plus avoir de boucle imbriqué.

Cela dit j'ai une grosse latence quand je lance la macro (15-20 secondes), surement à cause de la taille des fichiers à traiter(et de ma façon de les traiter), auriez-vous une solution pour limiter cette latence ?

Voici le code :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
Sub trixls()
 
 
Dim i As Integer
Dim j As Integer
Dim c As Integer
 
 
 
 
c = 0
i = 4
j = 5
 
Workbooks.Open ("C:\Users\Martinez\Desktop\test\Remise en forme AD.xlsm")
Workbooks.Open ("C:\Users\Martinez\Desktop\test\remise en forme matériel 01A.xlsm")
 
 
 
 
 
 
    While (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> "" And Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value <> "")
 
 
 
             If (Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value <> Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value) Then
 
 
                          i = i + 1
 
                End If
 
 
 
 
                If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = "") Then
                    Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value
 
 
                    c = c + 1
                    j = j + 1
                    i = 4
 
                End If
 
                If (Workbooks("remise en forme AD.xlsm").Sheets(1).Cells(i, 2).Value = Workbooks("remise en forme matériel 01A.xlsm").Sheets(1).Cells(j, 15).Value) Then
 
                j = j + 1
                i = 4
 
 
                 End If
 
 
 
 
    Wend
 
 
 
 
 
 
MsgBox c
 
 
End Sub

16/05/2019, 16h09
MarcelG

Peut-être en désactivant la mise à jour de l'écran.
Je te laisse regarder la méthode à appliquer.
17/05/2019, 08h23
Zedite

Merci bien je vais essayer ça tout de suite !