recherche dans 52 feuilles

[sesa]

Bonsoir le forum,

J'aimerais savoir si il est possible de faire une recherche ciblée dans 52 feuilles,
et cela dans la colonne "b", ayant le nombre de fois le mot :
DIF
Exemple : feuille une : 6 fois, feuille deux : 4 fois ; le but est de connaitre la totalité des 52 feuilles.

Merci d'avance.

 

[ChTi160]

Re : recherche dans 52 feuilles

Salut sesa
Bonsoir le fil
Bonsoir le Forum

en pièce jointe une approche de ce que j'ai cru comprendre(pas de fichier exemple)

Le Fichier : Regarde la pièce jointe TestRecup.xls

Bonne Fin de Soirée

 

[tototiti2008]

Re : recherche dans 52 feuilles

Bonjour à tous,

Moi je propose une formule par feuille

=Nb.si(Feuil2!B:B;"DIF")

et le total en dessous

 

[sesa]

Re : recherche dans 52 feuilles

Bonsoir le forum, et le FIL

D'abord merci ChTi160 et tototiti2008,

Chti, si je souhaite changer DIF par un autre mot et rechercher dans une colonne
comme je dois modifier cette commande ?
Car je me suis rendu dans visual basic et rien...normalement cela doit apparaîte dedans.
Est il possible de déplacer cette feuille dans un autre classeur ayant les 52 feuilles ?
Et est ce que cela fontionnera ?
Merci de votre aide.

 

[cibleo]

Re : recherche dans 52 feuilles

Bonsoir sesa,

Ci-joint un fichier élaboré avec l'aide du forum il y a quelques semaines.

Regarde si cela peut te convenir. A adapter à ta convenance.

Tu cliques sur le bouton "Rechercher".

Amicalement cibleo.

 

[ChTi160]

Re : recherche dans 52 feuilles

Salut sesa
Bonsoir le fil
Bonsoir le Forum
Arff moi je fais , Atl + F11 et j'ai bien vu le code, qui se trouve dans le Module1
pour ce qui est du mot à rechercher ,dans l'exemple, il suffit de changer le mot de la cellule B2 de la feuille Feuil1
Ensuite sans fichier exemple , dur dur de deviner
Donc si tu avais mis un fichier exemple de ce que tu as et de ce que tu veux , plus de personnes auraient planché sur ta question,avec explications ....
donc mets nous un exemple et l'on va gagner du temps Lol

dans l'attente

Bonne fin de Soirée

 

[tactic6]

Re : recherche dans 52 feuilles

Bonjour le forum et tous les autres

je regarde avec intérêt le fil de cette discution et aimerais comprendre un truc
-pour limiter la recherche à une seule feuille (exemple à la feuille 2)
Quelle ligne change t' on au code de ChTi160 ?

Sub Test()
Set Ws_Cible = Worksheets("Feuil1")
StrSearch = Ws_Cible.Range("B2")
x = -1
For Each Ws In Worksheets
  If Ws.Name <> Ws_Cible.Name Then
    x = x + 1
    With Ws
       Derligne = .Range("B65536").End(xlUp).Row
         Set Maplage = .Range(.Cells(1, 2), .Cells(Derligne, 2))
       ReDim Preserve TabRecap(3, x)
          TabRecap(0, x) = Ws.Name
          TabRecap(1, x) = StrSearch
          TabRecap(2, x) = Application.WorksheetFunction.CountIf(Maplage, StrSearch)
    End With
  
  
  End If
    
Next
Ws_Cible.Range("A4").Resize(UBound(TabRecap, 2) + 1, UBound(TabRecap, 1)) = Application.Transpose(TabRecap)
End Sub

je suppose que c'est celle ci

For Each Ws In Worksheets

oui mais par quoi ??
Merci et très bonne journée

 

[ChTi160]

Re : recherche dans 52 feuilles

Salut tactic6
Bonjour le Fil
Bonjour le Forum

Effectivement il faut supprimer la boucle,qui passe en revue les feuilles
soit For Each Ws in Worksheets et Next ainsi que le test qui sert à déterminer la feuille qui ne sera pas prise en compte , soit If Ws.Name <> Ws_Cible.Name Then et End If

