Trouver une valeur en appuyant sur un bouton

Résolu/Fermé
zer4 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017 - Modifié par zer4 le 13/01/2017 à 09:10
zer4 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017 - 13 janv. 2017 à 10:08
Bonjour,
Je créé actuellement un planning sous excel et je souhaiterais (étant donné que je possède une longue liste d'outillages ) retrouvé un outils par rapport a son nom grâce a une liste déroulante.

Auriez-vous un code en VBA ou une solution qui pourrais m'aider ?

Cordialement.


1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 704
13 janv. 2017 à 09:19
Bonjour,

Sans bouton mais avec une macro événementielle à placer dans ta feuille :
Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect([A1], sel) Is Nothing Then
    Cells.Find(sel, sel, xlValues, xlWhole).Activate
End If
End Sub

Il te suffit de remplacer A1 par l'adresse de la cellule où tu as ta liste déroulante.
0
zer4 Messages postés 53 Date d'inscription lundi 31 octobre 2011 Statut Membre Dernière intervention 12 décembre 2017
13 janv. 2017 à 10:08
Super ça marche parfaitement !
Je vous remercie beaucoup.
0