[résolu]Jointure/recherchev en vba

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [résolu]Jointure/recherchev en vba

ichigo56

Bonjour,

Je vous explique mon probleme, j'ai deux fichiers comportant une même colonne, et il me faut faire une jointure, apres recherche je n'ai trouver que Vlookup pour m'aider.

Et donc je me lance dans vlookup:

Je parcoure la colonne, et ajouter le vlookup a chaque ligne.
Probleme : mon Vlookup ne fonctionne pas. Je pense qu'il y a un probleme sur les champs.
si vous pouviez m'aider

Code :

Function createVlook(wk As Variant, wk2 As Variant)
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
wk.Activate
Set FL1 = ActiveWorkbook.ActiveSheet
NoCol = 24 'lecture de la colonne 1
For NoLig = 1 To Split(FL1.UsedRange.Address, "$" )(4)
Var = FL1.Cells(NoLig, NoCol)
With FL1
.Range("" & lettre_col(NoCol) & NoLig).Value = WorksheetFunction.VLookup(.Range("M" & NoLig).Value, "[" & wk2.Name & "]" & wk2.Sheets(1).Name & "!$1:$65536", 8, False)
End With
Next
Set FL1 = Nothing
End Function

exemple en dur de recherchev :

Code :

=RECHERCHEV(M1;'[Extraction_importa_cap_PR.xls]8e492742-33ad-4f15-9384-cdd5935'!$A$1:$CY$319;8;FAUX)

Message édité par ichigo56 le 04-05-2012 à 10:13:23

---------------
«C'est ainsi, que périra le monde : dans la joie générale des gens spirituels qui croiront à une farce.»

Publicité

vave

Nice to meet me

Bonjour,

Je ne crois pas qu'il faille (??) reconstituer la formule avec '[NomDuClasseur]NomDeLaFeuille! ... etc.
C'est avec .Formula ou .FormulaLocal qu'il faudrait faire ça.

Pour ton problème, essaies comme ça :

Code :

With FL1
.Range("" & lettre_col(NoCol) & NoLig).Value = WorksheetFunction.VLookup(.Range("M" & NoLig).Value, wk2.Sheets(1).Range("1:65536" ), 8, False)
End With

Par contre, attention : si la valeur n'est pas trouvée, tu auras une erreur d’exécution qu'il faudra gérer.

Message cité 1 fois

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

ichigo56

vave a écrit :

Code :

With FL1
.Range("" & lettre_col(NoCol) & NoLig).Value = WorksheetFunction.VLookup(.Range("M" & NoLig).Value, wk2.Sheets(1).Range("1:65536" ), 8, False)
End With

Par contre, attention : si la valeur n'est pas trouvée, tu auras une erreur d’exécution qu'il faudra gérer.

MErci pour l'aide, mais le probleme reste le même,impossible de lire la propriete vlookup de la classe Worksheetfunction

---------------
«C'est ainsi, que périra le monde : dans la joie générale des gens spirituels qui croiront à une farce.»

vave

Nice to meet me

Tu es sûr que la valeur cherchée est bien dans la table où tu la recherche ?

Au pire, essaies avec True à la place de False, tu verras si ça vient de ça ou pas.

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

ichigo56

Je penses qu'il y avait plusieurs chose de pas extra, le fait que certain colonne dans la recherche soit vide, je l'ai gere avec un "On Error resume next".

Et j'ai refais mon code, moins compliqué et au miracle cela fonctionne :

Code :

.Cells(NoLig, NoCol).Value = Application.WorksheetFunction.VLookup(Cells(NoLig, Colid).Value, wk2.Sheets(1).Range("1:65536" ), 8, False)

---------------
«C'est ainsi, que périra le monde : dans la joie générale des gens spirituels qui croiront à une farce.»

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[résolu]Jointure/recherchev en vba

Sujets relatifs
[RESOLU] Plusieurs "like" de suite + probleme jointure	[MySQL] Jointure sur une meme table
probleme requete sql jointure entre les tables	excel recherchev par onglets ou pas?
Requête avec jointure et multiples conditions	[RESOLU]Quel type de jointure pour ceci ?
Pbme de jointure (débutant)	RESOLU [Access 2003] Requête jointure et union
Req sur 3 fichiers Excel - Comment s'utilise RechercheV en VBA svp ?
Plus de sujets relatifs à : [résolu]Jointure/recherchev en vba

Page générée en 0.068 secondes