Classeur Excel : Macro RechercheV renvoie à la feuille concernée
NinsNoons
Messages postés
2
Statut
Membre
-
NinsNoons Messages postés 2 Statut Membre -
NinsNoons Messages postés 2 Statut Membre -
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.
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.
2 réponses
-
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 codeOption 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 -
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.
