On error Goto MsgBox

Version imprimable

Bonjour à tous

dans la macro suivante que j'ai trouvé sur le net, j'ai rajouté "On error GoTo 1" car lorsque la liste en colonne A est égale à la liste en colonne B, un message d'erreur apparaît.
J'ai essayé d'ajouter avant de sortir de la macro un MgsBox "blablabla" en vain.
Quelqu'un peut-il me aider s'il vous plait?
merci d'avance.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub Liste2_Liste1() On Error GoTo 1 a = Range("A1:A" & [A65000].End(xlUp).Row) Set MaListe1 = CreateObject("Scripting.Dictionary") For Each c In a MaListe1(c) = "" Next c b = Range("B1:B" & [B65000].End(xlUp).Row) Set MaListe2 = CreateObject("Scripting.Dictionary") For Each c In b If Not MaListe1.exists(c) Then MaListe2(c) = "" Next c [C1].Resize(MaListe2.Count, 1) = Application.Transpose(MaListe2.keys) 1 Exit Sub End Sub

Salut, quelque chose du genre devrait faire l'affaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
 
On Error GoTo ErrHandler
 
'Ton code ici
 
Exit Sub
 
ErrHandler:
MsgBox "Une erreur s'est produite : " & Err.Number & " Descriptif : " & Err.Description
End Sub

Dis-moi si ça te va :)

Quentin

28/05/2015, 14h02
Quentin77170

En fait, quoi qu'il arrive ton code va passer par le 1, qu'il y ait erreur ou non. Il faudrait que ton 1 soit après ton Exit Sub. Comme ça, en lecture normale, la macro ferme par Exit Sub, si erreur, elle ferme par End Sub

Merci beaucoup.
Voilà le code final:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Liste2_Liste1()
 
On Error GoTo ErrListe2_Liste1
 
  a = Range("A1:A" & [A65000].End(xlUp).Row)
  Set MaListe1 = CreateObject("Scripting.Dictionary")
  For Each c In a
   MaListe1(c) = ""
  Next c
  b = Range("B1:B" & [B65000].End(xlUp).Row)
  Set MaListe2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If Not MaListe1.exists(c) Then MaListe2(c) = ""
  Next c
 
 
   [C1].Resize(MaListe2.Count, 1) = Application.Transpose(MaListe2.keys)
 
1  Exit Sub
 
ErrListe2_Liste1:
MsgBox "Pas d'erreur de pointage aujourd'hui" ': " & Err.Number & " Descriptif : " & Err.Description
End Sub