se positionner sur une ligne après recherche

[otando]

Bonjour à tous
je viens vers vous demander de l'aide, toujours curieux et prêt a apprendre je souhaite effectuer une recherche sur un tableau contenant plusieurs colonnes
et plusieurs lignes
ma valeur recherchée contient des lettres et des chiffres (référence) , une fois ma valeur trouvée je voudrais me positionner sur la ligne contenant cette valeur
je souhaite avoir des exemples pour mieux comprendre
merci d'avance à tous

 

[eriiic]

Bonjour,

Ctrl+F ...
eric

 

[otando]

Bonjour Eric merci de ta réponse, sauf que j'ai oublie de préciser je voudrais un code vba car je souhaiterais travaillé sur un formulaire

 

[otando]

Bonjour,

Ctrl+F ...
eric

bonjour Eric
merci encore mais je souhaite un exemple sur vba car je voudrais rechercher ma valeur depuis un formulaire et se positionner sur mon tableau ou se trouve ma valeur trouvée( cellule) ou sur la ligne
merci encore

 

[eriiic]

Regarde l'aide sur Range.Find
Fixe bien les paramètres lookIn et lookAt, quasi obligatoires pour un fonctionnement correct.
eric

 

[otando]

Regarde l'aide sur Range.Find
Fixe bien les paramètres lookIn et lookAt, quasi obligatoires pour un fonctionnement correct.
eric

sans trop te demander stp aurais tu un exemple de code pour moi
merci encore

 

[Staple1600]

Bonsoir à tous,

je souhaite avoir des exemples pour mieux comprendre
merci d'avance à tous

En attendant d'autres, voici un premier exemple
(à tester sur une feuille vide)

Sub Exemple()
Cells.Clear
[A1:A1600] = "=""REF ""&ROW()"
Quoi = InputBox("Saisir une référence", "Test", "REF 16")
vOU = Application.Match(Quoi, [A1:A1600], 0)
MsgBox "Référence trouvée en ligne: " & Cells(vOU, 1).Row
Application.Goto Cells(vOU, 1), True
End Sub

 

[eriiic]

Tu n'as pas regardé l'aide ? Il y a un exemple...

 

[Staple1600]

Bonsoir à toi aussi eriiiic

 

[otando]

Bonsoir à tous,

En attendant d'autres, voici un premier exemple
(à tester sur une feuille vide)

Sub Exemple()
Cells.Clear
[A1:A1600] = "=""REF ""&ROW()"
Quoi = InputBox("Saisir une référence", "Test", "REF 16")
vOU = Application.Match(Quoi, [A1:A1600], 0)
MsgBox "Référence trouvée en ligne: " & Cells(vOU, 1).Row
Application.Goto Cells(vOU, 1), True
End Sub

ouf ! un grand merci à tous pour votre soutien surtout à toi Staple1600 pour ton exemple sa marche bien c'est ce que je cherchais à faire