Fonction Like et filter , chaine de caratere

Question

Je viens vers se forum, pour d'éventuelles pistes; puisque je bloque sur un petit projet d'étude de musique ( performance hippique) voila mes départs soit le code suivant Dim strMusik1 as String, ' essai, et test avec Musik1 du cheval j'associe dans ma recherche 3 tableaux du types : Places_Arrivee_Chevaux = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9" ) 'si caractère "0" cheval non place, donc 11 points Fautes_Chevaux = Array( "Disqualifie", "Tombe", "Arrete", "Retrograde")'les fautes durant la période Discipline_Chevaux = Array( "plat", "monte", "attele", "obstacle", "cross", "haie", "steeple-chase")'les disciplines Regarde_Disciplines() as String Regarde_Fautes() as String Regarde_Places() as String Regarde_Incident() as String Application.ScreenUpdating = False '-------------------------' strMusik1 ="Da 1a 4a 0a (16) 9a 7m 6m" 'essai avec 1 musique' Codifier_Musik()=split(strMusik1, " ") '--analyse musique sous forme de tableau' for isik =LBound(Codifier_Musik) To UBound(Codifier_Musik) ' boucle sur le tabelau' Select Case (Codifier_Musik(isik)) True 'repere les performances et comptabilise' Case Is (Codifier_Musik(isik) Like "&#91;0-9&#93;&#91;D,T,A,Ret&#93;&#91;p,m,a,o,c,h,s&#93;" Regarde_Fautes=Filter(Filter(Filter(Filter(Fautes_Chevaux, "D", True, vbTextCompare), "T", True, vbTextCompare), "A", True, vbTextCompare), "R",True, vbTextCompare) est ce que je peux a se niveau utiliser la fonction filter de cette façon ??? For iplac=0 To UBound(Places_Arrivee_Chevaux) For ifaut=0 To UBound(Fautes_Chevaux) For idisip=0 To UBound(Discipline_Chevaux)&#93;" Je pourrais travailler sur une piste, puisque mon code se répète; là ou tous se fait, c'est avec la fonction Like, et filter par la suite, je pourrais continuer mon code avec votre piste... j'espère que j'ai été assez explicite. merci pour tous vos directives, et exemples....

Zohnya · Answer

Alors, je pense que si tu veux de l'aide ça serait plus simple de joindre ton fichier directement ^.^ J'ai du mal a saisir le rapport entre les chevaux et la musique ...

MFerrand · Answer

Sans oublier d'illustrer le résultat à obtenir, car cela est pour l'instant assez vague ...

MFerrand · Answer

Très insuffisant ! Ce qui serait souhaitable, c'est un échantillon de diverses musiques, illustrant l'éventail des cas susceptibles de se présenter, d'une part, et d'autre part le résultat à obtenir pour chacune de ces musiques. La méthode pour y parvenir ! Cela regarde chaque intervenant qui propose une solution... Inutile de chercher à lui imposer une méthode, qu'il ne suivra pas en toute logique car si elle t'avait permis d'atteindre ton but tu ne serais pas ici ! Mais en tout état de cause, on réfléchit à partir de l'objectif à atteindre et des éléments de la question dont on dispose, sans préjuger de la méthode à utiliser... En outre, des questions visant à traiter des musiques de la sorte ont déjà été posées sur le Forum. Je me souviens notamment d'un demandeur qui avec esprit d'à-propos avait fourni une doc. sur la signification de chaque élément de la musique, permettant de la lire... Je n'ai pas retrouvé ça dans mes archives, mais il serait judicieux de disposer d'une telle doc. pour travailler sur cette question...

MFerrand · Answer

