Chrono courrier départ

Salut Alban,

Voici un code qui fonctionne, il y a peut- être d'autres possibilités :
Je suis parti d'une feuille totalement vérrouillée et protégée :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'enlever la protection de la feuille
ActiveSheet.Unprotect
'si la cellule selectionnée est vide, alors dévérrouiller, sinon, vérouiller
If Selection.Value = "" Then Selection.Locked = False Else _
Selection.Locked = True
'Reprotéger la feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Merci de ce conseil, je vais essayer

MINISTÈRE DE L'ÉCONOMIE, DES FINANCES ET DE L'INDUSTRIE
SECRÉTARIAT D'ÉTAT A L'INDUSTRIE
Direction Régionale de l'Industrie, de la Recherche et de
l'Environnement
Impasse Buzaré
B.P. 7001
97307 Cayenne cedex
Téléphone Standard :0594297530
Téléphone secrétariat :0594297532
Téléphone Poste direct :0594297540
Télécopie :0594290734
mail : rene-pierre.didot@industrie.gouv.fr

Cayenne le mardi 12 août 2003 - 10:15


A l'attention de : Alban LAROCHE,

Je cherche également à créer un chrono sous Excel car pour l'instant c'est le B...del, la secrétaire indique juste un numéro chonologique sur une feuille volante et classe (parfois) copie du courrier. Conséquence on ne retrouve rien.

Je vois un chrono simple avec 6/7 colonnes :
- 1 colonne compteur
- 1 colonne pour indiquer arrivée/départ (1 lettre a ou d)
- 1 colonne Date d'arrivée ou de départ
- 1 colonne date d'origine du document à l'arrivée ou au départ
- 1 colonne expéditeur / destinataire
- 1 colonne objet
- 1 colonne observations

J'aurai besoin d'un coup de main pour définir un compteur automatique et tout comme alban, intégrer avec quelques notions de protection, pour éviter toutes modifications postérieures à la saisie.


Si quelqu'un à une appli toute faite, je suis preneur

Merci d'avance

Meilleures salutations de guyane

Pierre DIDOT