XL 2016 Recherchev multi-critères en VBA

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2018

• #2

Bonjour Sb_OS,

Une piste par formules en utilisant deux colonnes auxiliaires nommées aux.
Les trois formules sont des formules matricielles à valider par Ctrl+Maj+Entrée au lieu de la seule touche Entrée.

A l'avenir bannissez les cellules fusionnées pour des bases de données. Ça complique les recherches et tris.

 

Pièces jointes

• Sb_OS- rechercev- v1.xlsx

  10.3 KB · Affichages: 31

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 12 Juin 2018

• #3

Bonjour mapomme,

je vous remercie pour votre proposition qui fonctionne parfaitement, mais j'ai vraiment besoin que ça soit en VBA car les utilisateurs du fichier supprime souvent les formules
pour les cellules fusionnées c vrais qu elles compliquent la recherche mais elles facilite l'importation via la BDD.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 12 Juin 2018

• #4

Bonjour Sb_OS

Salut tapomme
A tester

 

Pièces jointes

• rechercev.xlsm

  16.7 KB · Affichages: 48

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2018

• #5

Re @Sb_OS ,

en VBA...

edit: Bonjour @pierrejean , @Lone-wolf

 

Pièces jointes

• Sb_OS- rechercev- v2.xlsm

  18.3 KB · Affichages: 38

Dernière édition: 12 Juin 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Juin 2018

• #6

Bonjour Sb_OS, pierrejean, sapomme

 

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 12 Juin 2018

• #7

Bonjour @Lone-wolf @mapomme @pierrejean ,

Merci à vous, les deux solutions marchent parfaitement, celui de pierrejean si vous voulez l'optimiser il faut rajouter une instruction qui efface la mémoire (suppression des anciens OK dans la feuil 2) mais en tout cas ce code sera associer dans mon vrais fichier (mon usine à gaz ) avec un autre code qui à la base efface les Ok une fois ils sont utilisés .
Merci les maîtres.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 12 Juin 2018

• #8

Re

Version corrigée

 

Pièces jointes

• rechercev.xlsm

  17.5 KB · Affichages: 39

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2018

• #9

Re, @Sb_OS,

Version qui efface la colonne E de Feuil2 avant de la compléter à nouveau.

 

Pièces jointes

• Sb_OS- rechercev- v2a.xlsm

  18.3 KB · Affichages: 39

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 12 Juin 2018

• #10

C est parfait merci Messieurs

 

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 20 Juin 2018

• #11

Bonjour le Fil,

@pierrejean , j'ai utilisé votre code et je l'ai associé à plusieurs d'autre dans mon application mais j'ai rencontré des problèmes de lourdeur vu qu'il y a trop d'instructions en relation. donc je suis entrain d'optimiser la chose.
j'ai une petite demande : si vous pouvez adapté le code pour que quand il y a Fait dans la colonne E de la feuil 1 au lieux de mettre OK dans la colonne I de la feuil 2 il me fait (m, G) value = (m, G) value + 1 (dans la feuil 2).
J'ai essayé de faire avec with feuil2 ... (m, 5) .value = .(m, 5) .value +1 et ça n'a pas marché
je joint un fichier.

@mapomme si vous avez une proposition elle est la bienvenue !

Merci

 

Pièces jointes

• test.xlsm

  28.8 KB · Affichages: 32

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Juin 2018

• #12

Re

Le .Value ne s'applique pas a un tableau !!!

 

Pièces jointes

• test (52).xlsm

  22.7 KB · Affichages: 34

Vote positif 0 Vote négatif

S

Sb_OS

XLDnaute Junior

• 20 Juin 2018

• #13

Ah d'accord une info que je viens d'apprendre de votre part merci beaucoup

 

Vote positif 0 Vote négatif