Formule vlookup

Version imprimable

Formule vlookup

salut,

j'ai fais une macro, qui mets en forme certaines données de ma colonne A et
qui copie une formule avec un vlookup et la j'ai une erreur du type :

Run-time error 1004 : application-defined or object-defined error

je ne comprends pas pourquoi il me met cette erreur si quelqu'un pouvait éclairer ma lanterne

en fait quand je remplace cette formule par du texte style toto ca fonctionne sans probleme.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
 
 
 
Public Sub checkconsolidation()
 
Dim i As Integer
Dim nbligne As Integer
Dim myvalue As String
Dim val1 As String
Dim sum1 As Double
Dim val2 As String
Dim sum2 As Double
Dim rowdebut As Integer
Dim myformule As String
 
myformule = "=VLOOKUP(A:A;'H:\My Documents\inter\Thoms\[VlookupConso EURODOC Mar 2007.xls]Sheet1'!$A$4:$I$113;9;FALSE)"
Debug.Print myformule
 
    nbligne = ActiveSheet.UsedRange.Rows.Count
    Debug.Print nbligne
 
For i = 2 To nbligne
 
    myvalue = Replace(Cells(i, 1).Value, " ", "")
    Debug.Print myvalue
 
    If Len(myvalue) = 2 Or Len(myvalue) = 3 Then
    myvalue = Replace(Cells(i, 1).Value, ".", "")
    Debug.Print myvalue
    Cells(i, 1).Value = CInt(myvalue)
    End If
 
 
        Debug.Print myformule
       ' MsgBox myformule
 
        If Len(Cells(i, 1).Value) >= 1 And Len(Cells(i, 1).Value) <= 4 Then
 
            Debug.Print Len(Cells(i, 1).Value)
            Debug.Print Cells(i, 1).Value
 
            Cells(i, 11).Value = myformule
            Cells(i, 12).Value = "=K" & i & "*F" & i
            Debug.Print Cells(i, 12).Value
 
        End If
 
        If Cells(i, 2) = "Price position" Then
        rowdebut = i
        Debug.Print rowdebut
        End If
 
Next i
 
'-------mise en page-------'
Cells(rowdebut, 11).Value = "PRIX CONTRAT"
Cells(rowdebut, 11).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Selection.Columns.AutoFit
 
Cells(rowdebut, 12).Value = "TOTAL"
Cells(rowdebut, 12).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Selection.Columns.AutoFit
'----------------------'
 
'---------SUM----------'
Cells(nbligne + 5, 10).Value = "=SUM(J" & rowdebut & ":J" & nbligne & ")"
Cells(nbligne + 5, 12).Value = "=SUM(L" & rowdebut & ":L" & nbligne & ")"
Cells(nbligne + 4, 12).Value = "TOTAL"
 
Cells(nbligne + 4, 12).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Selection.Columns.AutoFit
 
 
Cells(nbligne + 4, 13).Value = "DIFFERENCE"
 
Cells(nbligne + 4, 13).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Selection.Columns.AutoFit
 
Cells(nbligne + 5, 13).Value = "=L" & (nbligne + 5) & "-" & "J" & (nbligne + 5)
'----------------------'
 
 
MsgBox ("It's done")
 
End Sub

cette phrase est soulignée:

Code:

1
2
 
Cells(i, 11).Value = myformule

merci pour votre aide

;)

25/09/2007, 12h44
ouskel'n'or

Teste déjà avec Formula à la place de value
Si ça ne fonctionne pas, je regarderai plus loin. ;)
25/09/2007, 12h55
LeForestier

Bonjour,
D'aprés le libellé de l'erreur tu est probablement dans un excel Anglais,
si Formula ne fonctionne pas essaye...

Code:

Cells(i, 11).FormulaLocal = myformule

Et tu va suremment avoir d'autre erreurs plus bas, il faudra y appliquer la modif.
A+
25/09/2007, 14h18
megapacman
donc j'ai changé ici :
Code:

1 2 3 Cells(i, 11).FormulaLocal = myformule
le soucis c'est a chaque fois il me demande de selectionner le fichier pourtant dans le vlookup il y est le chemin
Code:

1 2 =VLOOKUP(A:A;'H:\My Documents\inter\Thoms\[VlookupConso EURODOC Mar 2007.xls]Sheet1'!$A$4:$I$113;9;FALSE)
a chaque fois (environ une centaine de fois lol :) ) je dois faire ok

y a pas un moyen qu'il mette juste le texte dans la cellule sans qu'il regarde ce que c'est

merci ;)
25/09/2007, 14h21
ouskel'n'or

Code:

Application.DisplayAlerts = False

... que tu mets en début de code
25/09/2007, 14h27
megapacman

dans la case ou est la formule , il affiche #N/A
25/09/2007, 14h34
ouskel'n'or

Ça semblerait vouloir dire que tu as une erreur dans ta formule. Un coup sur la touche F9, rien que pour voir...
Si pas de changement, va falloir qu'on décortique ta formule.

Citation:

