Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2726 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA : Problème recherchev Vlookup

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA : Problème recherchev Vlookup

n°2002131
C0rleone
Posté le 16-06-2010 à 12:16:13  profilanswer
 

Bonjour,  
 
je suis novice en programmation, je dois programmer certaines macro. Je m'en suis sorti tant bien que mal pour certaines fonctions mais là,je butte sur le recherchev que j'ai besoin d'utiliser pour rechercher une désignation à un code. J'effectue une recherche sur un autre classeur qui est ouvert seulement ça me met un pb d'erreur 1004 : impossible de lire la propriété Vlookup.  
 
voici des bouts de mon code qui pourront vous permettre de voir où sont les erreurs :  
 
Dim Chemin As String
Chemin = "C:\test macro\Inventaire.002"
Dim Chemin2 As String
Chemin2 = "C:\test macro\code_article.xls"
Dim Destination As String
Destination = "C:\test macro\Inventaire.xls"
Dim CodeArticle As String
Dim c As Integer
Dim Designation As String
Dim Inventaire As Workbook
Set Inventaire = Workbooks.Open(Chemin)
Dim code_article As Workbook
Set code_article = Workbooks.Open(Chemin2)
Inventaire.Activate
 
 
c = 2
While Not IsEmpty(Cells(c, 1))
CodeArticle = Cells(c, 1).Value
MsgBox CodeArticle
Designation = WorksheetFunction.VLookup(CodeArticle, code_article.Sheets("Feuil1" ).Range("A:B" ), 2, False)
If CodeArticle <> "" Then Cells(c, 2).Value = Designation
c = c + 1
Wend
 
 
 
Dans mes tableaux, j'ai tous mes codes dans une colonne et ensuite toutes mes désignations dans une autre,etc...
 
Mais j'ai pu me rendre compte suite à plusieurs essai que lorsque je fais des itérations avec sous la forme (1,c) au lieu de descendre à la ligne du dessous ça passe la colonne d'à côté.
 
Merci d'avance pour votre aide, je galère depuis hier

mood
Publicité
Posté le 16-06-2010 à 12:16:13  profilanswer
 

n°2002275
SuppotDeSa​Tante
Aka dje69r
Posté le 16-06-2010 à 16:23:24  profilanswer
 

Hello
 
A mon avis c'est ici que ca coince :
 
Designation = WorksheetFunction.VLookup(CodeArticle, code_article.Sheets("Feuil1" ).Range("A:B" ), 2, False)  
 
 
Essaie plutot un truc comme ca (j'ai pas testé)
Designation = WorksheetFunction.VLookup(CodeArticle, WorkBooks(code_article.name).Sheets("Feuil1" ).Range("A:B" ), 2, False)


---------------
Soyez malin, louez entre voisins !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA : Problème recherchev Vlookup

 

Sujets relatifs
Probleme sur la copie de fichier[c] probleme codeblocks
Problème LIMIT avec requête préparée PDO[RESOLU] Problème Requête Mondrian/JPivot
Depouillement sondage VBAProblème avec une entrée de tache.
verouillage partiel cellules Excel /via VBAVBA-Bouton dynamique-Petit coup de pouce
Problème d'accentProblème accéder l'élement DOM (parsing html)
Plus de sujets relatifs à : VBA : Problème recherchev Vlookup


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR