Discussion :

[alexis trotta]

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 :

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
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

[Quentin77170]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[alexis trotta]

Merci beaucoup.
Voilà le code final:

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
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