creer combobox avec evenement (pour zoom)

Bonsoir Damien,
Tu peux récupérer le zoom désiré de cette manière , à adapter à to userform :

Sub monzoom()
ActiveWindow.Zoom = InputBox("Quel zoom ?", , 100) * 1
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel

"damien" <damienguilbert@free.Fr> a écrit dans le message de
news:15fdda86.0409030904.34cb701a@posting.google.com...

bonjour tous le monde

a l aide !!!!!!
g un programme auquel j ai un userform.
dans cette userform je souhaite mettre un combo avec
comme elements dedans comme liste (100% 75% 50% selection) pour
faire un zomm d'une fenetre

donc a chaque click dans le combobox de mon userform je souhaite qu'il
zoom ma feuille excel

svp
aider moi
qui peut me rediger le vba comlet svp '(bien expliquer ) merci
beaucoup§§§§§
damienguilbert@free.fr

bonjour damien,

Private Sub ComboBox1_Change()
ActiveWindow.Zoom = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
LeZoom = Array(200, 100, 75, 50, 25)
For i = 0 To 4
ComboBox1.AddItem LeZoom(i)
Next
ComboBox1.ListIndex = 1
End Sub

isabelle

bonjour tous le monde

a l aide !!!!!!
g un programme auquel j ai un userform.
dans cette userform je souhaite mettre un combo avec
comme elements dedans comme liste (100% 75% 50% selection) pour
faire un zomm d'une fenetre

donc a chaque click dans le combobox de mon userform je souhaite qu'il
zoom ma feuille excel

svp
aider moi
qui peut me rediger le vba comlet svp '(bien expliquer ) merci
beaucoup§§§§§
damienguilbert@free.fr