Re : Doublons dans msgbox
Rebonjour, j'ai finalement un dernier détail que je n'avais pas remarqué. Dans le code que tu m'as fourni, il y l'option 1 : Tous les TOA existent. Si ils existent, ton code dis "exit sub". Seulement, la macro n'est pas terminée, et en fait si oui ils existent, alors je voudrais sauter l'option 2 qui est d'afficher ceux qui n'existent pas.
En résumé, le début de ton code est en bleu, si tous les TOA existent, alors j'aimerais sauter la partie en rouge, et aller directement au début du vert. Si il manque des TOA par contre, j'aimerais aller directement dans la partie rouge.
Range("E:E,G:M,O:X").Delete
Sheets("Data Edmonton").Select
Range("B2:E708").Select
Selection.Copy
Worksheets("Edmonton QA Total").Visible = True
Sheets("Edmonton QA Total").Select Range("A2").Select
ActiveSheet.Paste
Set Coll = New Collection
With Sheets("Edmonton QA Total")
For R = .Range("D708").End(xlUp).Row To 2 Step -1
If .Cells(R, 5).Value = " " Then
On Error Resume Next
Coll.Add .Cells(R, 3), CStr(.Cells(R, 3))
On Error GoTo 0
End If
Next R
If Coll.Count = 0 Then MsgBox "All TOAs are existing !", vbInformation, "Checking Data": Exit Sub
For R = 1 To Coll.Count
If R = 1 Then
TextMsg = Chr(10) & " " & Coll(R)
Else
TextMsg = TextMsg & Chr(10) & " " & Coll(R)
End If
Next R
MsgBox "Missing TOA :" & TextMsg, vbCritical, "Checking Data"
End With
Worksheets("Edmonton QA Total").Visible = False
Sheets("Data Edmonton").Select
For u = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
Merci beaucoup