Bonjour a tous,
Je rencontre des problèmes dans une manip qui paraît simple mais mon manque d expertise me bloque.
Je souhaite juste developper une fonction recherche. entrer une valeur / la rechercher/ selectionner la ligne dasn laquelle elle se trouve ou la faire clignoter
Userform -> Texbox1 -> Valeur à rechercher (designé par 'Transporte' dans mon code)
voila mon code du user :
Private Sub TextBox1_Change()
Transporte = TextBox1.Value
End Sub
Private Sub UserForm_Terminate()
Transporte = TextBox1.Value
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
Call Recherche
End Sub
Mon code de module :
Public Tranporte As Variant
Sub callrecherche() 'macro de lancement
UserForm1.Show
End Sub
Sub Recherche()'macro de recherche
Sheets('feuille1').Select
Columns('B:B').Find(What:=Transporte.Value, After:=Range('B4'), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'le pb est ici erreur 424 demande un objet. j ai l impression qu ema valeur public 'transporte' n´est pas transmise entre le User et ce module..
If Not c Is Nothing Then c.Select
'si je peux en plus selectionner toute la ligne de la cellule rechercher ou la rendre active, ce serait génial.
End Sub
Quelqu´un aurait-il une idée?
merci d avance
Je rencontre des problèmes dans une manip qui paraît simple mais mon manque d expertise me bloque.
Je souhaite juste developper une fonction recherche. entrer une valeur / la rechercher/ selectionner la ligne dasn laquelle elle se trouve ou la faire clignoter
Userform -> Texbox1 -> Valeur à rechercher (designé par 'Transporte' dans mon code)
voila mon code du user :
Private Sub TextBox1_Change()
Transporte = TextBox1.Value
End Sub
Private Sub UserForm_Terminate()
Transporte = TextBox1.Value
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
Call Recherche
End Sub
Mon code de module :
Public Tranporte As Variant
Sub callrecherche() 'macro de lancement
UserForm1.Show
End Sub
Sub Recherche()'macro de recherche
Sheets('feuille1').Select
Columns('B:B').Find(What:=Transporte.Value, After:=Range('B4'), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
'le pb est ici erreur 424 demande un objet. j ai l impression qu ema valeur public 'transporte' n´est pas transmise entre le User et ce module..
If Not c Is Nothing Then c.Select
'si je peux en plus selectionner toute la ligne de la cellule rechercher ou la rendre active, ce serait génial.
End Sub
Quelqu´un aurait-il une idée?
merci d avance