Bonjour,
J'ai un classeur avec des listes de destinataires de courrier. J'ai trois feuilles avec des listes. J'ai un userform avec menu deroulant sur la première et j'ai inséré deux boutons, le premier m'envoie sur la feuille selectionnée (ca c pour modifier éventuellement la feuille) et le bouton 2 je voudair k'il execute la macro associée au nom de feuille selectionnée, macro enregistrée avec l'assistant excel.
Le probleme c'est que ca ne marche pas... J'ai fait un Case select, mais le click ne lance pas la procédure... JE vous mets le code du userform comme ca vous pourrez voir comment c'est monté. Si vous pouviez m'aider, ce serait vraiment très sympa, et pi comme ca je passerai pour un stagiaire modèle,
).
I est une chaine declarée public, qui peut prendre trois valeurs: MENSU4BQ, ASSVIE ou HABITAT
CODE:
Private Sub ComboBox1_Change()
I = ComboBox1.Text
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
'activer la feuille selectionnée dans menu déroulant'
Sheets(I).Select
End Sub
Private Sub CommandButton2_Click() <- c'est là que ca marche pô...
Select Case (I)
Case ASSVIE, MENSU4BQ, HABITAT
Case ASSVIE
[Liste_envoi_ASSVIE()]
Case MENSU4BQ
[Macro_envoi_MENSU4BQ()]
Case HABITAT
[Macro_envoi_HABITAT()]
End Select
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
Range("A1").Select
ComboBox1.AddItem (ActiveCell.Value)
Range("A2").Select
ComboBox1.AddItem (ActiveCell.Value)
Range("A3").Select
ComboBox1.AddItem (ActiveCell.Value)
End Sub
MERCI D'AVANCE !!!
Romain.