Microsoft 365 Date statique dans Excel en VB avec colonne protégée

[pca2471]

Bonjour,
Je sais que la question de venir implémenter automatiquement une date qui reste statique dans une colonne Excel est un sujet redondant.
Je ne suis pas du tout un spécialiste de VB donc je me suis inspiré de la connaissance d'autres experts.
Voici le code :
Private Sub Worksheet_Change(ByVal R As Range)
If Intersect(R, [B:B]) Is Nothing Then Exit Sub
R(1, 0) = IIf(R <> "", Date, "")
End Sub
Lorsque l'utilisateur met son trigramme (via une liste de choix), la date du jour vient s'inscrire automatiquement.
Et cela fonctionne...
Sauf que lorsque je veux protéger la feuille et rendre la colonne Date inaccessible en écriture pour l'utilisateur, j'ai une erreur :

Pouvez-vous me dire où cela cloche ?
Ci-joint mon fichier test.
Merci d'avance pour votre aide.

 

[Oneida]

Bonjour,

Private Sub Worksheet_Change(ByVal R As Range)
    If Intersect(R, [B:B]) Is Nothing Then Exit Sub
        R.Offset(0, -1) = IIf(R <> "", Date, "")
End Sub

 

[pca2471]

Merci Oneida pour votre réaction rapide.
Malheureusement en remplaçant mes codes par les vôtres, cela ne fonctionne toujours pas et j'ai le même message...

 

[Oneida]

Re,
Chez moi, pas de probleme!
Je vous mets votre fichier modifie en pj
Pouvez metter votre fichier a dispo, car "remplaçant mes codes par les vôtres" signifierait que vous n'avez pas mis le fichier original a dispo

 

[pca2471]

Je pense l'avoir joint dans mon premier message et donc désolé s'il n'y était pas.
Le voici à nouveau

 

[Oneida]

Re,
Ben, chez moi pas de probleme!!

 

[pca2471]

Attention que je n'ai pas protégé la feuille donc pouvez-vous le faire et recommencer le test ?

 

[Oneida]

Attention que je n'ai pas protégé la feuille donc pouvez-vous le faire et recommencer le test ?

Ben, il n'est pas possible d'ecrire dans une feuille protegee.
Comment avez vous fait la protection, toutes les colonnes sauf colonne B ou .....?

 

[pca2471]

Je n'ai protégé que la colonne A dans ce cas-ci...
Quand même fort étrange que nous ne puissions pas écrire via VB dans une colonne protégée alors que via une formule comme Aujourdhui(), cela fonctionne (mais la date est dynamique)...

 

[pca2471]

Help...

 

[Oneida]

Help...

Re,
Ben oui, mais c'est comme ca.
De plus pour proteger une colonne vous devez proteger la feuille et la vos listes de validation ne marche pas!

 

[pca2471]

Si ça marche la liste de validation même sur une feuille protégée puisque cette colonne ne peut pas être protégée si chaque cellule doit être complétée mais validée par la liste

 

[Oneida]

Si ça marche la liste de validation même sur une feuille protégée puisque cette colonne ne peut pas être protégée si chaque cellule doit être complétée mais validée par la liste

Ben, passez moi le fichier magnifique

 

[pca2471]

Ben, passez moi le fichier magnifique

Le voici...
Attention que la protection de la feuille n'a pas été activée ;-)
Merci d'avance pour votre aide.