XL 2016 inscription date automatique

BOUCOIRAN

XLDnaute Nouveau
Messieurs,
Je tente de développer un petit programme pour faire mes comptes sir excel 2016. En pièce jointe je joins un fichier sur lequel je n'ai laissé que deux pages afin qu'il ne soit pas trop lourd lors de la transmission. Sur la page "Journal", je souhaiterais que lorsqu'un code est saisi en colonne "E", il s'affiche automatiquement dans la colonne "D" la date du jour. Pour cela j'ai une routine en VBA que je n'arrive pas à faire fonctionner. Si quelqu'un pouvais m'indiquer ce qui cloche, j'en serai ravi.
Seules les cellules dans lesquelles une saisie est attendue sont accessibles, les autres étant protégées à l'écriture.
Dans cette attente et en vous remerciant par avance de vos réponses,
Cordialement,
Boucoiran
 

Fichiers joints

Jacky67

XLDnaute Accro
Messieurs,
Je tente de développer un petit programme pour faire mes comptes sir excel 2016. En pièce jointe je joins un fichier sur lequel je n'ai laissé que deux pages afin qu'il ne soit pas trop lourd lors de la transmission. Sur la page "Journal", je souhaiterais que lorsqu'un code est saisi en colonne "E", il s'affiche automatiquement dans la colonne "D" la date du jour. Pour cela j'ai une routine en VBA que je n'arrive pas à faire fonctionner. Si quelqu'un pouvais m'indiquer ce qui cloche, j'en serai ravi.
Seules les cellules dans lesquelles une saisie est attendue sont accessibles, les autres étant protégées à l'écriture.
Dans cette attente et en vous remerciant par avance de vos réponses,
Cordialement,
Boucoiran
Bonjour,
Une piste...
Dans ton code tu veux écrire dans une cellule verrouillée (Colonne D) avec la feuille de protégée
Pour permettre l'écriture (par code VBA uniquement) dans une telle cellule sans se soucier de la protection, tu peux utiliser ce code.

Dans le "Thisworkbook" du classeur en question.
VB:
Private Sub Workbook_Open()
'Protège la feuille (ici sans mot de passe) et permet l'écriture par VBA
Sheets("Journal").Protect , Userinterfaceonly:=True
End Sub
 

BOUCOIRAN

XLDnaute Nouveau
Bonjour,
Une piste...
Dans ton code tu veux écrire dans une cellule verrouillée (Colonne D) avec la feuille de protégée
Pour permettre l'écriture (par code VBA uniquement) dans une telle cellule sans se soucier de la protection, tu peux utiliser ce code.

Dans le "Thisworkbook" du classeur en question.
VB:
Private Sub Workbook_Open()
'Protège la feuille (ici sans mot de passe) et permet l'écriture par VBA
Sheets("Journal").Protect , Userinterfaceonly:=True
End Sub
 

Haut Bas