vlookup avec problème sur la méthode range

Version imprimable

Bonjour a tous,

Comme le titre l'indique j'essaye de manipuler la fonction vlookup d'Excel;
au début je voulais récupérer le code via une macro auto d'excel, mais n'ayant aucune cohérence dans le code générée j'ai voulu la re-créé avec la fonction application.WorksheetFunction.vlookup or celle ci ne fonctionne pas.

mon environnement de travail: juste deux feuilles dans un meme classeur, je complete des infos de la feuil1 avec ce que je cherche dans la feuille 2, je reproduit la formule sur toute la colonne et je copie-colle spéciale les valeur dans cette meme colonne.

Je vous met mon code, peut etre ai-je oublié quelque chose:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 'les deux premiere fonctionne retourne simplement l'index de la derniere ligne utilisé de la feuille. Public Function derniereLigneFeuil1() As Integer derniereLigneFeuil1 = Sheets("Feuil1").Range("A1").End(xlDown).Row End Function Public Function derniereLigneArbreService() As Integer derniereLigneArbreService = Sheets("Arbre_services").Range("A1").End(xlDown).Row End Function Public Sub azerty() With Application.WorksheetFunction 'pour completer les Entité vides .VLookup Feuil1.Range("C2"), Sheets("Arbre_services").Range("D2:E" & derniereLigneArbreService), 2, False 'Feuil1.Range("C2").FormulaR1C1 = "=VLOOKUP(RC[6],Service_hyper_libellserv_niv2!C[1]:C[2],2,FALSE)" Feuil1.Range("C2").Select Selection.AutoFill Destination:=Feuil1.Range("C2:C" & derniereLigneFeuil1) Feuil1.Range("C2:C" & derniereLigneFeuil1).Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Feuil1.Range("A1").Select End With End Sub
La seconde methode qui est en commentaire est la methode générée automatiquement par Excel. Comment détermine t'ilRC[6] & C[1]:C[2] ?

Par avance merci

15/09/2009, 10h16
mercatog

Pas sur de comprendre
tu as dans feuille1 des données manquants dans colonne C
dans cette même colonne tu fais ceci?

Code:

Application.WorksheetFunction.VLookup Feuil1.Range("C2"), Sheets("Arbre_services").Range("D2:E" & derniereLigneArbreService), 2, False

!!!!????? Tu cherches quoi et où tu le mets???
derniereLigneArbreService vaut quoi dans ta sub azerty????

Je propose que tu ré explique ton problème; Ta sub n'est ni correcte ni cohérente!

Code:

1 2 3 4 5 6 7 Public Sub azerty() With Application.WorksheetFunction 'pour completer les Entité vides Set maRange = Sheets("Service_hyper_libellserv_niv2").Range("D2:E" & derniereLigneServiceHyperLibelleServ) Feuil1.Range("C2") = .VLookup(Feuil1.Range("J2"), maRange, 2, False) End With End Sub
on va prendre que cette partie du code.
Je veux mettre dans la Cellule C2 de ma feuil1 le résultat de la rechercheV
ma rechercheV va comparer la cellule J2 de ma feuil1 avec le contenu de ma feuille "Service_hyper_libellserv_niv2".

15/09/2009, 10h50
Fvandermeulen

Citation:

Envoyé par Nako_lito

...
La seconde methode qui est en commentaire est la methode générée automatiquement par Excel. Comment détermine t'ilRC[6] & C[1]:C[2] ?
...

Pour cette question, le principe R1C1 fonctionne sur base d'une référence, c'est à dire la cellule de base. les nombres indiques les "déplacements" R pour les Lignes et C pour les colonnes. Donc si en A1, R[2]C[3] vaut D3

Dans ton cas, la cellule C2 de la Feuil1 est la "référence" donc
RC[6] renvoi à I1; les [] indique que la formule n'est pas figée (pas de $ dans Excel)
C[1]:C[2]; étant donné qu'il n'y a pas de R, on parle de colonne entière, toujours basé sur C2 on décalle de 1 et 2 par rapport à C => on recherche sur les colonnes D:E

J'espère avoir été clair et pour le reste je laisse faire les autres, ils ont bien commencé. :ccool:

A+

Une proposition avec le Find

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim shtF As Worksheet, shtS As Worksheet
Dim c As Range
Dim LastLigF As Long, LastLigS As Long
Dim i As Integer
 
Set shtF = Sheets("Feuil1")
Set shtS = Sheets("Service_hyper_libellserv_niv2")
LastLigF = shtF.Range("J65336").End(xlUp).Row
LastLigS = shtS.Range("D65336").End(xlUp).Row
 
For i = 2 To LastLigF
    Set c = shtS.Range("D2:D" & LastLigS).Find(shtF.Range("J" & i), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then shtF.Range("C" & i) = c.Offset(0, 1)
Next i
 
Set shtF = Nothing
Set shtS = Nothing

merci pour vos réponse, j'ai trouvé mon bonheur en cherchant et je pense que ma méthode est pas trop mal:

Code:

1
2
3
4
5
6
7
8
9
Public Sub azerty()
    Dim Cel As Range, rangeEntite As Range
    Set rangeTravail = Feuil1.Range("C2:C" & derniereLigneFeuil1)
    Set maRange = Sheets("Service_hyper_libellserv_niv2").Range("D2:E" & derniereLigneServiceHyperLibelleServ)
            'complete les champs vide dans les entité par rapport au code service niveau 2
        For Each Cel In rangeTravail
            Cel.FormulaR1C1 = Application.WorksheetFunction.VLookup(Feuil1.Range("I" & Cel.Row), maRange, 2, False)
        Next Cel
End sub