S
STEPHANE
Guest
Bonsoir,
Etant débutant je souhaiterais savoir comment s'il est possible d'affecter une macro qui sera différente à chaque élément d'une liste déroulante.
Si oui, pouvez vous m'indiquez comment faire svp ?
Autrement, j'ai vu dans l'aide qu'il était possible de créer un objet de type combobox ou listbox mais je dois avouer que je suis perdu.
Je me suis basé sur cet exemple mais je n'arrive pas à le reproduire (j'ai une erreur de variable ComboBox1 qui n'est pas reconnu)
Private Sub ComboBox1_Change()
If ComboBox1.Value = "1" Then Range("A20").Select
If ComboBox1.Value = "2" Then Range("A40").Select
If ComboBox1.Value = "3" Then Range("A60").Select
If ComboBox1.Value = "4" Then Range("A80").Select
If ComboBox1.Value = "5" Then Range("A100").Select
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Start"
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
End With
End Sub
J'espère avoir été assez claires dans mes explications.
Merci à tous pour tout aide.
Etant débutant je souhaiterais savoir comment s'il est possible d'affecter une macro qui sera différente à chaque élément d'une liste déroulante.
Si oui, pouvez vous m'indiquez comment faire svp ?
Autrement, j'ai vu dans l'aide qu'il était possible de créer un objet de type combobox ou listbox mais je dois avouer que je suis perdu.
Je me suis basé sur cet exemple mais je n'arrive pas à le reproduire (j'ai une erreur de variable ComboBox1 qui n'est pas reconnu)
Private Sub ComboBox1_Change()
If ComboBox1.Value = "1" Then Range("A20").Select
If ComboBox1.Value = "2" Then Range("A40").Select
If ComboBox1.Value = "3" Then Range("A60").Select
If ComboBox1.Value = "4" Then Range("A80").Select
If ComboBox1.Value = "5" Then Range("A100").Select
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Start"
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
End With
End Sub
J'espère avoir été assez claires dans mes explications.
Merci à tous pour tout aide.