Re : avez vous téléchargé mon fichier? "pointage temps de travail"
bonsoir tout le monde,
pascal21, j'ai testé ton fichier je suis sous 2003 et tout a l'air de bien fonctionner.
par contre il y a une erreur sur les flèches de navigation quand on arrive sur des cellules protéger, donc j'ai rajouter ces lignes a ton module de classe avec aussi une flèche gauche et haut qui a mon avis seront utile tôt ou tard !
Case "bas"
On Error Resume Next
ActiveCell = Replace(ActiveCell, "'", "")
ActiveCell.Offset(1, 0).Activate
Case "droite"
On Error Resume Next
ActiveCell = Replace(ActiveCell, "'", "")
ActiveCell.Offset(0, 1).Activate
Case "haut"
On Error Resume Next
ActiveCell = Replace(ActiveCell, "'", "")
ActiveCell.Offset(-1, 0).Activate
Case "gauche"
On Error Resume Next
ActiveCell = Replace(ActiveCell, "'", "")
ActiveCell.Offset(0, -1).Activate
bon boulot bonne soirée