Re : Gestion des interventions et stock
Le code doit ressembler à cela je crois :
ThisWorkbook.Activate
Worksheets("feuil3").Select
Set rng = Worksheets("feuil3").Range("C4:Q4")
With Application.WorksheetFunction
Range("C4").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 2, False)
Range("D4").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 3, False)
Range("E4").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 4, False)
Range("F4").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 5, False)
Range("G4").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 6, False)
Range("H4").Value = .VLookup(Range("K35").Value, Clients.Range("A:G"), 7, False)
End With
End Sub
Biensur il faut le retranscrire dans mon cas mais je ne sais pas comment .... :s
help plz