chris6999
XLDnaute Impliqué
Je fais un copier coller de mon premier message qui n'apparaît plus dans la liste...
Bonjour,
J'ai un petit souci avec une macro sensée enregistrer le temps passé au téléphone.
On clique sur un bouton pour activer le compte à rebour puis sur un autre pour le stopper.
Un autre bouton permet d'enregistrer les éventuelles erreurs de manip.
Bref tout va bien quand je me positionne sur la date du 12/11 comme aujourd'hui.
Cela donne par exemple 12/11/08 18:30:15
Parcontre si je modifie la date du PC en décembre ou janvier là rien ne va plus.
L'affichage de la date change et cela donne
12/jan/08 ou 12/dec/08
donc du coup la macro ne parvient plus à calculer le temps passé entre les deux bornes et ça bugue...
Je ne suis pas spécialiste des macro et je ne vois pas du tout d'où cela pourrait venir
Ci-dessous la macro car je ne parviens pas à joindre mon fichier (pour arriver à rentrer dans 48ko je ne sais pas comment on s'y prend!)
Il va de soi que j'ai essayé de compresser mon fichier en le zippant!
***************************
' * Gestion du temps (S.C.) *
' ***************************
Option Explicit
Dim derligne As Integer
Dim TEMPS
Sub zero()
'Dim derligne As Integer
With Sheets(1)
derligne = .Range("C65000").End(xlUp).Row + 1
If .Range("B" & derligne).Value = "" Then
.Unprotect
.Range("B" & derligne).Value = Format(Date & " " & Time, "dd/mmm/yyyy hh:mm:ss")
.Range("e" & derligne).Value = Format(Date & " " & Time, "mmmm yyyy")
.Protect
End If
End With
End Sub
Sub fin()
'Dim derligne As Integer
With Sheets(1)
derligne = .Range("D65000").End(xlUp).Row + 1
If .Range("B" & derligne).Value <> "" Then
.Unprotect
.Range("C" & derligne).Value = Format(Date & " " & Time, "dd/mmm/yyyy hh:mm:ss")
.Range("D" & derligne).Value = Format(Range("C" & derligne).Value - Range("B" & derligne).Value, "hh:mm:ss") 'Format((Time - Range("B" & derligne).Value), "hh:mm:ss")
.Protect
End If
End With
End Sub
Sub erreur()
With Sheets(1)
If .Range("B" & derligne).Value <> "" Then
.Unprotect
.Range("E" & derligne).Value = "ERREUR"
fin
.Protect
End If
End With
End Sub
J'espère que vous pourrez m'aider...
Bonjour,
J'ai un petit souci avec une macro sensée enregistrer le temps passé au téléphone.
On clique sur un bouton pour activer le compte à rebour puis sur un autre pour le stopper.
Un autre bouton permet d'enregistrer les éventuelles erreurs de manip.
Bref tout va bien quand je me positionne sur la date du 12/11 comme aujourd'hui.
Cela donne par exemple 12/11/08 18:30:15
Parcontre si je modifie la date du PC en décembre ou janvier là rien ne va plus.
L'affichage de la date change et cela donne
12/jan/08 ou 12/dec/08
donc du coup la macro ne parvient plus à calculer le temps passé entre les deux bornes et ça bugue...
Je ne suis pas spécialiste des macro et je ne vois pas du tout d'où cela pourrait venir
Ci-dessous la macro car je ne parviens pas à joindre mon fichier (pour arriver à rentrer dans 48ko je ne sais pas comment on s'y prend!)
Il va de soi que j'ai essayé de compresser mon fichier en le zippant!
***************************
' * Gestion du temps (S.C.) *
' ***************************
Option Explicit
Dim derligne As Integer
Dim TEMPS
Sub zero()
'Dim derligne As Integer
With Sheets(1)
derligne = .Range("C65000").End(xlUp).Row + 1
If .Range("B" & derligne).Value = "" Then
.Unprotect
.Range("B" & derligne).Value = Format(Date & " " & Time, "dd/mmm/yyyy hh:mm:ss")
.Range("e" & derligne).Value = Format(Date & " " & Time, "mmmm yyyy")
.Protect
End If
End With
End Sub
Sub fin()
'Dim derligne As Integer
With Sheets(1)
derligne = .Range("D65000").End(xlUp).Row + 1
If .Range("B" & derligne).Value <> "" Then
.Unprotect
.Range("C" & derligne).Value = Format(Date & " " & Time, "dd/mmm/yyyy hh:mm:ss")
.Range("D" & derligne).Value = Format(Range("C" & derligne).Value - Range("B" & derligne).Value, "hh:mm:ss") 'Format((Time - Range("B" & derligne).Value), "hh:mm:ss")
.Protect
End If
End With
End Sub
Sub erreur()
With Sheets(1)
If .Range("B" & derligne).Value <> "" Then
.Unprotect
.Range("E" & derligne).Value = "ERREUR"
fin
.Protect
End If
End With
End Sub
J'espère que vous pourrez m'aider...