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
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