Utiliser valeur inputbox pour pointer vers cellule

[virginie00035]

Bonjour,
En ligne 1, dans mon tableau, j'ai 203 n° d'identifiants.
Par le biais d'une boîte de message qui propose de rentrer un numéro d'identifiant (donc au choix, de 1 à 2003), je voudrais que la saisie de ce numéro me renvoie à la sélectionner de cellulle qui contient ce numéro d'identifant.

Pour l'instant, j'ai écrit ça, mais je voudrais éviter de passer par une commandbars de manière à personnaliser le tout (et éviter de passer par les boutons "suivant" et "fermer").

Rows("1:1").Select
CommandBars("Edit").Controls(13).Execute

Merci d'avance pour vos suggestions !

 

[job75]

Re : Utiliser valeur inputbox pour pointer vers cellule

Bonjour Virginie,

A priori une macro avec Find :

Sub Recherche()
Dim x As String, ref As Range
x = InputBox("Numéro d'identifiant :")
Set ref = Rows(1).Find(x, LookIn:=xlValues, LookAt:=xlWhole)
If x <> "" And Not ref Is Nothing Then ref.Select
End Sub

A+

 

[virginie00035]

Re : Utiliser valeur inputbox pour pointer vers cellule

En un mot : merci.
Ca parait si simple maintenant...
Bon week end