Heure instantanée+incrémentation Excel
banban64
Messages postés
18
Statut
Membre
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
J'ai crée un userform pour remplir mon tableur. Il suffit de cliquer sur le bouton "transfert" à droite du tableur pour voir le formulaire.Et j'aimerais que lorsque je clique sur "valider" , que la fenêtre se ferme et que sa me marque en même temps l'heure de saisie dans la 2ème colonne.Je suis novice en VBA, je me lance à peine!
Je vous transmets mon ficher xls pour vous montrer comment il est fait!
www.adpc64.org/bdd22.xls
Autre pitit truc.... je cherche à ce que ma ma premiere colonne s'incremente toute seule à chaque fois que je crée une nouvelle ligne : j'aimerais qu'à chaque fois que je rajoute une ligne grâce à mon formulaire, que sa passe de 001 à 002 et etc...
J'ai crée un userform pour remplir mon tableur. Il suffit de cliquer sur le bouton "transfert" à droite du tableur pour voir le formulaire.Et j'aimerais que lorsque je clique sur "valider" , que la fenêtre se ferme et que sa me marque en même temps l'heure de saisie dans la 2ème colonne.Je suis novice en VBA, je me lance à peine!
Je vous transmets mon ficher xls pour vous montrer comment il est fait!
www.adpc64.org/bdd22.xls
Autre pitit truc.... je cherche à ce que ma ma premiere colonne s'incremente toute seule à chaque fois que je crée une nouvelle ligne : j'aimerais qu'à chaque fois que je rajoute une ligne grâce à mon formulaire, que sa passe de 001 à 002 et etc...
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
bonjour
En rajoutant dans ton formulaire cette procédure, cela devrait te donner le résultatPrivate Sub valider_Click() ActiveCell.Offset(0, 1).NumberFormat = "h:mm:ss" ActiveCell.Offset(0, 1).Value = Time ActiveCell.NumberFormat = "000" ActiveCell.Value = WorksheetFunction.Max([A:A]) + 1 transfert.Hide End Sub
