Trouvé N°ligne celon une ZTX ?

[pimo]

Bonjour le forum,

J'ai une worksheet avec plusieurs colonnes.
Colonne A = Référence pièce
Colonne B= Description
J'ai plus de 3000 lignes

Je souhaiterai quand je marque un nom de référence dans une zone de texte (ex:'ztx_ref') qu'apparraisse dans une autre zone de texte (ex: 'ztx_ligne') le N° de la ligne où se trouve cette référence dans ma worksheet.


Merci de votre aide

 

[justine]

sheets('nom').select
range('a1').select
while isempty(activecell)=false
if activecell=textbox1 then
textbox2=acticecell.row
exit sub
else
activecell.offset(1,0).select
end if

 

[Hervé]

bonsoir pimo, BONSOIR justine

Une autre solution

je suppose que ce que tu appelles une zone de text, il s'agit d'une plage nommée, alors :

Sub Bouton1_QuandClic()
Dim c As Range
Set c = Range('a1:a' & Range('a65536').End(xlUp).Row).Find(Range('ztx_ref'), LookAt:=xlWhole)
If Not c Is Nothing Then
Range('ztx_ligne') = c.Row
Else
Range('ztx_ligne') = 'Pas de correspondance trouvée.'
End If
End Sub

salut

Message édité par: Hervé, à: 22/11/2005 22:45

 

[Hervé]

re pimo, justine, le forum

si vraiment il s'agit de zone de texte appliqué sur une feuille :

Sub Bouton1_QuandClic()
Dim c As Range
Dim valeur As String
valeur = ActiveSheet.OLEObjects('ztx_ref').Object.Text
Set c = Range('a1:a' & Range('a65536').End(xlUp).Row).Find(valeur, LookAt:=xlWhole)
If Not c Is Nothing Then
        ActiveSheet.OLEObjects('ztx_ligne').Object.Text = c.Row
Else
        ActiveSheet.OLEObjects('ztx_ligne').Object.Text = 'Pas de correspondance trouvée.'
End If
End Sub

salut