Besoin d'aide pour VBA excel - Fichier de Prospection :

Bonjour @ tous,

J'ai beau cherché sur le net, je ne trouve pas de réponse à mon problème :

Voilà ce que je souhaite faire :

J'ai un fichier Excel avec 2 feuilles.

Sur la feuille 1 j'ai toutes mes données, en colonne A* j'ai mis un ID

Sur la feuille 2 j'ai mis le même ID dans la cellule A*, en colonne B une RECHERCHEV (info reprise de la feuille1)

Mon problème :

Je souhaite mettre un bouton dans la feuille 1 donc l'action serait :

Si je clique dessus, il va me placer dans la colonne C de la feuille 2 du même ID de la feuille 1

Bref, je ne trouve pas... Please HELP....

Bonjour, et bienvenue au forum !
Je ne suis pas sûre d'avoir compris ton problème. Voici ce que j'ai compris:

1. En feuille 1, tu sélectionnes une cellule contenant un ID.
2. Tu cliques sur le bouton
3. Cela t'emmène en colonne C de la feuille 2 sur la ligne du même ID qui était sélectionné en feuille 1

Est-ce bien cela ? Où réside ta difficulté ? Que n'arrives-tu pas à faire ?

1. Récupérer la valeur de la cellule active :
   
   Code:

   ---

   ActiveCell.Value

   ---

2. Chercher cette valeur dans une colonne spécifiée et obtenir la ligne à laquelle elle apparaît :
   
   Code:

   ---

   1 2	Dim i As Long i = Application.Match(ActiveCell.Value, Sheets("Feuil2").Range("A:A"), 0)

   ---

3. Sélectionner un cellule en colonne C et selon son numero de ligne (i) :
   
   Code:

   ---

   1 2	Sheets("Feuil2").Activate Sheets("Feuil2").Range("C" & i).Select

   ---

Maintenant, il faut tout mettre bout à bout ;)

EDIT : il y a un forum spécialement dédié à VBA, la prochaine fois, il faudra poser ta question concernant VBA dans ce forum. Tu auras plus de succès ;)

Bonjour,

juste en lisant l'aide VBA interne de la méthode Find …

Sans compter les nombreux exemples dans les discussions du bon forum, ici étant celui des formules de feuille de calculs …

Ou les encore bien plus nombreux exemples sur tous les autres forums !

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci pour vos réponses,

Je ne suis pas un as du VBA, je me débrouille mais avec du code bien plus simple...

Riaolle,

Tu as parfaitement compris ce que je cherchais.

Je vais essayé de suite....

Cela fonctionne à merveille !!!!

Code:

---

1 2 3 4 5 6 7 8 9

Sub search_ID()   Dim i As Long   i = Application.Match(ActiveCell.Value, Sheets("com").Range("A:A"), 0) Sheets("com").Activate Sheets("com").Range("C" & i).Select   End Sub

---