Dim Ws_Source As Worksheet 'on affecte à une variable la feuille 
      'qui sera celle qui va servir de Source
  Sub Test()
  Set Ws_Source=Worksheets("Feuil2")'Pour l'exemple
  Set Ws_Cible = Worksheets("Feuil1")
  StrSearch = Ws_Cible.Range("B2")
  x = -1
  With Ws_Source 
     x = x + 1
        Derligne = .Range("B65536").End(xlUp).Row
           Set Maplage = .Range(.Cells(1, 2), .Cells(Derligne, 2))
    ReDim Preserve TabRecap(3, x)
       TabRecap(0, x) = Ws.Name
       TabRecap(1, x) = StrSearch
       TabRecap(2, x) = Application.WorksheetFunction.CountIf(Maplage, StrSearch)
      End With
   
  Ws_Cible.Range("A4").Resize(UBound(TabRecap, 2) + 1,UBound(TabRecap, 1))=Application.Transpose(TabRecap)
  End Sub

en espérant avoir répondu à ta demande
n'hésite pas si problème
Bonne journée

 

[papapaul]

Re : recherche dans 52 feuilles

🙂 Salut Forum, sesa, cibleo, tactic, Chti
J'aime bien ta solution de recherche Chti,
et tu as raison, un ptiot fichier non de dious....
Ce serait plus facile.
J'ai beaucoup plancher sur ce sujet y a quelques temps.
Alors j'arrive comme un cheveu sur la soupe mais voici une
de mes nombreuses variantes. (certains reconnaitront,
gruick, bruno, robert et bien d'autres, merci à eux)

Ici j'ai opté pour une solution avec USF.(3 listbox)
Le répérage des doublons est automatique
dans une feuille et des colonnes choisies
(pas d'outil de recherche dans cette version mais on pourrait )
Le comptage se fait dans une listbox,
on met des couleurs comme on veut pour bien les repérer.

Ca colle peut être pas vraiment bien au fil mais si tactic ou sesa
ou d'autres sont intéressés ? 🙄 Pourquoi pas un nouveau fil
avec des questions précises et un petit fichier,
on pourra surement faire quelque chose.

Amitiés à tous🙂

 

[ChTi160]

Re : recherche dans 52 feuilles

Salut papapaul 😛

je viens de mettre à l'abri ton Fichier, cela peut effectivement s'adapter à une recherche .
Bonne journée
Merci 😉

 

[tactic6]

Re : recherche dans 52 feuilles

Merci a tous les deux c'est super ce que vous arrivez à faire
@papapaul ton code est .. tout simplement splendide mais malheureusement je n'ai pas les compétences nécessaires pour pouvoir l'adapter a mes besoins
en fait ce que recherche c'est un userform qui fait une recherche par mot clé dans une feuille, qui liste tout ce qu'il trouve et qu'en suite par double clic qu'on transfert l 'objet sélectionné dans une autre feuille.
Pour le moment je me contente de voir comment vous faites pour essayer d'apprendre un max mais pfiouuu c'est hard
@ChTi160 merci j'aurais jamais trouvé comment on fait

Bonne journée à tous

 

[tactic6]

Re : recherche dans 52 feuilles

Re ChTi160
j'ai pas réussi a integrer ton code correctement
j'ai erreur 91
Variable objet ou variable de bloc with non défini
a la ligne

TabRecap(0, x) = Ws.Name

Bon appétit à tous

 

[papapaul]

Re : recherche dans 52 feuilles

🙂 Salut Forum, excuse à sesa, ( détournement du sujet 🙄)
Tactic aurait du creer un nouveau fil mais bon ...

Voici un truc que j'avais bricolé pour Wanka.
Sur la feuille 1, tu va trouver une récap (copie)
de toutes les autres feuilles qui est faite avec la Macro1.(maj)
Avec recherche tu vois le résultat dans une listbox,
le dblclick s'applique seulement pour une ligne
de la liste et donc tu est "transporté" sur le mot
de ton choix sur la feuille1 (récap).
Tu peux aussi imprimer le résultat de la recherche.
C'est un début.
C'est pas trés clair ta question.
Veux tu copier l'ensemble des lignes ou se trouve
le mot recherché sur une autre feuille?

Faire autre chose ?

On va y arriver😀

Amitiés à tous

 

[tactic6]

Re : recherche dans 52 feuilles

Re tout le monde
en effet je me rend compte que je detourne le probleme de sesa à mon avantage et m'en escuse platement
sesa j'espere que tu ne m'en veux pas et que ton probleme sera vite resolu
merci papapaul 1° d'avoir fait cette remarque (et 2° de m'aider)

Edit

papapaul on y est presque
je veux juste que le double clic aille sur une autre feuille de saisie
merci je vais approfondir
si je dois changer de fil faite le moi savoir
merci

 

[papapaul]

Re : recherche dans 52 feuilles

🙂 Re Tactic,
Dblclick vers une autre feuille de saisie ?
Nouvelle feuille ?
Feuille ou il y a déja des lignes ?
Remplacer ou ajouter les résultats ?

On peut tout faire mais que veux tu exactement ?🙄