Discussion :

[benoitdevries]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

[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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNA(Index(varTableauFullDatas, SumProduct(Match((ComboBoxAddNewFlowCountryName & ComboBoxAddNewFlowRange & CDbl(TextBoxWaveNumber) & CDbl(TextBoxAddNewFlowNbCR)), (varTableauFullDatas([@COUNTRY]) & varTableauFullDatas([@RANGE]) & varTableauFullDatas([@WAVE]) & varTableauFullDatas([@NB CR])), 0) * 1), 4))

[benoitdevries]

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

[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).

[Philippe Tulliez]

Bonjour,

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.

[benoitdevries]

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.