Bonjour,

j'ai un problème avec la fonction Vlookup sous vba. Le code fonctionne sous office 2003 mais pas sous 2007.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub ScrollBar_Change()
 
With Sheets("Curseur")
.Range("H31") = ScrollBar.Value / 100
.Range("G31") = (1 - .Range("H31"))
P = Application.WorksheetFunction.VLookup(Sheets("Curseur").Range("G31").Value,
Sheets("Curseur").Range("G8:J28"), 3, False)
R = Application.WorksheetFunction.VLookup(Sheets("Curseur").Range("G31").Value, 
Sheets("Curseur").Range("G8:J28"), 4, False)
MDD = Application.WorksheetFunction.HLookup(.Range("i31").Value, 
Sheets("Données").Range("D2:X27"), 7, False)
.Range("i31") = P
.Range("j31") = R
.Range("k31") = MDD
 
End With
 
End Sub
Avez-vous une idée ?
Est ce du à un code approximatif ?

Par avance merci,