tri automatique

[surcouf1515]

bonjour ,

je voudrais créer un fichier excel de toutes mes docs fournisseurs qui seront rangées dans des dossiers suspendus par ordre alphabétique.

soit l'exemple suivant :

fournisseur motclé1 motclé2 motclé3 motclé4 motclé5

fournisseur1 A B C D E
fournisseur2 A G D J L
fournisseur3 L H Q T B
fournisseur4 H O P N W
fournisseur5 J T R Z S
fournisseur6 C L M P Y
fournisseur7 Q S D F G
fournisseur8 H J K L P
fournisseur9 W X C V B
fournisseur10 K D R G Y
fournisseur11 F T H U K
fournisseur12 Q E D R U
fournisseur13 N J I O P
fournisseur14 W S E X D


je désire :

*-une moulinette dans laquelle je rentre 1 ou plusieurs mot clés ( A,W par exemple )
elle me sort une liste alphabétique des fournisseurs correspondants
si possible dans une feuille de calcul temporaire indépendante de mon fichier fournisseur
fournisseur 1 A B C D E
fournisseur 2 A G D J L
fournisseur 4 H O P N W
fournisseur 9 W X C V B
fournisseur 14 W S E X D

*- pouvoir completer mon fichier excel ultérieurement et au fil du temps

*- je ne veux pas travailler dans un fichier texte tout moche

quelqu'un as t il une telle moulinette (ou un logiciel de gestion de docs )

honnetement je n'ai pas le courage de me lancer dans la prog visualbasic

merci

 

[GIBI]

Re : tri automatique

Bonsoir,


si je comprend la demande un simple filtre automatique permet d'obtenir le résultat ('menu données/filtre).

Pour mieux comprendre merci de fournir un exemple excel

GIBI

 

[surcouf1515]

bonjour et merci ,

mon problème est que la donnée peut être dans une des 5 colonnes "mot clé"
et que je peut vouloir chercher 2 ou plus mots clés en même temps

je joins le fichier excel

j'essaie d'etre clair 🙂

merci et bonne soirée

 

[BOISGONTIER]

Re : tri automatique

Bonsoir,

Voir PJ

Avec le filtre élaboré:

Critère:
=OU(ESTNUM(EQUIV($C$2;BD!E2:I2;0));ESTNUM(EQUIV($D$2;BD!E2:I2;0));ESTNUM(EQUIV($E$2;BD!E2:I2;0)))

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([C2:E2], Target) Is Nothing And Target.Count = 1 Then
    Sheets("BD").Range("A1:I10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A6:I6"), Unique:=False
   End If
End Sub


Formule critère           Mot cle 1   Mot cle 2   Mot cle 3			
VRAI                         B              M             W				
									
Fournisseur	distributeur	infosdiverses1	infosdiverses2	MotCle1	MotCle2	MotCle3	MotCle4	MotCle5
fournisseur 1	 	 	 	A	B	C	D	E
fournisseur 3				L	H	Q	T	B
fournisseur 4				H	O	P	N	W
fournisseur 6				C	L	M	P	Y
fournisseur 9				W	X	C	V	B
fournisseur 14				W	S	E	X	D

JB

 

[surcouf1515]

Re : tri automatique

bonjour et merci ,

j'ai juste jeté un coup d'oeil pour l'instant et Je suis impressionné.

 

[surcouf1515]

Re : tri automatique

bonjour ,

et si dans l'onglet BD j'ajoute des fournisseurs ( avec des mots clés nouveaux tant qu'à faire )

ça fonctionne en automatique ?

ou bien un petit bouton de mise à jour

vu la complexité des formules je veux pas y toucher ............🙂

a+

 

[BOISGONTIER]

Re : tri automatique

Bonjour,

Prévu pour 10.000 lignes et 50 mots clés
Si + de mots clés, adapter formule en colonne L

JB

 

[surcouf1515]

Re : tri automatique

rebonjour ,

si je veux faire la recherche sur un seul mot clé je sélectionne "0" dans les autres ?


j'ai ajouté dans l'onglet BD :

fournisseur 15 vis K G écrou E

"vis" et "écrou" n'apparait pas dans les menus déroulants "mot clé" de l'onglet interro

par contre si je met "fer" dans un des mots clés d'un fournisseur existant "1 à 14" il apparait

c'est "(BD!E2:I15)" en colonne "L" le problème ? la limitation à la ligne 15 ?

a+

désolé si j'abuse

 

[BOISGONTIER]

Re : tri automatique

Voir PJ

JB