Traduction Excel vers VBA tableau listobject

Version imprimable

Bonjour à tous. :)

Ma demande d'aide : dans quelle direction dois-je chercher pour trouver mon erreur ?

J'ai une formule Excel qui fonctionne très bien :

Code:

=SI(ESTNA(INDEX(A1 : D3;SOMMEPROD(EQUIV(G1 & H1 & I1 & J1;A1:A3 & B1:B3 & C1:C3 & D1 : D3;0) * 1);4));"Pas de résultat";"Résultat")

Quand je l'enregistre via macro, elle devient :

Code:

"=IF(ISNA(INDEX(A1:D3,SUMPRODUCT(MATCH(G1 & H1 & I1 & J1,A1:A3 & B1:B3 & C1:C3 & D1:D3,0) * 1),4)),""Pas de résultat"",""Résultat"")"

Or, je voudrais la faire fonctionner avec les tableaux listobject.
J'ai donc adapté le code ci-dessus par :
Code:

1 2 3 4 5 Dim wsFullDatas As Worksheet Set wsFullDatas = ThisWorkbook.Worksheets("Full Datas") Dim varTableauFullDatas As ListObject Set varTableauFullDatas = wsFullDatas.ListObjects("TableauFullDatas") If IsNA(Index(varTableauFullDatas, SumProduct(Match((ComboBoxAddNewFlowCountryName & ComboBoxAddNewFlowRange & CDbl(TextBoxWaveNumber) & CDbl(TextBoxAddNewFlowNbCR)), (varTableauFullDatas([@COUNTRY]) & varTableauFullDatas([@RANGE]) & varTableauFullDatas([@WAVE]) & varTableauFullDatas([@NB CR])), 0) * 1), 4)) Then
Mais quand je lance la macro, j'obtiens un message d'avertissement "Erreur de compilation : nombre d'arguments incorrect ou affectation de propriété incorrecte", en ciblant l'utilisation de "varTableauFullDatas([@COUNTRY])"

Ma demande d'aide : dans quelle direction dois-je chercher pour trouver mon erreur ?

Merci d'avance !!! :)

20/02/2019, 11h49
Philippe Tulliez

Bonjour,
Il faudrait que tu places le code que tu publies entre les balises prévues à cet effet dans l'éditeur des messages. C'est le bouton avec croisillon #
J'ai des doutes quant au fait que la ligne de code ci-dessous fonctionne car tu mélanges une formule excel avec du code VBA. Soit tu passes par la fonction EVALUATE soit tu écris cette formule d'excel directement dans le classeur soit encore tu traduis cette ligne de code en instructions VBA

Citation:

Code:

If IsNA(Index(varTableauFullDatas, SumProduct(Match((ComboBoxAddNewFlowCountryName & ComboBoxAddNewFlowRange & CDbl(TextBoxWaveNumber) & CDbl(TextBoxAddNewFlowNbCR)), (varTableauFullDatas([@COUNTRY]) & varTableauFullDatas([@RANGE]) & varTableauFullDatas([@WAVE]) & varTableauFullDatas([@NB CR])), 0) * 1), 4))
20/02/2019, 12h00
benoitdevries

Citation:

Envoyé par Philippe Tulliez

Il faudrait que tu places le code que tu publies entre les balises prévues à cet effet dans l'éditeur des messages. C'est le bouton avec croisillon #

Voilà c'est fait, sorry :p

Je teste ce que tu me proposes, et je reviens vers toi.

Merci pour ton aide :)
20/02/2019, 13h06
benoitdevries

Peut-être que je m'y prend mal ...
Je récupère 4 infos d'un Userform (2 combobox et 2 textbox) et je veux les ajouter sur la même ligne au tableau (TableauFullDatas) si ces 4 infos n'y sont pas déjà (une info par colonne de la même ligne).
20/02/2019, 13h31
Philippe Tulliez

Bonjour,

Citation:

Peut-être que je m'y prend mal ...
Je récupère 4 infos d'un Userform (2 combobox et 2 textbox) et je veux les ajouter sur la même ligne au tableau (TableauFullDatas) si ces 4 infos n'y sont pas déjà (une info par colonne de la même ligne).

J'avoue ne pas comprendre le lien entre ta demande initiale où tu parles de modifier une formule d'excel pour l'intégrer en VBA et ton dernier post.
21/02/2019, 11h09
benoitdevries

Citation:

Envoyé par Philippe Tulliez

Bonjour,

