liste déroulante sur un classeur entier

alain.dutoit

XLDnaute Nouveau
Bonjour à tous,

Il y a quelques temps j'avais eu besoin de vos services afin d'obtenir le code suivant:

__________________________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fin
If Target.Validation.Type = xlValidateList Then
SendKeys "%{DOWN}", False
End If
fin:
End Sub
___________________________________________________________

Ce code permet d'ouvrir la liste box d'une cellule directement lorsqu'on clique dessus.

Je souhaiterais savoir s'il est possible d'activer ce code pour l'ensemble de mon classeur, et non pas pour une seule feuille. Etant donné que j'ai une vingtaine de feuille dans mon fichier je souhaiterais si possible ne pas alourdir inutilement mon fichier en copiant ce code dans les 20 pages...

J'ai essayé de le copier dans This Workbook mais cela ne fonctionne pas.

Je vous joint un petit fichier de test au cas ou.

Merci beaucoup d'avance et meilleures salutations.

Alain Dutoit
 

Pièces jointes

  • test liste box.xls
    18 KB · Affichages: 68

Luki

XLDnaute Accro
Re : liste déroulante sur un classeur entier

Bonjour Alain

il faut pour cela, passer ta procédure dans le module "ThisWorkbook"

Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 'ton code ici
End Sub
Bonne journée
 

Discussions similaires