Rechercher valeur dans une feuille excel non triée dans un autre Fermé

Question

Bonjour, 

Avant tout je suis novice :-(.
Mon pbm est que j'ai une feuille excel avec des valeurs (uniques) en colonne A.  J'ai un autre classeur avec potentiellement les mêmes valeurs uniques en colonne J. (les fichiers ne sont pas triés). Ce que je voudrais c'est une fonction ou macro qui permettrai de rechercher si la valeur du premier se trouve dans le second fichier et qu'excel me renvoi la valeur qui se trouve en colonne T de la ligne correspondante. (en sachant que la colonne T contient une formule mais j'ai besoin que de la valeur)

Morgothal · Answer

Bonjour,
Que signifie "avec potentiellement les mêmes valeurs uniques en colonne J" ?

Si j'ai bien compris, on a des valeurs uniques dans la colonne A d'une feuille d'un classeur A, 
on a peut-être les mêmes valeurs potentiellement uniques dans la colonne J d'une feuille d'un classeur B,
 et il faudrait renvoyer la valeur de la colonne T du classeur B si et seulement si la valeur de la colonne J est aussi dans la colonne A de la feuille du classeur B ?

Zoubs · Answer

merci pour ta réponse express.

les valeurs en colonne J sont uniques également mais il se peut qu'on ne trouve pas une ou plusieurs valeurs du premier fichier dans le deuxieme. mais tu as bien cerné le probleme c'est bien ça. je ne peut pas le faire avec la fonction recherche car mes tableaux ne sont pas triés.

pS. "et il faudrait renvoyer la valeur de la colonne T du classeur B si et seulement si la valeur de la colonne J est aussi dans la colonne A de la feuille du classeur A ".

Merci bcp

Z

Zoubs · Answer

La valeur trouvée doit être renvoyée dans le Classeur A colonne E. mais pas sous forme de formule comme il est dans le classeur B mais en valeur.

Z

michel_m · Answer

Bonjour, 
excusez l'incruste 
Macro à installer dans le classeur B 

 Option Explicit 
  
 Sub chercher_T_si() 
 Dim Derlig As Integer, Lig As integet 
 Dim Dico As Object 
 Dim T_colA(), T_colE() 
  
 Application.ScreenUpdating = False 
  
 With Sheets(1) 
     Derlig = .Columns("J").Find("*", , , , , xlPrevious).Row 
     Set Dico = CreateObject("scripting.dictionary") 
     For Lig = 1 To Derlig 
          Dico.Add .Cells(Lig, "J").Value, .Cells(Lig, "T") 
     Next 
 End With 
  
 Workbooks.Open Filename:="D:\documents\classeurA.xls"  'A ADAPTER 
 With Sheets(1) 
     .Columns("E").Clear 
      Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row 
      T_colA = Application.Transpose(.Range("A1:A" & Derlig).Value) 
      T_colE = Application.Transpose(.Range("E1:E" & Derlig).Value) 
      For Lig = 1 To Derlig 
          If Dico.exists(T_colA(Lig)) Then T_colE(Lig) = Dico.Item(T_colA(Lig)) 
     Next 
      
     With .Range("E1:E" & Derlig) 
          .Value = Application.Transpose(T_colE) 
          .Borders.Weight = xlThin 
     End With 
 End With 
 End Sub 
  

la maquette de W
https://www.cjoint.com/?3Admv54ReqF
  
 Michel

Zoubs · Answer

Salut les amis, dsl pour ce feedback tardif mais grosse aprem d'activité, 

J'ai testé la macro de michel (merci d'ailleurs).
Erreur de compilation : type défini par l'utilisateur non défini. Euh c'est du chinois ou du czech ? :-D

Z

Zoubs · Answer

Salut les amis,

Alors, j'ai fait selon les recommandations de michel, ce que j'avais oublié de dire c'est que le fichier B contenait plusieurs onglets et l'onglet ou était les infos était en 5e position. Je l'ai déplacé en 1 et Msg erreur : erreur execution '457' : Cette clé est déjà associé a un élément de cette collection. une idée d'où ça peut venir ?
Z

Rechercher valeur dans une feuille excel non triée dans un autre

6 réponses

Discussions similaires