Bonjour, j'ai créé un code qui implémente l'heure de saisie d'une cellule. Cela fonctionne très bien quand je suis seule sur le fichier mais dès que je mets en partagé, ça ne fonctionne plus....

Voici mon code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("zone1")) Is Nothing Then Exit Sub ' cellule non concernée ?
    Target.Offset(0, -3) = Date ' 3 colonnes à gauche
    Target.Offset(0, -2) = Time ' 2 colonnes à gauche
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Function monheure()
Dim madate As String
tadate = Now()
madate = Right(tadate, 8)
monheure = madate
End Function
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Function ladate()
Dim madate As String
'Dim madate As String
tadate = Now()
madate = Left(tadate, 10)
ladate = madate
 
End Function


En parcourant les forums je trouve comme réponse que ça ne fonctionnera jamais en partagé... mais j'ai besoin de cette macro... Aidez-moi s'il vous plaît