affecter macro liste deroulante

[max47]

Bonsoir
je souhaiterai savoir si il est possible et comment d affecter a chaque element d une liste déroulante (une trentaine)une macro du type de celle qui es dessous qui est differente pour chaque élément de la liste
merci

Sub ouvre32()
Workbooks.Open Filename:="C:\GESTION MAINTENANCE\e32.xls"
Sheets("CHOIX FEUILLES").Select
End Sub

 

[Cousinhub]

Re : affecter macro liste deroulante

Bonjour,
quel type de liste déroulante?
- Donnée/Validation
- Combobox d'un usf
- Combobox issu de la BO Formulaire
- Combobox issu de la BO Contrôle

Trop d'inconnus.....

 

[max47]

Re : affecter macro liste deroulante

bonsoir
voila sur ma feuille je fais
données
validation
liste
et j affecte la plage ou j ai mes données jen sais pas faire autrement mais je suis preneur si il y a une autre solution
merci

 

[Cousinhub]

Re : affecter macro liste deroulante

Re-,
non cette forme est aussi valable que les autres.
Donc, je suppose que dans la liste de validation, il y a les noms de fichiers (du moins les noms sans l'extension, type : e32)?

 

[max47]

Re : affecter macro liste deroulante

oui tout a fait j ai les noms de fichiers E32,E33 etc etc

 

[Cousinhub]

Re : affecter macro liste deroulante

Re-,
dans le code de la feuille, tu mets :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Target <> "" Then
    A_Ouvrir = Target
    Call ouvrir_le_fichier
End If
End Sub

puis dans un module standard :

Public A_Ouvrir As String

Sub ouvrir_le_fichier()
Workbooks.Open Filename:="C:\GESTION MAINTENANCE\" & A_Ouvrir & ".xls"
Sheets("CHOIX FEUILLES").Select
End Sub

 

[max47]

Re : affecter macro liste deroulante

merci j essaye ça des demain et je te tien au courant du resultat
bonne nuit
merci

 

[max47]

Re : affecter macro liste deroulante

merci cela marche parfaitement, mais il y a un ! est il possible lorque je selectionne un element que cela ne provoque pas l ouverture automatique du fichier recherché, mais qu il faille cliquer sur l'élément sélectionner pour déclencher l'ouverture du fichier
merci