liste déroulante sur un classeur entier

[alain.dutoit]

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

 

[Luki]

Re : liste déroulante sur un classeur entier

Bonjour Alain

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

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 'ton code ici
End Sub

Bonne journée

 

[alain.dutoit]

Re : liste déroulante sur un classeur entier

Salut Luki,

Merci infiniment pour ce service express........

Toute petite modification mais énorme différence..... lol

bonne journée.

Alain