Utiliser valeur inputbox pour pointer vers cellule

virginie00035 · 17 Juillet 2009

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 · 17 Juillet 2009

Re : Utiliser valeur inputbox pour pointer vers cellule

Bonjour Virginie,

A priori une macro avec Find :

Code:

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 · 17 Juillet 2009

Re : Utiliser valeur inputbox pour pointer vers cellule

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

Utiliser valeur inputbox pour pointer vers cellule

virginie00035

XLDnaute Nouveau

job75

XLDnaute Barbatruc

virginie00035

XLDnaute Nouveau

Discussions similaires