Ce que j'attendais, c'est comme je l'ai dit un échantillon suffisamment étoffé de musiques, et pour chacune des musiques le résultat attendu ! Il semble que tu veuilles faire un calcul de moyenne de performances en valorisant par le rang si le cheval était classé, 11 pour le cas où il n'est pas classé (0 ou disqualifié, rétrogradé ou autre incident). Dans ce cas la solution qui me paraît la plus indiquée est une fonction personnalisée qui fasse ce calcul... Comme tu sembles vouloir différencier l'année, on pourra en tenir compte, cependant je ne te suis pas quand tu dis que à gauche de (12), (15) ou (05), c'est 2017 ! Ce que j'ai pu lire indique qu'il s'agit du changement d'année, donc respectivement à gauche des indications précitées, ce sera 2013, 2016 ou 2006... Ce que confirme les interprétations que j'ai pu lire. Evidemment pour analyser une telle chaîne, on la splitte (l'espace étant le séparateur par défaut de la fonction on peut l'omettre). On va utiliser Like (qui n'est pas une fonction mais un opérateur, comme +, -, *, &, etc.) pour détecter les éléments qui nous intéressent. Mais dans la mesure où il s'agit d'établir une valeur (moyenne), il n'y a pas lieu d'opérer toutes sortes de dissociations... On élimine les éléments qui ne correspondent pas à la recherche, et on comptabilise les valeurs de ceux qui restent pour en faire la moyenne. J'ai donc procédé à l'établissement d'une fonction comportant 3 arguments : le premier obligatoire, est la musique sous forme de valeur String (on indiquera la cellule où se trouve le texte), le second, optionnel, est la discipline , valeur String sous la forme où elle figure dans la musique : "a", "m", "p", "s", "h", "c", le troisième, optionnel est l'année, valeur numérique (que l'on pourra indiquer sous la forme 2 chiffres ou 4). Si l'année est omise, on n'en tient pas compte dans le calcul. Si l'année indiquée ne correspond pas à l'année entre parenthèses ou la suivante, la fonction renverra #N/A. Si la discipline est omise, on n'en tiendra pas compte. Si aucun résultat ne correspond à la demande, la fonction renverra #N/A, sinon elle renvoie la moyenne des valeurs trouvées. Function VMUS(mus As String, Optional dsc, Optional an) Dim msk, n, a, i%, j% Application.Volatile msk = Split(mus) For i = 0 To UBound(msk) If msk(i) Like "(*)" Then If Not IsMissing(an) Then a = Val(Replace(msk(i), "(", "")) Select Case an Mod 100 Case a + 1 For j = i + 1 To UBound(msk) msk(j) = "" Next j Case a For j = i - 1 To 0 Step -1 msk(j) = "" Next j Case Else VMUS = CVErr(xlErrNA) Exit Function End Select End If msk(i) = "": Exit For End If Next i If Not IsMissing(dsc) Then a = "*&#91;!" &amp; dsc &amp; "&#93;" For i = 0 To UBound(msk) If msk(i) Like a Then msk(i) = "" Next i End If j = 0 For i = 0 To UBound(msk) If msk(i) &lt;&gt; "" Then a = Val(msk(i)): j = j + 1 n = n + IIf(a &gt; 0, a, 11) End If Next i If j &gt; 0 Then VMUS = n / j Else VMUS = CVErr(xlErrNA) End If End Function On n'y utilise la fonction Filter, vu qu'on ne filtre rien (cette fonction est d'ailleurs d'un emploi plutôt rare d'après mes constatations). Quelques particularités à signaler : Les arguments optionnels sont laissés de type Variant pour pouvoir utiliser IsMissing. Le code est un peu long en raison de la place qu'occupe l'année : détection, prélèvement, test que l'option est demandée, élimination des éléments de l'année non voulue, et élimination de l'élément année (puisque ne contient pas de valeur). La recherche de la discipline est faite sur un modèle négatif. Exemple : si la discipline est "a", le modèle de recherche avec Like sera : "*&#91;!a&#93;", ce qui permet d'éliminer les éléments ne se terminant pas par "a". Le reste ne réclame a-priori pas d'explication... La fonction s'utilise comme toute fonction d'Excel et se recalcule lors des recalculs. Cordialement...

MFerrand · Answer

La musique qui spécifie (15), a été émise en 2016, ça c'est probable ! Je vois mal qu'on puisse faire se succéder des performances ("dernières performances") à 15 ans d'écart voir plus...