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.

 

[tactic6]

Re : recherche dans 52 feuilles

Re
ton fichier me convient parfaitement rien a redire
il me place sur la ligne choisie et j'ai déjà un double clic qui me transfert la ligne ailleurs c'est super comme ça
je vais juste essayer de modifier un peu l'userform afin de retrecir la premiere colonne tripler la deuxieme et diminuer les autres
je pense que c'est faisable via Alt F11

@ sesa ton problème est résolu ?

Merci à tous

 

[papapaul]

Re : recherche dans 52 feuilles

🙂 Re Tactic
Pour modifier les largeurs c'est sur la ligne rouge
mais je pense que tu a déja trouvé 😀

Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 8
.ColumnWidths = "80;30;60;60;60;70;60;40"
End With
Me.Caption = Sign
Me.CommandButton1.Default = True
End Sub

🙄 J'ai oublié de préciser que cet outil de recherche,
on le doit à notre ami Thierry, je l'ai trouvé tellement
sensationnel que depuis que je suis tombé dessus un
peu par hasard, ca m'a mis accro du VBA ...(je suis pas le seul)

Quant à sesa, on voudrait bien l'aider aussi mais ....zzz ??

Amitiés à tous.😉

 

[tactic6]

Re : recherche dans 52 feuilles

Re papapaul
et non j'avais pas trouvé
merci encore

 

[sesa]

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

Bonsoir le forum, le fil,
Tout d'abord merci à tous pour votre attention et si ce poste a permi d'ouvrir des alternatives et ben tant mieux..c'est fait pour ça.

Chti, je te joins le fichier avec des commentaires sachant que celui_ ci est un exemple. Le vrai comporte 52 feuilles.
par la même occasion, quelle est la fonction qui permet de compter le nombre de cellules occupées ds une feuille et cela dans une colonne, comme A

Sesa🙂

 

[tactic6]

Re : recherche dans 52 feuilles

Bonjour,
le premier exemple de ChTi160 ne te convient pas ? ou tu n'arrives pas à l'adapter ?

 

[ChTi160]

Re : recherche dans 52 feuilles

Salut sesa
Bonjour le fil
pour répondre à ta question
La Fonction : NB.SI(Plage;Critére) , le permet
Exemple

=NB.SI(A:A;"<>")

' te donne le nombre de cellules non vides dans la Colonne A

ensuite pour tactic6 le message d'erreur as tu bien déclarer les variables as tu ajoutés du code etc

pour ce qui est du nouveau ficher,rien a voir avec la question initiale

je vais regarder

Bonne journée

 

[ChTi160]

Re : recherche dans 52 feuilles

Re

un exemple de ce que j'ai cru comprendre 😕

Le Fichier :Regarde la pièce jointe test recherche-V1.zip

à adapter surement !!!!!

Bonne Journée

 

[sesa]

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.

Bonjour le forum, le fil,

C'est vraiment fort ce que vous faites tous, des pros.
Bravo ChTi160, c'est ça que je voulais merci bcp.
Je vais essayer de l'adapter à mon classeur de 52 feuilles

Bonne journée à tous

 

[sesa]

Re : recherche dans 52 feuilles

Une dernière question, pour copier le fichier qui a été élaboré par ChTi160, je sélectionne toutes les feuilles puis enregistrer dans le classeur de 52 feuilles.
Est ce que cela marchera ? 😕

merci de vos réponses

 

[ChTi160]

Re : recherche dans 52 feuilles

re Attention
dans le fichier exemple j'ai fait en sorte que toutes les feuilles soient prises en compte excepté la Feuille Feuil4 qui est la feuille ou l'on récupère les données

donc adapter le code Alt plus F11
ici

Set Ws_Cible = Worksheets("Feuil4")

coller tes 52 feuilles et supprimer celles qui ne servent plus
tu ouvre les deux classeur et tu fais coller / déplacer et oupssssssss 😉
de ton classeur vers le mien .
n'hésite pas si problème

Bonne journée

 

[sesa]

Re : recherche dans 52 feuilles

Bonjour le forum, le fil, et ChTi160,

Chti160,

Merci, ça marche nickel.
J'ai effectué les changements de cette façon :
ouverture des deux fichiers, le tiens et le mien, ensuite sélectionner toutes mes feuilles (52) et déplacer ou copier en créant une copie vers destination ton classeur.
Par contre, je n'ai pas apporté de modif dans le code :
Set Ws_Cible = Worksheets("Feuil4")
J'espère que cela n'aura pas de conséquence sur l'ensemble de mes feuilles.

Merci à tous

 

[ChTi160]

Re : recherche dans 52 feuilles

Salut sesa
Bonjour le Fil
Bonjour le Forum

content que cela fonctionne
si tu veux vraiment modifié le nom de ta feuille,il te faudra Modifier la macro

La ligne

Set Ws_Cible = Worksheets("[COLOR=Blue]Feuil4[/COLOR]")

Tu changes Feuil4 par le nom que tu veux
Exemple

Set Ws_Cible = Worksheets("[COLOR=Blue]Données[/COLOR]")

n'hésite pas si problème

Bonne journée