Discussion :

[solorac]

Bonjour la communauté,

Je vous expose mon pb, j'ai une liste de produit qui ont plusieurs résultats possible. Lorsque je fais une recherchev il me donne tjs le premier résultat.

Ex :
Col A Col B
D1210 : Disque 40
D1210 : Disque 50
D1210 : Disque 60

Comment faire pour afficher les résultats Disque 50 et disque 60 ?

Car si je fais =recherchev(f125;$a$1:$b$541;2;0) pour la réf D1210 il me donne a chaque fois le résultat : Disque 40.

Merci et à bientôt

[Daranc]

Salut
si ta référence recoupe plusieurs réponses celles ci doivent être dans la même "fiche"
autrement dit ta référence dans une colonne les renvois dans les colonnes suivantes
a111a00 disque_10 disque_20 disque_50 disque_60
le retour se fera par
rechercheV (critere ;tableau; 2;faux) rechercheV (critere ;tableau; 3;faux) rechercheV (critere ;tableau; 4;faux) rechercheV (critere ;tableau; 5;faux)
la réponse retournera 0 si le colonne est vide
à toi de formater les cellules réponse pour la présentation
mais une une mini base de donnée sous excel doit être ordonnée ligne par ligne chaque ligne étant une fiche chaque cellule un champ ; les données doivent occupées la colonne champs qui leur est attribuée
ce qui peut être par ex un tableau de bougie d'allumage fabricant en horizontal
marque de voiture en verticale N° de blister en donnée pour une même référence plusieurs possibilités
Daranc

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function rmult(valcherch As Variant, x As Range, colonne As Long) As Variant
Dim u As Variant
Dim nb As Long
Dim boucle As Long
For boucle = 1 To x.Rows.Count
If x(boucle, 1) = valcherch Then
u = u & "|" & x(boucle, colonne)
nb = nb + 1
End If
Next boucle
'u = nb & u
rmult = u
End Function

[Daranc]

Chapeau
Daranc
en regardant comment s'articuler la logique de la construction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function RMult(valcherch As Variant, zone As Long, x As Range, colonne As Long) As Variant
'Fonction de Random
Dim u As Variant
'Dim nb As Long      je n'ai pas vu l'utilité de nb 
Dim boucle As Long
For boucle = 1 To x.Rows.Count
If x(boucle, zone) = valcherch Then ' rajout de zone pour definir la colonne de test
u = u & x(boucle, colonne) & " / " ' là j'ai interverti (question de gout perso)
'nb = nb + 1  ' ? 
End If
Next boucle
'u = nb & u
RMult = u
End Function

Personellement j'ai récupéré un outils qui va bien me servir
Merci Random

[solorac]

Merci Messieurs, vous êtes vraiment bons
Bonne journée

[random]

j'ai évité / et \ ainsi que ; et , parcequ'il s'agit de caractères réservés | est disponible
par contre la position est meilleure en fait j'avais prévu de renvoyer
nb éléments|elément 1.... dans une matrice

et j'ai changé d'avis par souci de didactisme

mais dans l'absolu cela aurait été meilleur car on pouvait ainsi manipuler
le résulta avec toutes les formules acceptant une matrice en paramètre

le premier | est donc resté

[Daranc]

mais dans l'absolu cela aurait été meilleur car on pouvait ainsi manipuler
le résulta avec toutes les formules acceptant une matrice en paramètre

Les matrices en plus . il faut faire un XLA
Cordialement
Daranc

[random]

voici ce qui était prévu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function rmult(valcherch As Variant, x As Range, colonne As Long) As Variant
Dim u As Variant
Dim nb As Long
Dim boucle As Long
For boucle = 1 To x.Rows.Count
If x(boucle, 1) = valcherch Then
u = u & "|" & x(boucle, colonne)
nb = nb + 1
End If
Next boucle
u = nb & u
rmult = Split(u, "|")
End Function

ce qui permet en faisant =index(rmult(...);1;1) d'obtenir le nombre d'occurences
puis index(rmult(...);1;2) pour obtenir la première

[Daranc]

