fonction recherche dans textbox

[b.sounds]

Bonjour à tous,

Une fois de plus je sollicite votre aide!!
Voilà mon problème.
J'ai 5 textbox:
-n°immo
-désignation
-marque
-modèle
-n°série

Je voudrais que quand je rentre un n°immo j'obtient les autres infos correspondantes dans les autres texbox (désignation, marque, etc...)
Mon inventaire se situe sur une feuille du meme classeur et elle se nomme "Inventaire".

Merci à ceux qui pourront m'aider.

 

[GClaire]

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

 

[b.sounds]

Merci G'Claire,

mais je n'arrive pas à utiliser ce que tu m'as donner.

Je suppose que je dois mettre ces lignes de codes dans la (les) combobox?
dois-je remplacer mes textbox par des combobox?
"NomDuComboBox" c'est un nom que je dois donner?
desolé je suis débutant!!
merci de ton aide.

b.sounds

 

[GClaire]

B.Sounds, le forum

Mets un fichier exemple en Zip, en évitant les caractères spéciaux, les espaces.

Salut et bon Week-End, G'Claire

 

[b.sounds]

Voilà G'Claire,

encore merci.

 

[b.sounds]

une version un peu éclaircie!!

Merci!!

 

[Pascal76]

Bonjour

Voilà ton fichier légèrement modifié

Pascal

 

[b.sounds]

Génial!!!!!!!!!
C'est exactement ce qu'il me faut!!!!!!!!!

Merci beaucoup Pascal!!

 

[b.sounds]

J'ai essayé d'adapter ta formule à un autre userform (UserForm1 du même fichier).
Seulement ça coince au niveau du chemin des données.

Voilà ce que j'ai écrit:

Dim WSDonnees As Worksheet
Dim Plage As Range
Dim PlageNom As String
Dim A As Long

Private Sub UserForm1_Initialize()
End Sub

Private Sub ComboBox1_Change()

txtNom = ComboBox1.List(ComboBox1.ListIndex, 1)
txtPrénom = ComboBox1.List(ComboBox1.ListIndex, 2)
txtSociété = ComboBox1.List(ComboBox1.ListIndex, 3)


End Sub
Private Sub CommandButton1_Click()

Set WSDonnees = Workbooks("emprunteurs.xls").Worksheets(1)

With WSDonnees

PlageImmo = .Range("A2:E" & .Range("A65536").End(xlUp).Row).Address

End With

UserForm1.ComboBox1.RowSource = (1) & PlageNom

With Sheets("Fiche de prêt")
.Range("B7").Value = ComboBox1.Value
.Range("D7").Value = TextBox2.Value
.Range("F7").Value = TextBox3.Value
.Range("I7").Value = TextBox4.Value
End With
Unload Me

UserForm2.Show

End Sub


Mais mes données ne se trouvent pas sur le même fichier. Elles se trouvent sur un fichier qui se situe via le chemin suivant:

U:\Samy\gestion stock\Son\emprunteurs.xls

Comment je fait?

Merci.