VBA et fichier partagé

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:

---

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:

---

1 2 3 4 5 6

Function monheure() Dim madate As String tadate = Now() madate = Right(tadate, 8) monheure = madate End Function

---

Code:

---

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 :)

Bonsoir,

Tes problémes surviennent quand ? qu'elle est ta version d'excel j'ai testé sous 2002 pas de probléme j'ai juste un peu modifier ton code

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range Set r = Intersect(Target, Range("zone1")) If r Is Nothing Then Exit Sub ' cellule non concernée ? r.Offset(0, -3) = Date ' 3 colonnes à gauche r.Offset(0, -2) = Time ' 2 colonnes à gauche End Sub

---

j'ai pas vu ou tu utilisai tes deux autres fonctions...

En fait c'est le deux dernières fonction que j'utilise. Dans mon fichier, je mets

Code:

---

=si("cellulecible"<>"";monheure();"")

---

et pareil pour la date. Tout fonctionne très bien mais quand je partage le fichier ça ne fonctionne plus. C'est à dire que quand les personnes saisissent une valeur dans la cellule cible ça met l'heure qu'il est mais dès qu'ils enregistrent, l'heure change ....

Citation:

---

Envoyé par odalisk

En fait c'est le deux dernières fonction que j'utilise. Dans mon fichier, je mets =si("cellulecible"<>"";monheure();"") et pareil pour la date. Tout fonctionne très bien mais quand je partage le fichier ça ne fonctionne plus. C'est à dire que quand les personnes saisissent une valeur dans la cellule cible ça met l'heure qu'il est mais dès qu'ils enregistrent, l'heure change ....

---

:koi: la ce n'est pas un probléme de partage, avec une telle formule il est normal qu'as chaque recalcul de ton classeur l'heure soit mise à jour.. et donc change .

De plus, il me semble que tu te compliques bien la vie.

Ta fonction ladate() existe toute faite et s'appelle Date().
De même, ta fonction monheure, peut être réduite à

Code:

---

CDate(Now - Int(Now))

---

Merci pour vos réponses. En fait suis pas très douée en VBA c'est d'ailleurs mon premier code et je me suis fait aider..... Je dois faire comment concrètement pour que quand une cellule change dans ma colonne S il y ait l'heure de la saisie. Merci d'avance :)