Bonjour à toutes et à tous,

Si on valide sans sélectionner un Item dans le ListBox, j'ai un message d'erreur qui me sort du programme.
Dans ce code , je voudrai récupérer le message d'erreur,
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
 
Private Sub UserForm_Initialize()
Dim Rg As Range
Dim Critere As Long
 Me.Caption = ThisWorkbook.Name
   With Worksheets("JournalDevis")
      Set Rg = .Range("A7:C" & .Range("A65536").End(xlUp).Row)
   End With
   Set Conn = New ADODB.Connection
   Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
       ThisWorkbook.FullName & ";" & "Extended Properties=""Excel 
8.0;HDR=Yes;"""
   requete = "SELECT N°devis, Nom FROM [" & Rg.Parent.Name & "$" & 
Rg.Address(0, 0) _
       & "]"
   Rst.Open requete, Conn, adOpenStatic, adLockOptimistic
   a = Rst.RecordCount
   x = Rst.GetRows
   With Me.ListBox1
      If ??????  '<--ici je voudrai gerrer l'erreur
          .ColumnCount = 2
          .ColumnWidths = "50;85" 
          .List = Application.Transpose(x)
          'Else
           ' MsgBox "Aucune sélection de faite dans la liste !"
     ' End If
End With
End Sub
Merci à ceux qui voudront bien m'aider.
Peponne31