XL 2016 Sélection

JBARBE

XLDnaute Barbatruc

• 6 Juin 2020

• #2

Bonjour à tous,
J'ai eu pas mal de difficulté sur ce fichier pour écrire la macro comme elle devrait être ! comment ce fait-il !!!
En cliquant sur le bouton GO !
Bonne journée !

 

Pièces jointes

• selection.xlsm

  25.2 KB · Affichages: 7

Dernière édition: 6 Juin 2020

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 6 Juin 2020

• #3

Bonsoir @bobafric @JBARBE , le Forum

En partant du principe que l'espace est le séparateur pour trouver le nom de feuille...
Plus une gestion d'erreur si la Feuille n'est pas trouvée

Bonne soirée
@+Thierry

 

Pièces jointes

• XLD_bobafric_Repartition_By_Sheets_selection.xlsm

  23.3 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2020

• #4

Bonjour bobafric, JBARBE, _Thierry,

Dans chacune des feuilles des noms formule matricielle en A1 :

Code:

=SIERREUR(INDEX(liste!A:A;PETITE.VALEUR(SI(ESTNUM(CHERCHE(STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;31);liste!A$1:A$1000));LIGNE(liste!A$1:A$1000));LIGNE(A1)));"")

à valider par Ctrl+Maj+Entrée et tirer vers le bas.

A+

 

Pièces jointes

• selection(1).xlsx

  13.9 KB · Affichages: 3

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 7 Juin 2020

• #5

Bravo et merci pour votre travail mais désolé les gars je me suis mal expliqué.
La feuille liste contient des lignes de phrases dans lesquelles sont les noms que l'on doit extraire.
Les autres feuilles ne sont pas identifiées.
Je voudrai en tapant le nom recherché sur la feuille 1 ou 2 exemple alain blanc retrouver tousles alain blanc sur cette feuille soit alin blanc 1, alain blanc 3
je joins un exemple en espérant que ce soit plus clair
Merci beaucoup pour votre patience

 

Pièces jointes

• selection2.xlsx

  13.6 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2020

• #6

Puisqu'il n'y a plus le nom de la feuille à rechercher la formule matricielle sera plus simple.

Je vous laisse l'adapter, revenez si vous n'y arrivez pas.

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 7 Juin 2020

• #7

Salut job75
je ne suis pas très doué en macro si tu peux me donner l'exemple.
merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2020

• #8

Je n'ai jamais parlé de macro 🙄

Code:

=SIERREUR(INDEX(liste!A:A;PETITE.VALEUR(SI(ESTNUM(CHERCHE(G$3;liste!A$1:A$1000));LIGNE(liste!A$1:A$1000));LIGNE(A1)));"")

 

Pièces jointes

• selection(2).xlsx

  14.4 KB · Affichages: 4

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 7 Juin 2020

• #9

OK job j'ai compris et ça fonctionne sur l'exemple, je vais cet après midi tester sur le texte complet qui n'est pas celui de l'exemple.
A plus

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 7 Juin 2020

• #10

Re salut
Merci a tous et à job qui m'a donné la solution.
J'ai fait le test avec mon fichier et c'est nickel
Bonne journée et merci encore
Je ne vois pas ou cliquer que c'est résolu

 

Vote positif 0 Vote négatif