Au Secourrrrrrrs

[bingo57]

bonsoir


j'ai telecharger un moteur de recherche pour excel qui fonctionne uniquement sur la premiere feuille quand je rajoute une feuille il ne fonctionne pas sur celle ci merci de votre aide.....

fichier joint. Too Files - Hébergement Gratuit de Fichiers - Aucune limite

 

[Banzai64]

Re : Au Secourrrrrrrs

Bonsoir

Un début mais pas trop testé

Remplace

ActiveWorkbook.Sheets("donnees")

par

ActiveSheet

Sauf dans la procédure Private Sub UserForm_Initialize()

 

[bingo57]

Re : Au Secourrrrrrrs

ok merci je vais essayer

 

[bingo57]

Re : Au Secourrrrrrrs

il me repond toujours la meme chose text non trouvé

 

[Compte Supprimé 979]

Re : Au Secourrrrrrrs

Salut Bingo57,

Essaye en changeant le code :

    'Set ws = ActiveWorkbook.Sheets("donnees")

Par :

Set ws = ActiveWorkbook.ActiveSheet

A+

 

[bingo57]

Re : Au Secourrrrrrrs

c'est fait fonctionne toujours pas
reponse texte non trouvé

 

[Banzai64]

Re : Au Secourrrrrrrs

Bonsoir

Le texte que tu recherches tu es sur qu'il est dans la page
Et d'après ce que j'avais vu il faut mettre le texte à chercher dans le textbox à gauche

 

[bingo57]

Re : Au Secourrrrrrrs

oui sur la premiere feuille pas de probleme sur les suivantes
elles sont vierges tu mets n'importe quel texte reponse texte non trouvé

 

[skoobi]

Re : Au Secourrrrrrrs

Bonsoir le fil,

1- il faudrait que tu expliques ton userform.
2- Si la recherche ne donne rien sur la feuille "donnees", il faut que la recherche se poursuive sur la feuille suivante etc...?

 

[bingo57]

Re : Au Secourrrrrrrs

sur la feuille de donnée elle fonctionne c'est sur les suivantes qu'il y a probleme

exact skoobi

 

[Banzai64]

Re : Au Secourrrrrrrs

Bonsoir

A vérifier dans la page 'Feuil2'

 

[bingo57]

Re : Au Secourrrrrrrs

merci je vais essayer

 

[bingo57]

Re : Au Secourrrrrrrs

merci les champions tout fonctionne grace a vous

bonne fin de soirée