J'avoue ne pas comprendre le lien entre ta demande initiale où tu parles de modifier une formule d'excel pour l'intégrer en VBA et ton dernier post.

Je rebondissais sur ta phrase " tu mélanges une formule excel avec du code VBA". Donc je remettais en question ma demande initiale.

Je tente donc de traduire en VBA
Code:

1 2 3 4 5 6 7 Dim t_TableauFullDatas As ListObject Set t_TableauFullDatas = ThisWorkbook.Worksheets("Full Datas").ListObjects("TableauFullDatas") If Application.IsNA(Application.Index(t_TableauFullDatas, Application.SumProduct(Application.Match(ComboBoxAddNewFlowCountryName & ComboBoxAddNewFlowRange & CDbl(TextBoxWaveNumber) & CDbl(TextBoxAddNewFlowNbCR), t_TableauFullDatas.ListColumns("COUNTRY").Range.Column & t_TableauFullDatas.ListColumns("Range").Range.Column & t_TableauFullDatas.ListColumns("WAVE").Range.Column & t_TableauFullDatas.ListColumns("NB CR").Range.Column, 0) * 1), 4)) Then msgbox ("Pas trouvé") else: msgbox ("Champagne !") end if
Je précise que :
- t_TableauFullDatas est le nom d'un tableau structuré
- ComboBoxAddNewFlowCountryName. ComboBoxAddNewFlowRange sont du texte provenant de ComboBox issus d'un UserForm
- TextBoxWaveNumber et TextBoxAddNewFlowNbCR sont des nombres de TextBox issus du même UserForm que les ComboBox.

Lorsque j'exécute cette macro, le userForm s'ouvre et je peux saisir mes 4 valeurs. Au clic sur le bouton "Valider" j'obtiens une "erreur d'exécution '13' Incompatibilité de type".

Bonjour,
Voici un exemple avec EVALUATE qui me semble plus simple.
Dans cet exemple, le nom

de la feuille : Feuil1
du tableau structuré : T_Test
les étiquettes de colonnes : Ref1 à Ref4

La formule dans une cellule d'Excel

Code:

=SI(ESTNA(INDEX(A2:D4;SOMMEPROD(EQUIV(G1 & H1 & I1 & J1;T_Test[Ref1] & T_Test[Ref2] & T_Test[Ref3] & T_Test[Ref4];0) * 1);4));"Pas de résultat";"Résultat")

Le code VBA
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub T() ' Déclaration Variables et constantes Const SheetName As String = "Feuil1" Const TableName As String = "T_Test" Const Formula As String = "=IF(ISNA(INDEX(A2:D4,SUMPRODUCT(MATCH(G1 & H1 & I1 & J1,T_Test[Ref1] & T_Test[Ref2] & T_Test[Ref3] & T_Test[Ref4],0) * 1),4)),""Pas de résultat"",""Résultat"")" Dim t_TableauFullDatas As ListObject ' Affectation des variables Set t_TableauFullDatas = ThisWorkbook.Worksheets(SheetName).ListObjects(TableName) MsgBox Evaluate(Formula) Set t_TableauFullDatas = Nothing End Sub

26/02/2019, 14h40
benoitdevries

Merci à nouveau pour ta réponse, Philippe.

Ça fonctionne très bien si je copie les valeurs saisies depuis mon Userform dans des cellules de ma feuille. :)

Mais ça ne fonctionne pas quand je tente de traiter directement les infos saisies dans le Userform.
Je vais rester comme ça, en attendant la quatrième partie du tuto de Pierre Fauconnier sur les Tableaux structurés. Il annonce en effet "Le quatrième tutoriel fera la jonction entre formulaire lié aux données et tableaux structurés."
26/02/2019, 18h50
Philippe Tulliez

Bonjour Benoît,

Citation:

Ça fonctionne très bien si je copie les valeurs saisies depuis mon Userform dans des cellules de ma feuille.
Mais ça ne fonctionne pas quand je tente de traiter directement les infos saisies dans le Userform.

Je ne saisi pas bien la différence.
A mon avis le problème ne vient pas de la manière de gérer la lecture/écriture sur le tableau structuré mais sans doute de la manière de transmettre ce qui est géré dans les différents contrôles du UserForm
27/02/2019, 11h06
benoitdevries

Citation:

Envoyé par Philippe Tulliez

A mon avis le problème ne vient pas de la manière de gérer la lecture/écriture sur le tableau structuré mais sans doute de la manière de transmettre ce qui est géré dans les différents contrôles du UserForm

J'en suis arrivé à la même conclusion.