Associé une fonction EQUIV avec un inputbox

Bonjour à tous,

Je souhaiterai faire un code VBA qui me renverrai sur une ligne +1 en fonction du nombre indiqué dans une input box

Dans l'exemple dans le fichier, le code renverrai à la cellule B1 vers la ligne 5 si je rentre le nombre 611200 dans l'input box

C'est peut être pas très clair ^^

Merci à vous !!

Boyoo 974

Bonjour,

Pour ta demande et concernant la ligne +1 à trouver, il suffit d'utiliser l'enregistreur de macro

CTRL+F pour rechercher une valeur
Flèche vers le bas pour aller à la ligne suivante
Arrêt de l'enregistreur

Ensuite il faut intégrer l'InputBox

@+

Salut Bruno,

Merci pour ta réactivité,

C'est justement le lien avec l'inputbox que je n'arrive pas à faire

Pourrez tu me guider stp?

Salut,

Une solution dans le fichier ci-joint. Je n'ai prévu aucun garde-fou si tu n'entres pas l'une des valeurs présente sur la feuille dans la InputBox. Code à modifier si nécessaire pour résoudre ce problème.

Sub Essai()
    Dim Réponse As Long, i As Integer

    Réponse = InputBox("Quel est le nombre recherché ?")

    i = Application.WorksheetFunction.Match(Réponse, Range("A:A"), 0)

    Range("B" & i + 1).Select

End Sub

Amicalement.

Salut Yvouille,

Merci, c'est top et exactement ce qu'il me fallait !

Bonne soirée à toi