Sujet Précédent Sujet Suivant

Classeur Excel : Macro RechercheV renvoie à la feuille concernée

Fermé
NinsNoons Messages postés 2 Date d'inscription mardi 14 mars 2017 Statut Membre Dernière intervention 16 mars 2017 - 14 mars 2017 à 11:56
NinsNoons Messages postés 2 Date d'inscription mardi 14 mars 2017 Statut Membre Dernière intervention 16 mars 2017 - 16 mars 2017 à 13:58
Bonjour,

Après plusieurs jours de recherche je viens solliciter votre aide.

En effet, j'ai crée un classeur, équivalent à une base de données, d'une centaine de feuilles.
Chaque feuille comprend une colonne et 2/3 lignes (Nom+Description).

Je souhaiterais sur la première feuille de ce classeur, créer une cellule, dédiée à la recherche (sous forme macro/bouton).

L'idée serait de taper un mot dans cette cellule (donnée existante dans le classeur), d'appliquer la macro grâce au bouton, et d'être renvoyé automatiquement vers la feuille concernée.

Pourriez vous m'aider ou me rediriger?

Merci d'avance.
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 14/03/2017 à 15:05
bonjour,
demande très floue....

une colonne et 2/3 lignes (Nom+Description).

quelle colonne et adresse du nom et de la description ?
que tape tu dans la première feuille et où ? nom ? description ?
pourquoi rechercheV ? formule excel souvent non adapté à VBA


Un exemple quand m^me! à toi d'adapter
la macro se déclenche lorsque tu tapes un nom en B2, feuille1
la macro se trouve dans le module feuille1 de l'éditeur VBA
https://mon-partage.fr/f/6cEFDeJz/
le code 
Option Explicit
'-----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cptr As Byte
If Target.Address = "$B$2" Then
    For Cptr = 2 To Sheets.Count
           If UCase(Target) = UCase(Sheets(Cptr).Range("A1")) Then
                Sheets(Cptr).Activate
                Exit Sub
            End If
    Next
    MsgBox Target & " inconnu(e)", vbCritical
End If

End Sub

 Michel
0
Réponse 2 / 2
NinsNoons Messages postés 2 Date d'inscription mardi 14 mars 2017 Statut Membre Dernière intervention 16 mars 2017
Modifié par NinsNoons le 16/03/2017 à 13:59
Bonjour et merci,

Je ne vois votre réponse qu'aujourd'hui.

Pardon si mes explications n'étaient pas claires ...

Sur chaque feuille du classeur, il y a un mot et sa définition (par exemple, à la feuille 28 : Soleil (A1) = Etoile du système solaire (A2) )
Ce que je souhaite, c'est ajouter un "moteur de recherche" sur la première feuille de ce classeur sous forme d'une cellule, dans laquelle je pourrai taper "soleil" dedans afin d'être renvoyée à la feuille 28.

Je vais me pencher sur votre exemple, c'est peut-être la solution!

Merci encore.
0