Bonjour Hervé, Mutzik, Gipéhel, Pascal, Ândré, les 110 Visiteurs et Visiteuses, le Forum
Merci pour à tous pour ce Welcome dans la Tranche :
Je viens de me rendre compte d'un petit oubli dans ce programme, qui selon la dernière recherche manuelle faite sur votre PC, peut se transformer en bug, puisque la recherche ne retournera rien...
Dans le Module Standard : '
ModuleSearch'
Dans la Procédure : '
Sub Recherche(SearchedString
As String)'
Ligne Numéro :
20
IL faut remplacer :
Set C = .Find(Text, LookIn:=xlValues)
Par cette syntax :
Set C = .Find(Text, LookIn:=xlValues,
LookAt:=xlPart)
Donc par conséquent, je vous dois une bière les amis !
Sinon notre ami Toffard me demande déjà d'élaborer la version 3.0 qui devrait inclure en vrac :
[li]Mode Plein Ecran de toute l'application...[/li]
[li]Protection du paramétrage du Choix d'extension de Fichier Image avec PassWord[/li]
Il a été aussi demandé si il était possible de cacher les menus d'Excel (
plus pour le coté esthétique)... Là
non, comme vous le savez bien je fais partie de la
S.P.B.O. qui comme vous le savez également n'est pas 'Sapeurs Pompiers Bénévoles Occasionnels' mais tout simplement 'Société Protectrice des Barres d'Outils' car ici sur XLD nous avons eu déjà pas mal d'interventions de sauvetage pour des Barres d'Outils Disparues
Par contre en vu de satisfaire la demande pour les UserForms 'FullScreen' si vous pouvez m'aider en m'indiquant si vos résolutions permettent bien l'affichage en plein écran du UserForm 'UserFormBrowser' dans le Mode Recherche OptionButton 'Plan Ouverture dans UserForm' coché...
C'est déjà le Barbatruc que j'avais utilisé il y a bien longtemps pour 'MonExcelDownloads' mais avec les TFT et les nouvelles résolutions il est possible de compléter le Module 'ModuleResolution' ...
Donc si vous avez 5 minutes, c'est pour les Pompiers !
Merci d'avance et bon appétit
[ol]@+Thierry[/ol]
Message édité par: _Thierry, à: 12/12/2005 13:30