liste sur feuille protégée

Re ;-)

Sub DoneValid()
'
' DoneValid Macro
' Macro enregistrée le 01/07/2004 par Joël GARBE
'

'en supposant ue la liste doive permettre le choix entre :
'jojo, juju ou zaza

Worksheets("LaFeuille").Unprotect ("MotdePasse")
Range("A1").Locked = False
With Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator: _
xlBetween, Formula1:="jojo,juju,zaza"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Attention"
.ErrorTitle = "Erreur saisie"
.InputMessage = "Choisir dans la liste"
.ErrorMessage = "Saisie Refusée"
.ShowInput = True
.ShowError = True
End With
Worksheets("LaFeuille").Protect ("MotdePasse")

End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Frédéric LEGEAI" <kikigames@wanadoo.fr> a écrit dans le message de
news:cc1mh3$bmt$1@news-reader3.wanadoo.fr...

bonjour, c'est encore moi...
en vba, comment permettre le choix d'une liste déroulante dans une cellule
verrouillée sur une feuille protégée ?

merciiiiiiiiiiisssssssssssssss
;0)