=VLOOKUP(A:A;'H:\My Documents\inter\Thoms\[VlookupConso EURODOC Mar 2007.xls]Sheet1'!$A$4:$I$113;9;FALSE)

Ton fichier "VlookupConso EURODOC Mar 2007.xls" est ouvert ou non ?
25/09/2007, 14h37
LeForestier

En principe #N/A signifie qu'il n'y a pas d'erreur mais que les valeurs en référence ne sont pas disponnibles. Ton tableau est déjà rempli avec les valeurs ?
A+
25/09/2007, 14h41
ouskel'n'or

Remplace déjà tous tes point-virgule par des virgules, on verra après ;)
25/09/2007, 14h42
megapacman

avec

Cells(i, 11).FormulaLocal = myformule

pour chaque ligne avec la formule une fenetre s ouvre (udate values)et je selectionne mon fichier VlookupConso EURODOC Mar 2007.xls et la bonne valeur se mets dans la cellule c'est ok mais je dois le faire pour chaque ligne avec la formule soit environ 100 lignes
25/09/2007, 14h50
megapacman

j'ai remplacé le ; en , :

myformule = "=VLOOKUP(A:A,'H:\My Documents\inter\Thoms\[VlookupConso EURODOC Mar 2007.xls]Sheet1'!$A$4:$I$113,9,FALSE)"

et non il veut ;
25/09/2007, 14h59
cafeine

Hello,

je pige pas le sens d'un vlookup dont la valeur cherchée est A:A ... pour moi, la valeur cherchée ne peut pas être une plage, non ?
25/09/2007, 14h59
ouskel'n'or

S'il veut des ; c'est que tu es en français, auquel cas avec une formule en anglais, mets Formula et refais un test...

Zut ! il va vraiment falloir qu'on se plonge dans ta formule... :(

ok maintenant ca fonctionne voici le code ca peu servir :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
 
 
Public Sub checkconsolidation()
 
Dim i As Integer
Dim nbligne As Integer
Dim myvalue As String
Dim val1 As String
Dim sum1 As Double
Dim val2 As String
Dim sum2 As Double
Dim rowdebut As Integer
Dim myformule As String
 
Application.DisplayAlerts = False
 
myformule = "=VLOOKUP(A:A;'H:\My Documents\inter\Thoms\[VlookupConso EURODOC Mar 2007.xls]Sheet1'!$A$4:$I$113;9;FALSE)"
Debug.Print myformule
 
    nbligne = ActiveSheet.UsedRange.Rows.Count
    Debug.Print nbligne
 
For i = 2 To nbligne
 
    myvalue = Replace(Cells(i, 1).Value, " ", "")
    Debug.Print myvalue
 
    If Len(myvalue) = 2 Or Len(myvalue) = 3 Then
    myvalue = Replace(Cells(i, 1).Value, ".", "")
    Debug.Print myvalue
    Cells(i, 1).Value = CInt(myvalue)
    End If
 
 
        Debug.Print myformule
       ' MsgBox myformule
 
        If Len(Cells(i, 1).Value) >= 1 And Len(Cells(i, 1).Value) <= 4 Then
 
            Debug.Print Len(Cells(i, 1).Value)
            Debug.Print Cells(i, 1).Value
 
            Cells(i, 11).FormulaLocal = myformule
            'Cells(i, 11).Formula = myformule
 
            Cells(i, 12).Value = "=K" & i & "*F" & i
            Debug.Print Cells(i, 12).Value
 
        End If
 
        If Cells(i, 2) = "Price position" Then
        rowdebut = i
        Debug.Print rowdebut
        End If
 
Next i
 
'-------mise en page-------'
Cells(rowdebut, 11).Value = "PRIX CONTRAT"
Cells(rowdebut, 11).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Selection.Columns.AutoFit
 
Cells(rowdebut, 12).Value = "TOTAL"
Cells(rowdebut, 12).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Selection.Columns.AutoFit
'----------------------'
 
'---------SUM----------'
Cells(nbligne + 5, 10).Value = "=SUM(J" & rowdebut & ":J" & nbligne & ")"
Cells(nbligne + 5, 12).Value = "=SUM(L" & rowdebut & ":L" & nbligne & ")"
Cells(nbligne + 4, 12).Value = "TOTAL"
 
Cells(nbligne + 4, 12).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Cells(nbligne + 5, 12).Select
Selection.NumberFormat = "#,##0.00"
 
Selection.Columns.AutoFit
 
 
Cells(nbligne + 4, 13).Value = "DIFFERENCE"
 
Cells(nbligne + 4, 13).Select
Selection.Font.Bold = True
 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
Selection.Columns.AutoFit
 
Cells(nbligne + 5, 13).Value = "=L" & (nbligne + 5) & "-" & "J" & (nbligne + 5)
Cells(nbligne + 5, 13).Select
Selection.NumberFormat = "#,##0.00"
'----------------------'
 
 
MsgBox ("It's done")
 
End Sub

merci pour votre aide

au moins j'ai appris un truc aujourd'hui une formule c'est pas comme du texte

super merci ;)