Discussion :

[odalisk]

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

[JackOuYA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[odalisk]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 ....

[JackOuYA]

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 ....

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 .

[AlainTech]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

CDate(Now - Int(Now))

[odalisk]

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