Conseil pour la création liste avec recherche

[countder]

Bonjour et merci de m'accepter sur votre forum. J'aurai besoin de conseils pour la création d'une liste de recherche.

- J'ai une seule colonne avec des noms
- J'ai une cellule où je tape la lettre que je veux trouver
- J'ai un bouton qui exécute la formule permettant d'aller au mot correspondant

par ex. Je tape dans une cellule déterminée la lettre "J" je clique sur le bouton et automatiquement j'arrive au premier mot ayant comme première lettre "J" et si c'est possible aussi avec deux lettres donc si je tape JE je vais au premier mot de la colonne ayant les deux première lettres commençant par JE. Merci à qui pourra me conseiller.

 

[JNP]

Re : Conseil pour la création liste avec recherche

Bonsoir Countder et bienvenue 🙂,
En ayant la liste en colonne A avec une entête type Nom et les lettres à chercher en B1

Sub test()
Dim Cel As Range
Set Cel = Range("A:A").Find(Range("B1") & "*", lookat:=xlWhole)
If Not Cel Is Nothing Then Cel.Select
End Sub

Bon courage 😎

 

[countder]

Re : Conseil pour la création liste avec recherche

Bonjour et merci pour ta réponse JNP, aurais-tu une piste ou des conseils car je suis passé de Excel 2003 à 2007 et je complètement perdu...je ne retrouve plus les outils, vba etc. merci

 

[Compte Supprimé 979]

Re : Conseil pour la création liste avec recherche

Salut Countder

Pour ton problème il existe des guides interactifs
Interactif : Guide de référence des commandes d'Excel 2003 et Excel 2007 - Excel - Microsoft Office

A+

 

[countder]

Re : Conseil pour la création liste avec recherche

Merci pour ta réponse Bruno, c'est un bon lien que tu m'as donné, j'ai trouvé Visual Basic dans développeur mais c'est grisé comment débloquer cette fonction?merci

 

[JNP]

Re : Conseil pour la création liste avec recherche

Re 🙂,
Il faut que dans le gros bouton Office, tu choisis Options (tout en bas) et dans Centre de gestion de la confidentialité, tu ailles accepter les macros 🙄...
Bon courage 😎

 

[countder]

Re : Conseil pour la création liste avec recherche

J'ai pu enclenché visual Basic ... qui n'était pas installé.
Ce que j'ai fait :
- j'ouvre un nouveau classeur
- j'ouvre V.B.
- là j'ai une feuille1 vierge où je colle la formule que tu m'as donné dans le post 2
- dans ma colonne A j'ai tous mes différents noms je mets la lettre à rechercher en B1 et je fais ENTER et il n'y a rien qui se passe... un petit conseil à me donner? merci

 

[JNP]

Re : Conseil pour la création liste avec recherche

Re 🙂,

- J'ai un bouton qui exécute la formule permettant d'aller au mot correspondant

Et il est où le bouton pour lancer la macro 🙄...
Si tu veux faire en automatique

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Dim Cel As Range
Set Cel = Range("A:A").Find(Range("B1") & "*", lookat:=xlWhole)
If Not Cel Is Nothing Then Cel.Select
End Sub

Bonne journée 😎

 

[countder]

Re : Conseil pour la création liste avec recherche

Merci pour ta réponse j'ai opté pour ta dernière formule que j'ai réussi a faire fonction ... encore un petit coup de pouce si tu veux bien ... voudrais-tu me refaire cette formule en tenant compte que les mots à rechercher sont dans la colonne B allant de la ligne 8 à 123 et que la cellule pour la recherche est C5. Merci

 

[JNP]

Re : Conseil pour la création liste avec recherche

Re 🙂,
Sachant que tout est en clair dans le code, c'est un peu de la fainéantise de ta part 🙄...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$5" Then Exit Sub
Dim Cel As Range
Set Cel = Range("B8:B123").Find(Range("C5") & "*", lookat:=xlWhole)
If Not Cel Is Nothing Then Cel.Select
End Sub

Bonne fin de WE 😎

 

[countder]

Re : Conseil pour la création liste avec recherche

Voilà tout fonctionne... ne crois pas que c'est de la fainéantise j'avais juste des problèmes avec les colonnes. Un Grand Merci pour ta patience et tes conseils.

@+