Validation de données, même si la feuille est verrouillée?

thomasf007 Messages postés 36 Date d'inscription vendredi 23 mai 2008 Statut Membre Dernière intervention 31 mars 2013 - 19 janv. 2012 à 14:23
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 19 janv. 2012 à 14:58
Bonjour à tous,

Je suis en trainde créer un fichier excel pour une utilisation pro. Chaque onglet sera donc verouillé. Mais, chaque personne pourra sélectionner son prénom pour utiliser le fichier, en fonction de son service. Pour chaque service sélectionné, je charge dans une liste (via validation des données) les prénoms du dit service (service BE / SAV / commercial, etc...) Quand les onglet sont déverrouillé, tout fonctionne bien, mais quand je verrouille l'ensemble, j'ai une belle fenêtre d'erreur.

Mon code actuel et celui-ci

If Feuil1.Range("G3").Value = "TECHNIQUE / M.E.S." Then
With Range("G1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Nom_TMES"
.IgnoreBlank = True
End With
End If

Comment puis-je autoriser ce code, malgré que la feuille est verrouillé? Vous avez une idée?
Merci.
ThomasF

2 réponses

MarcPL Messages postés 172 Date d'inscription jeudi 8 décembre 2011 Statut Membre Dernière intervention 21 juillet 2013 2
19 janv. 2012 à 14:55
Bonjour !

Si tu as bien pisté l'erreur et qu'elle ne provient que du fait de la protection de la feuille,
dans ce cas déprotège la feuille en début de code puis re-protège là en fin de code :
    Feuil1.Unprotect
    
    ' code
    
    Feuil1.Protect

___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 72
19 janv. 2012 à 14:58
ça ressemble a une usine à gaz...


"selectionner son prénom"...
pourquoi ne pas le faire en automatique, via le nom/prenom récupérés sur l'AD, ou au pire l'UserName ?

si ce qui te gène est la msgbox d'erreur, on peut s'en arranger (displayalerts = false, ou quelque chose de ce gout)

ce code est il indispensable ?
quel est son but ?
pourquoi verrouiller l'onglet concerné ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0