VBA Pb combobox qui appelle des macros

Re,

peut être tout simplement comme cela

Private Sub ComboBox1_Click()
Application.Run (ComboBox1.Value)
End Sub

le combobox affiche les noms exacts des macros en respectant les majuscules minuscules s'il y a et le fait de cliquer sur un nom de macro dans le combobox la macro s'exécute

ou comme cela si tu as nommé ton combobox "ComboBoxPeriode"

Private Sub ComboBoxPeriode_Click()
Application.Run (ComboBoxPeriode.Value)
End Sub

Salut,

Si la liste de ton combobox est le reflet exact des noms de tes codes, tu peux faire

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Trimestre1" Then Call Trimestre1
End Sub

Escusez moi, je viens de me rentre compte que je me suis trompé.
Mon code bricolé (mais qui marche) c'est:

Private Sub BtOK_Click()

UFPrint.Hide
If ComboBoxPeriode.Value = "Macro1" Then
Application.Run ("Macro1")
Else
If ComboBoxPeriode.Value = "Macro2" Then
Application.Run ("Macro2")
Else
If ComboBoxPeriode.Value = "Macro3" Then
Application.Run ("Macro3")
Else
If ComboBoxPeriode.Value = "Macro4" Then
Application.Run ("Macro4")
Else
Application.Run ("GlobalMacro")
End If
End If
End If
End If
End Sub

Mais je voudrais remplacer cette série de "If Then Else" par un code plus harmonieux dirons nous ! Parce que si j'ai 20 valeurs dans ma combobox, je ne veux pas écrire 20 "If" imbriqués les uns dans les autres. (source d'erreur, et impropre)

Et oui Mike-31, le combobox est le reflet exact des noms des codes.

Bonsoir,

Sans tester car il est tard, essaie qcq chose comme ça :
If left(ComboBoxPeriode.Value,5) = "Macro" Then
Application.Run (ComboBoxPeriode.Value)
Else
Application.Run ("GlobalMacro")
endif

eric

Bonsoir à tous,

Mike-31 ca marche super!
Je te remercie.

@erric
Merci d'avoir proposé une solution.

bonne soirée et peu être à une prochaine.