Erreur 400 excel Vba

Version imprimable

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:

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.

Bonjour Flo, bonjour le forum,

Quel code incohérent avec une condition bouclée deux fois !?... Difficile de comprendre ce qu'il devait faire. J'ai réécrit, à ma manière. À tester :

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
Sub Dinteraction()
Dim I As Long
Dim J As Long
Dim DL As Long
 
DL = Cells(Application.Rows.Count, "E").End(xlUp).Row
Range("E13:E" & DL).Value = ""
Range("F13:F" & DL).Value = ""
 
DL = Cells(Application.Rows.Count, "C").End(xlUp).Row
For I = 13 To DL
    If Cells(I, "C").Value <> "" Then
        Cells(I, "F") = ""
        Cells(I, "E") = DateDiff("m", Cells(I, "D").Value, Date)
        For J = 13 To Range("I65000").End(xlUp).Row
            If Cells(J, "I") <> "" Then
                If Cells(I, "C").Value Like Cells(J, "I").Value Then
                    Cells(I, "F") = Cells(J, "J")
                End If
            End If
        Next J
    End If
Next I
End Sub

05/10/2018, 09h33
Menhir

Citation:

Envoyé par flo199511

j'ai eu une erreur 400

Quel message d'erreur ?
Quelle ligne est désignée par le débugage ?
05/10/2018, 10h29
flo199511

Bonjour Thauthème, merci pour ton retour aussi rapide.

Malheureusement j'ai testé ton code et j'ai toujours la même erreur400..

Ce qui est paradoxale car le code que j'ai posté précédemment est le même dans un autre fichier excel et celui ci marche.

En regardant l'aide excel cette erreur désigne : Feuille déjà affichée; affichage modal impossible.

J'ai l'impression que dès que je clique sur le bouton de la macro, excel n'arrive pas à la faire démarrer et affiche instantanément l'erreur 400..

Merci pour votre retour.

florent