WILFRIED

Salut Yanou,

m_cellule et mligne sont des variables voici le prog comme je l'ecrirais :

sub prog
dim m_cellule as range 'permet l'application à une variable
'des paramètre d'un range
dim m_ligne as long 'positionnement des lignes
'selection de la plage contenant les donnée

Range("A65536").select
range("A1",activecell.end(xlup)).select
'boucle de recherche
for each m_cellule in selection 'selection est la plage ci-dessus
if m_cellule.value=usf1.combobox1.value then
m_ligne=m_cellule.row-1
exit for
end if
next

'envoye des info vers ton USF

Usf2.textbox1.text=sheets("fls").range("A1").offse t(m_ligne,0).value
Usf2.textbox2.text=sheets("fls").range("B1").offse t(m_ligne,0).value
Usf2.textbox3.text=sheets("fls").range("C1").offse t(m_ligne,0).value
Usf2.textbox4.text=sheets("fls").range("D1").offse t(m_ligne,0).value

end sub

si tu doit réutiliser la plage selectionner :
sub prog
dim m_cellule as range 'permet l'application à une variable
'des paramètre d'un range
dim m_ligne as long 'positionnement des lignes
dim m_plage
'selection de la plage contenant les donnée

Range("A65536").select
range("A1",activecell.end(xlup)).select
m_plage =selection.address
'boucle de recherche
for each m_cellule in range(m_plage)
if m_cellule.value=usf1.combobox1.value then
m_ligne=m_cellule.row-1
exit for
end if
next

'envoye des info vers ton USF

Usf2.textbox1.text=sheets("fls").range("A1").offse t(m_ligne,0).value
Usf2.textbox2.text=sheets("fls").range("B1").offse t(m_ligne,0).value
Usf2.textbox3.text=sheets("fls").range("C1").offse t(m_ligne,0).value
Usf2.textbox4.text=sheets("fls").range("D1").offse t(m_ligne,0).value

end sub

si tu as des navigation entre feuille tu doit rajouter le lieu où ce situe ta selection :

sheets("feuil1").range(m_plage) ou
workbooks("toto.xls").sheets("feuil1").range(m_pla ge) si tu fait de la navigation entre deux classeurs.


A+ Wilfried ;op