vlookup qui ne marche pas

[Sebast]

Bonjour,

je suis débutant en VBA et me débats avec une formule vlookup qui marche "à l'artisanale" (c'est à dire en la tirant à la main) mais refuse de fonctionner dans du code(même avec worksheetFunction.vlookup etc.)

J'ai tout détaillé dans le fichier joint (Essai.xlsm : un onglet avec ma demande, 2 onglets avec les tables).

Merci d'avance à tous ceux qui se pencheront sur mon problème (au demeurant probablement trivial pour les connaisseurs)

Sebast

 

[david84]

Re : vlookup qui ne marche pas

Bonjour,
à tester :

Sub coller_nom()
Dim sstt As Double, DerLigne As Double, i As Double
DerLigne = Sheets("Volumes").Range("A" & Rows.Count).End(xlUp).Row
Dim operateur As Variant
    With Sheets("volumes")
        For i = 2 To DerLigne
            operateur = WorksheetFunction.VLookup(.Cells(i, 1), Range("zone"), 5, False)
            .Cells(i, 5) = operateur
        Next i
    End With
End Sub

A+

 

[kjin]

Re : vlookup qui ne marche pas

Bonjour,
Essaies comme ceci

Sub rechv()
Dim c As Range
With Feuil2
Set c = .Range("E2:E" & .Range("A65000").End(xlUp).Row)
End With
With c
    .Formula = "=INDEX('Sous-traitants'!E:E,MATCH(A2,'Sous-traitants'!A:A,0))"
    '.Value = .Value 'décoche cette ligne si tu veux remplacer les formules par leur valeur
End With
End Sub

Edit : salut David 🙂, juste un peu à la bourre...
A+
kjin

 

[Sebast]

Re : vlookup qui ne marche pas

Super,
ça marche impecc !
Merci beaucoup

 

[Sebast]

Re : vlookup qui ne marche pas

salut David,

merci beaucoup pour ton aide. C'est un peu complexe mais ça permet de découvrir d'autres méthodes !
Encore merci et bravo pour ta réactivité
Sebast