Bonjour

j'utilise le code suivant sur un userform pour une option de recherche
malheureusement lorsque le produit ne figure pas un message d'erreur apparaît
j'aimerai pouvoir changer cela par un message d'avertissement mais .....je ne sais pas comment faire

quelqu'un peut il m'aider a effectuer cette modif
voici le code


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
29
30
31
32
33
34
35
36
37
38
39
Private Sub ComboBox1_Change()
Dim X As Integer
 
X = Me.ComboBox1.ListIndex + 1
TBoxNomProd = Worksheets("Feuil6").Cells(X, 2).Value
TBoxCode = Worksheets("Feuil6").Cells(X, 3).Value
 
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Label3_Click()
 
End Sub
 
Sub test()
    recherche.Show
End Sub
 
Private Sub UserForm_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim Dlig, i As Long
 
With Worksheets("Feuil6")
    Dlig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To Dlig
        ComboBox1.AddItem .Cells(i, 1).Value
    Next i
End With
End Sub
vous remerciant tous