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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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