Excel et VBA Résolu/Fermé

Question

Bonjour, 

J'ai un petit souci. J'ai un fichier excel dans lequel j'ai de nombreuse feuille. Dans ce fichier je stock le nom de toutes les machines d'une entreprise (feuille1). J'ai une seconde feuille qui reprend certain de ces noms de machine (feuille2).
J'aimerai faire en sorte que lorsque je clique sur un des nom de machine dans la feuille2 cela effectue une recherche pour trouver cette machine dans la feuille1.

Cela est-il possible ? Je pensait le faire par macro ou par VBA mais je sèche un peu et le VBA sous excel et très différent du VBA sous visual studio. Help me please :) 

Cordialement,

michel_m · Answer

Bonjour,

La demande est un peu floue

Quelque soit le langage utilisé, un code est unique pour un besoin et un contexte

Prend du recul avant d'apporter ces précisions et n-oublie pas que nous n'avons que ce que tu écris pour essayer de t'aider

au besoin et en expliquant ce que tu veux faire

mettre un extrait du  classeur sans données confidentielles, au format Excel 97-2003, en pièce jointe sur
https://www.cjoint.com/ 
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse

Utilisateur anonyme · Answer

Je vais un peu répondre de travers...

Mais, tout simplement :

-1- Copie le nom de la machine recherché (feuil2)
-2- Ctrl + F (feuil1)
-3- Coller
-4- "Rechercher"

Sinon, si tu veux vraiment automatiser (méthode longue si beaucoup de machine mais surement moins long que la création de macro...) :

-1- Clique droit sur le nom de la machine recherché (feuil2)
-2- "Lien hypertexte"
-3- "Emplacement dans ce document" (à gauche de la fenêtre apparue)
-4- Ecrit la référence de la cellule d'arrivé et sélectionne la feuil1 dans la liste en dessous

Submin · Answer

Je te propose ceci en VBA... plutot simpliste dis moi si c'est ce que tu cherche! Quand tu va clic dans la feuille2 ça vient rechercher la valeur dans la feuille 1 le terme sur lequel tu as cliqué et ça te le sélectionne  


Ceci est pour detecter que tu as cliqué sur une cellule.  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  

     If ActiveSheet = Feuil2  then  
          Module1.Recherche  
     End If  
      
End Sub



Ceci est dans ton module 1 :  

Option Private Module  

Public Sub Recherche()  
    Dim memo As String  
      
    memo = ActiveCell.Value  
      
    Sheets(2).Select  
    Cells.Find(What:="" & memo & "", After:=Cells(1, 1), LookIn:=xlFormulas, LookAt _  
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
        False, SearchFormat:=False).Activate  

End Sub




Dis moi si c'est ce que tu recherches! 
Je suis un peu prétention mais a mon avis tu vas aimer et je vais avoir le droit a mon petit +1 :D  

Bonne continuation ;)