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
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
A voir également:
- Classeur Excel : Macro RechercheV renvoie à la feuille concernée
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 311
Modifié par michel_m le 14/03/2017 à 15:05
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
Michel
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
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
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.
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.