msgbox si N° non trouvé

nrdz83 · 10 Août 2009

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.

Code:

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 · 10 Août 2009

Re : msgbox si N° non trouvé

Bonsoir nrdz83,

Voici un exemple à adapter:

Code:

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 · 10 Août 2009

Re : msgbox si N° non trouvé

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

msgbox si N° non trouvé

nrdz83

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

nrdz83

XLDnaute Impliqué

Discussions similaires

msgbox si N° non trouvé

nrdz83

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

nrdz83

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency