msgbox si N° non trouvé

[nrdz83]

Bonsoir à tous, voila ma question j'utilise ce code qui me permet de rechercher des numéro de série dans une base de données.

Je cherche à faire apparaitre un msgbox si le numéro que je recherche n'existe pas dans ma base de données.

Private Sub CommandButton1_Click()
  Dim Lig As Long, VPathFic As String
  ' La ligne = 1 (ligne de titre) + ListIndex + 1 (car listindex commence à 0)
  Lig = 2 + Me.ComboBox1.ListIndex + 2
  With Sheets("CLOP")
    Me.TB_2 = .Range("B" & Lig)
    Me.TB_3 = .Range("C" & Lig)
    Me.TB_4 = .Range("D" & Lig)
    Me.TB_5 = .Range("F" & Lig)
    
    End With
    
End Sub

D'avance merci à tous ,
amitiés 🙄

 

[skoobi]

Re : msgbox si N° non trouvé

Bonsoir nrdz83,

Voici un exemple à adapter:

With Worksheets(1).Range("A1:A500")
    Set Trouve = .Find(2, LookIn:=xlValues, lookat:=xlWhole)
    If Trouve Is Nothing Then MsgBox "la valeur 2 n'a pas été trouvé dans la plage A1:A500"
End With

Bonne soirée.

 

[nrdz83]

Re : msgbox si N° non trouvé

bonsoir skoobi et merci je vais esssayer de l'adapter a mon code amitiés