Microsoft 365 Recherchev entre deux feuilles

Ethlios · 1 Février 2022

Bonjour à tous,

Je cherche un système à l'instar de la fonction recherchev qui me permettrai de trouver plusieurs informations avec un critère entre deux feuil Excel. Exemple, dans le fichier que je vous partage, la feuil1 sert simplement de base de données qui contient (nom/date/produit), la feuil2 elle, sert à trier les informations date/produit par nom dans un tableau.

J'espère avoir correctement exprimé ma problématique.

Merci d'avance pour votre aide !

Jacky67 · 1 Février 2022

Ethlios à dit:
Bonjour à tous,

Je cherche un système à l'instar de la fonction recherchev qui me permettrai de trouver plusieurs informations avec un critère entre deux feuil Excel. Exemple, dans le fichier que je vous partage, la feuil1 sert simplement de base de données qui contient (nom/date/produit), la feuil2 elle, sert à trier les informations date/produit par nom dans un tableau.

J'espère avoir correctement exprimé ma problématique.

Merci d'avance pour votre aide !

Bonjour à tous
Sans se casser la tête, juste sélectionner la feuil2

Jacky67 · 7 Juin 2022

Ethlios à dit:
Merci pour les explications, j'ai encore d'autres questions comment dans la macro on défini la colonne du critère qui permettra de classer les données ? Deuxième question comment faire si je veux ajouter l'information de la colonne U, en plus de A et B ?

Encore merci pour ton temps et les explications !

Ethlios

Re..
comment dans la macro on défini la colonne du critère qui permettra de classer les données ?
Les trier par "date-Produit ou nom" avant de sélectionner la feuil2
Deuxième question comment faire si je veux ajouter l'information de la colonne U, en plus de A et B ?
Ce code ajouté a la macro avant Col-col+3 copiera la colonne U

Plage.Columns(21).SpecialCells(xlCellTypeVisible).Copy Cells(2, Col + 2)

Il faudra mettre les mains dans le cambouis pour définir si l'on garde ou pas la colonne vide entre deux noms et adapter les mises en forme.

Voila tous les tiroirs sont fermés

Ethlios · 7 Juin 2022

Pour la mise en forme, je peux modifier à la main ça ne bougera plus ? Je reviens sur ma première question, quel est la ligne précise du code qui définit le critère, je n'ai pas bien compris le fonctionnement.

Jacky67 · 7 Juin 2022

Ethlios à dit:
Pour la mise en forme, je peux modifier à la main ça ne bougera plus ? Je reviens sur ma première question, quel est la ligne précise du code qui définit le critère, je n'ai pas bien compris le fonctionnement.

Re..
Si c'est le classement horizontalement des noms dont tu parles c'est sur la colonne XFD que se fait le classement, cette ligne

VB:

.Columns(16384).Sort .[XFD2], xlAscending, Header:=xlYes

Ethlios · 8 Juin 2022

Jacky67 à dit:
Re..
Si c'est le classement horizontalement des noms dont tu parles c'est sur la colonne XFD que se fait le classement, cette ligne

VB:

.Columns(16384).Sort .[XFD2], xlAscending, Header:=xlYes

Non, je parle du code qui permet de mettre le nom "Dubois" , "Dupond",.. comme critère dans l'en-tête du tableau.

Jacky67 · 8 Juin 2022

Ethlios à dit:
Non, je parle du code qui permet de mettre le nom "Dubois" , "Dupond",.. comme critère dans l'en-tête du tableau.

Regarde la pièce jointe 1141806

Re..
Il me semble l'avoir explicité dans chaque ligne
- Pour écrire le nom en ligne1
Cells(1, Col) = .Cells(i, "xfd") ' on inscrit le nom en ligne 1 colonne=col
- Pour s'en servir comme critère
Plage.AutoFilter Field:=3, Criteria1:=.Cells(i, "xfd") ' on filtre successivement sur les noms de la colonne xfd
Le tout sur une boucle de noms(i) sans doublon crée en colonne XFD

Dans l'éditeur VB en visu du code, avec la touche F8 on peut exécuter et visualiser ce que fait le code ligne par ligne

Ethlios · 9 Juin 2022

Jacky67 à dit:
Re..
Il me semble l'avoir explicité dans chaque ligne
- Pour écrire le nom en ligne1
Cells(1, Col) = .Cells(i, "xfd") ' on inscrit le nom en ligne 1 colonne=col
- Pour s'en servir comme critère
Plage.AutoFilter Field:=3, Criteria1:=.Cells(i, "xfd") ' on filtre successivement sur les noms de la colonne xfd
Le tout sur une boucle de noms(i) sans doublon crée en colonne XFD

Dans l'éditeur VB en visu du code, avec la touche F8 on peut exécuter et visualiser ce que fait le code ligne par ligne

Re,

C'est bon pour moi, j'ai retranscrit la formule dans mon fichier, cela fonctionne parfaitement, encore merci pour ton temps et tes explications !

À bientôt,

Ethlios

Microsoft 365 Recherchev entre deux feuilles

Ethlios

XLDnaute Junior

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

Ethlios

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Ethlios

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Ethlios

XLDnaute Junior

Discussions similaires