B.Sounds, le forum
essaye ceci, mais je suis partie du fait que ta recherche etée faite par un ComBoBox.
Dim WSDonnees As Worksheet
Dim PlageImmo As String
Dim A As Long
Private Sub UserForm_Initialize()
Set WSDonnees = Worksheets("Inventaire")
With WSDonnees
PlageImmo = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
End With
End Sub
Private Sub NomDuComboBox_Change()
Set WSDonnees = Sheets("Inventaire")
Set Plage = WSDonnees.Range("A2:A" & WSDonnees.Range("A65536").End(xlUp).Row)
On Error Resume Next
A = Plage.Find(What:=NomDuComboBox, LookAt:=xlWhole).Row
With WSDonnees
txtDésignation = .Range("B" & A)
txtMarque = .Range("C" & A)
txtModèle = .Range("D" & A)
txtN°DeSerie = .Range("E" & A)
End With
End Sub
Salut, G'Claire