Bonjour le fil
J'ai un probléme de Vba recherche.
Je voudrais recuperer un mot par rapport un numero taper dans useform
Ci-joint le le code
merci
Sub rechercheprod()
Dim Nprod As String
Dim Nomprod As String
Dim Nomtech As String
Dim trouve As Range
Dim rechercheprod As Range
Set plagederecherche = Sheets("listeprod").colummns1
Set trouve = plagederecherche.Cells.Find(what:=Nprod, lookat:=xlWhole)
If trouve Is Nothing Then
If trouve = Nprod Then
Nomprod = sheeps("listeprod").Cells(ligne.trouve, 2)
Nomtech = sheeps("listeprod").Cells(ligne.trouve, 3)
Call majfenetre
End If
Set plagederecherche = Nothing
Set trouve = Nothing
End Sub
Sub majfenetre()
ficheentree.Nomprod.Text = Nomprod
ficheentree.Nomtech.Text = Nomtech
End Sub
J'ai un probléme de Vba recherche.
Je voudrais recuperer un mot par rapport un numero taper dans useform
Ci-joint le le code
merci
Sub rechercheprod()
Dim Nprod As String
Dim Nomprod As String
Dim Nomtech As String
Dim trouve As Range
Dim rechercheprod As Range
Set plagederecherche = Sheets("listeprod").colummns1
Set trouve = plagederecherche.Cells.Find(what:=Nprod, lookat:=xlWhole)
If trouve Is Nothing Then
If trouve = Nprod Then
Nomprod = sheeps("listeprod").Cells(ligne.trouve, 2)
Nomtech = sheeps("listeprod").Cells(ligne.trouve, 3)
Call majfenetre
End If
Set plagederecherche = Nothing
Set trouve = Nothing
End Sub
Sub majfenetre()
ficheentree.Nomprod.Text = Nomprod
ficheentree.Nomtech.Text = Nomtech
End Sub
Dernière édition: