Corriger bug barre de recherche

Bonsoir,

pour la recherche référent remplacez ceci :

Sub Referent()
Sheets(3).Select
Sheets(3).Unprotect ("admin")
Sheets(3).Range("$A$3").End(xlDown).AutoFilter
With Sheets(1).Select
'case contenant la recherche:
tro = Sheets(1).Range("O13")
End With
Sheets(3).Select
Sheets(3).Range("$A$3").End(xlDown).AutoFilter Field:=9, Criteria1:=tro
Sheets(3).Protect ("admin")
End Sub

par :

Sub Referent()
Sheets(3).Activate
Sheets(3).Unprotect ("admin")
Sheets(3).Range("$A$3").End(xlDown).AutoFilter
'case contenant la recherche:
tro = Sheets(1).Range("O13")
Sheets(3).Range("$A$3").End(xlDown).AutoFilter Field:=9, Criteria1:=tro
Sheets(3).Protect ("admin")
End Sub

Comme dit dans des messages avant, évitez le Select, surtout à mon avis avec un "With" !

le With Sheets(1).select n'a rien à faire dans un code ! Je dirais même plus ici il n'y en a pas besoin !

J'essaie de voir le reste

@ bientôt

LouReeD

Pour :

- Lors du choix de la recherche "par fonction",

moi j'ai un rectangle par dessus avec écrit "en travaux", autant c'est une partie du programme qui n'est pas codée...

êtes vous certain que cette partie est fonctionnelle ?

@ bientôt

LouReeD

Il y a une erreur qui me semble normale, mais je n'y connaît rien en VBA :

Private Sub WorkSheet_Change....

Surveillance événementielle de la feuille active, qui détecte le changement d'une donnée

à la suite il y a Unprotect ("admin") pour déprotéger quoi ?

En effet VBA est un code orienté objet, ne faut il pas mette ActiveSheet à minima ?

Le groupe 60, vous le trouver si vous ouvrez le volet de sélection des shapes, dans le ruban menu accueil, complètement à droite il y le bouton sélection / recherche, dans le menu déroulant tout en bas, "afficher le volet de sélection".

Il y a bien le groupe 60 qui correspond à toutes les images qui explique comment fonctionne le logiciel et surtout celui qui dit qu'il faut activer les macros !

J'ai nettoyé votre fichier en remplaçant les select par des activate là où c'est utile, je les aie supprimés là où ils étaient inutiles.

J'ai supprime le module de classe qui ne sert à rien, j'ai également supprimer le USF et le module qui ne servent à rien.

Pour le Unprotect ci dessus, ma foie si c'est écrit et que ça tourne je laisse.

Pour ce qui est en travaux, et bien... c'est en travaux.

le fichier :

@ bientôt

LouReeD

Bonjour à tous,

@LouReeD ... > merci pour le coup de main

ric

En fait ne sais pas si cela en est un !

C'est un fichier non fini, mais relativement simple, les filtres possibles sont afficher de manière "ludique".

En soit il n'y a rien de bien complexe, c'est pourquoi je me pose des questions sur toutes ces erreurs en fonction des versions d'Excel... Surtout que les deux version sont bien Excel 2013 et 2016, à moins qu'il y ait une faute de frappe t que ce soit Excel 2003...

@ bientôt

LouReeD

Bonjour à tous,

Effectivement, comme tu le dis, le fichier n'est pas si complexe et il fonctionne sous Excel 2007 et Excel 365 fr 32 bits.

J'ai regardé les changements que tu as faits.

J'ai fait les miens.

Dans la feuille "Recherche", les colonnes masquées N, R, S et T contiennent des =#REF!

Ce sera à regarder par anthorange ... s'il n'est pas déjà au fait de la chose.

Une autre version ...

ric

Bonjour,

En effet je n'ai pas fait attention à cela...

Vous avez bien fait de le faire remarquer et je suppose que vous l'avez corrigé sur le fichier joint, non ?

Quand on voit tout ça, j'ai dû mal à imaginer le programme fonctionnel "avant"

@ bientôt

LouReeD