Lancer une macro selon la selction depuis un Combobox

[wrap food]

Bonjour

Je souhaiterais savoir comment lancer une macro selon la sélection faite dans un combobox.

j'ai une code qui fonction très bien dans une listbox que je souhaiterais transposer dans combobox

Ci-joint un fichier pour que cela soit plus explicite .

Par avance merci de votre aide

 

[job75]

Re : Lancer une macro selon la selction depuis un Combobox

Bonjour wrap food, le forum,

Votre "listbox" n'en est pas une, c'est un contrôle de formulaire "Zone de liste combinée".

Et votre macro dans Module1 peut s'écrire très simplement :

Sub copie_nutritionnel_1()
[AQ5:AT5].Offset([AL6]) = [AH6:AK6].Value
End Sub

Il est inutile de mettre en forme les cellules puisque ça a été fait une fois pour toutes.

Quant à la ComboBox (contrôle ActiveX) :

- renseignez sa propriété ListFillRange par le nom "liste_stands"

- collez cette macro dans le code de la feuille :

Private Sub Combobox2_Change()
If ComboBox2.ListIndex >= 0 Then _
  [AQ6:AT6].Offset(ComboBox2.ListIndex) = [AH6:AK6].Value
End Sub

Fichier joint.

A+