OVH Cloud OVH Cloud

Utilisation de Evaluate

1 réponse
Avatar
René Delcourt
Bonjour à toutes et à tous,

L'utilisation de Evaluate comme ci-dessous me rend une erreur 2015.
Quelqu'un voit-il pourquoi?

Dim AdrMail As Variant
Dim X As Integer
NbAgn = ActiveSheet.PivotTables("TCD").PivotFields("CP").PivotItems.Count
For X = 1 To NbAgn
Agn(X) = ActiveSheet.PivotTables("TCD").PivotFields("CP").PivotItems(X)
AdrMail = Evaluate("VLookup(" & Agn(X) & ", Mails.xls!AgencesMails, 2, False")
Next
--
René Delcourt

1 réponse

Avatar
anonymousA
Bonjour,

en supposant que la plage de rcherche sur la feuille AgenceMails soit
A2:B6.De plus, il n'est pas fait mention d'un tableau Agn() dans tes
déclarations de variables.J'ai donc simplement remplacé ce tableau
éventuel par une variable classique.
Enfin, l'utilisation de Cdbl est là pour transformer un string éventuel
en chiffre mais toutes les variations sur le même thème sont évidemment
possibles.

Dim AdrMail As Variant
Dim X As Integer
NbAgn = ActiveSheet.PivotTables(1).PivotFields("CP").PivotItems.Count
For X = 1 To NbAgn
AgnX = ActiveSheet.PivotTables(1).PivotFields("CP").PivotItems(X)
AdrMail = Application.WorksheetFunction.VLookup(CDbl(AgnX),
Workbooks("Mails.xls").Sheets("AgencesMails").Range("A2:B6"), 2, 0)
Next

A+


Bonjour à toutes et à tous,

L'utilisation de Evaluate comme ci-dessous me rend une erreur 2015.
Quelqu'un voit-il pourquoi?

Dim AdrMail As Variant
Dim X As Integer
NbAgn = ActiveSheet.PivotTables("TCD").PivotFields("CP").PivotItems.Count
For X = 1 To NbAgn
Agn(X) = ActiveSheet.PivotTables("TCD").PivotFields("CP").PivotItems(X)
AdrMail = Evaluate("VLookup(" & Agn(X) & ", Mails.xls!AgencesMails, 2, False")
Next