Salut Random
J'ai un retour d'erreur #REF! lorsque la fonction est mise à index(rmult();2;1) apparemment l'instruction Split n'accepte le paramètre 2 que dans Access par contre j'ai bien le nombre d'occurrences de la valeur pointée (équivalent à nb sur le première colonne)
Daranc

[random]

index(rmult(...);1;2) pardon

[Daranc]

seule une autorité supérieur est apte à pardonné
moi je n'ai rien à pardonner juste à remercier
bon trêves de philosophie la deuxième donnée
index(rmult(...);1;2) me retourne juste la première
valeur trouvé (comme un RECHERCHEV classique)
Daranc
PS si je suis longuet sur la réponse c'est que je suis légèrement Ultra-sur-hyper-booquer (mais léger hein?)

[random]

index(rmult(...);1;1) retourne le nombre d'occurences
index(rmult(...);1;n) retourne l'occurence n-1

avec un index(rmult();1;colonne()-x) et un recopie à droite ou
un
index(rmult();1;ligne()-y) et recopie vers le bas

on dévoile tout

[Daranc]

Désolé je suis un peu lourd mais je ne comprends pas la finalité
je te joins un fichier de mes essais avec les résultats obtenus
est -il possible qu'il me manque une bibliothèque?
Daranc

[random]

comme ca

[Daranc]

Ok j'ai vu le principe
les résultats sont en colonne ; la fonction n'a plus besoin du " | " en séparateur de liste (je m'acharnais sur " 4 | 8 | 7 |" comme résultat)
mais dans ce cas la fonction est plus pointue à mettre en œuvre
Daranc

[random]

exact mais on est récompensé en y accédant de façon parfaitement précise
de plus j'ai renvoyé le résulta en ligne mais j'aurais pu le renvoyer en colonne ou sur des feuilles différentes

l'autre version de la fonction permttant d'obtenir une seule chaîne
reste à englober l'ensemble dans une fonction unique
avec ajout d'un paramètre optional

visu:=1

si visu=1 ou ismissing on renvoie la chaine
si visu=2 on renvoie le nombre d'items
si visu=3 on renvoie le nombre d'items plus le split
si visu=4 on renvoie le split seul

il serait sage aussi de transformer les items numériques du split en val(item)
et de renvoyer une valeur propre

[Daranc]

exact mais on est récompensé en y accédant de façon parfaitement précise
de plus j'ai renvoyé le résulta en ligne mais j'aurais pu le renvoyer en colonne ou sur des feuilles différentes

l'autre version de la fonction permttant d'obtenir une seule chaîne
reste à englober l'ensemble dans une fonction unique
avec ajout d'un paramètre optional

visu:=1

si visu=1 ou ismissing on renvoie la chaine
si visu=2 on renvoie le nombre d'items
si visu=3 on renvoie le nombre d'items plus le split
si visu=4 on renvoie le split seul

il serait sage aussi de transformer les items numériques du split en val(item)
et de renvoyer une valeur propre

j'ai abandonné l'hébreu en première année ,première heure
là je lâche
de ce que j'en ai compris: Y aurait-il un développement futur d'un complément un beau ?
Cordialement
Daranc

[solorac]

Bonjour la Communauté,

Je reviens sur cette question que j'avais posé en septembre dernier.
Les réponses proposées sont excellentes si l'on sait utiliser les macros.
Seulement si l'on y comprend rien comme moi, on est dans la mouisse.

Donc j'aimerai savoir si il y aurait un autre moyen en utilisant la fonction recherchev, d'afficher l'ensemble des résultats et non seulement le premier.

Je vous remercie

Je vous joins un fichier explicatif

[cafeine]

Non, recherchev n'est pas paramétré pour renvoyer une matrice.
En même temps, random t'a concocté une fonction toute faite où, il n'y a à mon sens rien à trifouiller dans le VBA.

En mon temps, j'avais posté une fonction ni plus ni moins bonne que celle de l'excellent random :
http://www.developpez.net/forums/sho...d.php?t=403086

[lbar012001]

hello à tous
une idée pour obtenir, non pas une chaine reprenant les valeurs multiples trouvées
mais par ex la somme de ces valeurs multiples trouvées ?

@+
laurent