Bonjour à tous,

Je viens d'arriver dans une entreprise et mon prédécesseur avait utiliser une macro ayant pour but de prendre la dernière date d'interaction ayant eu lieu avec un client ainsi que le chiffre d'affaire de ce client au cours de l'année N-1. En voulant exécuter cette macro j'ai eu une erreur 400 et je n'arrive pas à la résoudre en regardant les différents forums sur internet...

Voici le code :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub Dinteraction()
 
'Cells(5, 3).Value = Range("c65000").End(xlUp).Row
'Cells(5, 4).Value = Range("i65000").End(xlUp).Row
 
For A = 13 To Range("e65000").End(xlUp).Row
 
    Cells(A, 5).Value = ""
    Cells(A, 6).Value = ""
 
Next
 
For I = 13 To Range("c65000").End(xlUp).Row
 
 
 
    If Cells(I, 3).Value <> "" Then
 
                    Cells(I, 5) = ""
                    Cells(I, 6) = ""
                    If Cells(I, 3) <> "" Then
 
                         Cells(I, 5) = DateDiff("m", Cells(I, 4).Value, Date)
 
                         For J = 13 To Range("i65000").End(xlUp).Row
 
 
                                If Cells(J, 9) <> "" Then
 
                                    If Cells(I, 3).Value Like Cells(J, 9).Value Then
 
                                            Cells(I, 6) = Cells(J, 10)
 
 
 
                                    End If
 
 
 
                                End If
                         Next
 
                    End If
 
 
 
    End If
 
Next
 
End Sub


Merci d'avance pour votre retour.