Discussion :

[retraite83]

Bonjour,

Je voudrais bloquer la saisie dans la cellule "G10" qui contient une liste déroulante par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bud.Range("G10").Locked = True

J’ai un erreur d’exécution 1004

Impossible de définir la propriété Locked de la classe Range

Cette ligne marche très bien si ma cellule ne contient pas de liste déroulante

Je ne sais pas comment faire

[ChristianBosch]

Salut,

Si ta feuille est verrouillée tu ne peux pas le faire.

Pour que la protection soit effective il faut déverrouiller et reverrouiller la feuille avant et âpres la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test1()
Feuil1.Unprotect
Feuil1.Range("liste").Locked = True
Feuil1.Protect
End Sub

[retraite83]

Bonjour,

oui bien sur ma feuille est déprotégée, le problème semble lié au fait que la cellule contienne une liste déroulante

[ChristianBosch]

oui bien sur ma feuille est déprotégée, le problème semble lié au fait que la cellule contienne une liste déroulante

Chez moi pas de soucis sur une cellule avec liste, je n'ai pas d'erreur, la procédure fonctionne normalement.

Est il possible d'avoir le code entier ?

[retraite83]

Bonjour,

oui effectivement pas de pb sur une liste déroulante classique, j'ai cerné le pb, cela vient du fait que ma liste peut être sélective, c'est à dire que l'on peut taper le 1er ou les 1er caractères de ce que l'on recherche (ex : "C" et la liste s'affiche à partir du 1er item commençant par "C"

Pour cela j'ai défini la liste des données à dérouler dans le gestionnaire de noms sous le nom "tel":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(Feuille!$A$2;;;NBVAL(Feuille!$A:$A)-1)

et sur la cellule comportant la liste (cellule "G10") dans la validation de données :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DECALER(tel;EQUIV(G10&"*";tel;0)-1;;NB.SI(tel;G10&"*"))

cela marche parfaitement bien mais n'accepte pas le "Locked"

Bizarre