Discussion :

[ayudame_joel]

Bonjour à tous ceux qui voudront bien m'aider,

étant novice en programmation, j'ai un problème qui est le suivant :

Je recherche à créer une fonction qui :
- me recherche des valeurs (dans différentes listes) que je lui mettrai en argument ( 4 arguments exactement)
- une fois ces valeurs trouvées, me retourner la valeur correspondant à la combinaison de mes 4 arguments.

En gros, je suis entrain de créer un pricer et pour certains calculs dans mon pricer, j'ai un fichier qui contient des taux et je veux retrouver ces taux selon certains critères qui sont mes 4 arguments. Ce taux sera ensuite utilisé pour faire d'autre calculs.

Je mets en PJ, un exemple du fichier en question. Mes argumetns dans mon fichier sont :a1 a2 a3 a4 et la valeur a retourner est ar.


Merci beaucoup

[Menhir]

Je recherche à créer une fonction qui :
- me recherche des valeurs (dans différentes listes) que je lui mettrai en argument ( 4 arguments exactement)
- une fois ces valeurs trouvées, me retourner la valeur correspondant à la combinaison de mes 4 arguments.

Tu crées une colonne (éventuellement masquée) dans laquelle tu mets la concaténation des quatre autres colonnes et ton problème se résume à l'utilisation d'une simple fonction RECHERCHEV().

[ayudame_joel]

Tu crées une colonne (éventuellement masquée) dans laquelle tu mets la concaténation des quatre autres colonnes et ton problème se résume à l'utilisation d'une simple fonction RECHERCHEV().

Merci beaucoup d'avoir répondu mais je me suis fait mal expliqué je crois. Initialement, je n'ai que les colonnes A et B. Tous ce qui suit je l'ai fais moi même histoire de dé-concatener la colonne A.
Je me suis re-expliqué dans un nouveau fichier que j'ai mis en PJ.

[MarcelG]

Bonjour,

Je ne vois pas ce que cela change.
SANS VBA
Tu effectues une rechercheV dans la colonne A sur la concaténation de tes 4 arguments, en retournant la donnée correspondante en colonne B.
Exemple en 5ème ligne,

=RECHERCHEV(N8&"-"&O8&"-"&TEXTE(P8;"0#")&SI(NBCAR(Q8)>0;"-"&Q8;"");A2:B13;2)

te retourne bien

3.1

Attention.
Au préalable.
Purge les cellules de la colonne A des blancs se trouvant en début et/ou fin de cellule
(En VBA, TRIM, RTRIM, LTRIM)

[Theze]

Bonjour,

Franchement, pas facile de comprendre !
Bon, de ce que j'ai compris, tu veux savoir le pourcentage de présence du code indiqué dans tes cellules N8 à Q8 par rapport à l'ensemble des codes de la colonne A ? Si c'est ça, tu peux tester avec SommeProd()

Code :

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

1
2
 
=SOMMEPROD((I2:I13=N8)*(J2:J13=O8)*(K2:K13=P8)*(L2:L13=Q8))/(NBVAL(A:A)-1)

Dans tes codes, il y a des espaces parasites qui vont fausser les résultats (utilises NBCAR() pour voir !)
Pour l'exemple, si je prend la ligne 8 dont le code est "0-2-10-3D" (après suppression des espaces) le pourcentage indiqué par la formule est 8,33% (0,0833) car le code est seul

[MarcelG]

Salut Theze,

Sauf erreur, la table qui retourne la valeur cherchée ne contient que 2 colonnes.
La recherche doit donc s'effectuer sur la concaténation des 4 paramètres entrés.

[ayudame_joel]

Merci beaucoup pour toutes vos propositions. Vos idées étaient bonnes sauf qu'elles ne me donnaient pas le résultat escompté tel que je le voyais. Surement que je me suis mal expliqué.

Sinon j'ai pu résoudre mon soucis en appliquant ce petit programme qu'une amie m'a envoyé, ça pourrait peut être aider quelqu'un un jour, qui sait? :

Code :

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

1
2
3
4
5
6
Sub testa()
Sheets("feuil1").Activate
 
Range("r8").Value = Range("N8").Value & "-" & Range("O8").Value & "-" & Range("P8").Value & "-" & Range("q8").Value
Range("t8").Value = Application.VLookup(Sheets("feuil1").Range("R8"), Sheets("feuil1").Range("A2:L13"), 2, faux)
End Sub

Ca marche très bien pour ce que je veux faire, j'ai juste à transformer ça en formule.