Bonjour le Forum,
Bonjour le west44fr,
tout d'abord essai d'évité de t'adresser a quelqu'un en particulier si il n'est pas la tu risque de ne pas avoir de réponse
si j'ai bien compris le code, pour l'heure d'arrivée :
Private Sub CommandButton1_Click()
Cells(Cells(65536, 7).End(xlUp).Row + 1, 7).Activate 'recherche de la première cellule non vide (en partant du bas)de la colonne 7 (ou G) puis activation de la cellule juste en dessous
ActiveCell.Value = 'x' 'affichage de la lettre x dans la cellule active
ActiveCell.Offset(0, -4).Activate 'décalage et activation de 0 ligne et de 4 colonnes vers la gauche
ActiveCell.Value = Time 'affichage dans la cellule active de l'heure actuelle
End Sub
c'est cette ligne la qui permet de sélectionner la cellulle ou afficher l'heure
ActiveCell.Offset(0, -4).Activate
la ligne précedente est celle ou l'on met une croix cette ligne veux dire a partir de la cellulle ou ce situe la croix activecell.offset
on se déplace de 0 ligne et on recule de 4 colonne (0,-4)
et on active la cellule (.Activate)
C'est donc cette ligne que tu doit changer
dans ton fichier l'heure s'inscrit en colonne C si tu la voulais en colonne D la ligne deviendrait ActiveCell.Offset(0, -3).Activate
et pour la colonne J se serait ActiveCell.Offset(0, 3).Activate
meme demarche pour l'heure d'arret
Jocelyn
oup's bonjour toutou on a pas compris la même chose
Message édité par: Jocelyn, à: 13/12/2005 15:14