Heure instantanée+incrémentation Excel

Fermé
banban64 Messages postés 17 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 4 octobre 2009 - 26 janv. 2008 à 03:49
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 26 janv. 2008 à 09:21
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...
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 716
26 janv. 2008 à 09:21
bonjour

En rajoutant dans ton formulaire cette procédure, cela devrait te donner le résultat
Private 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

0