Fonction Now en VBA
Résolu
nanoo79
Messages postés
34
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je souhaite créer une macro qui en cliquant sur un bouton génère la date et l'heure dans une feuille. Je ne souhaite pas que la valeur soit éffacée mais que toutes les dates et heures s'affiche dans une colonne à la suite les unes des autres.
J'ai essayé avec le fonction Now mais cela ne fonctionne pas du tout. Quelqu'un pourrait il m'aider svp?
Merci
Je souhaite créer une macro qui en cliquant sur un bouton génère la date et l'heure dans une feuille. Je ne souhaite pas que la valeur soit éffacée mais que toutes les dates et heures s'affiche dans une colonne à la suite les unes des autres.
J'ai essayé avec le fonction Now mais cela ne fonctionne pas du tout. Quelqu'un pourrait il m'aider svp?
Merci
A voir également:
- Vba now
- Reboot system now - Guide
- Scan now - Guide
- Remove logo now - Télécharger - TV & Vidéo
- Reboot system now traduction ✓ - Forum Samsung
- Qu'est ce que sa veut dire rebooter ???? ✓ - Forum Windows
2 réponses
Bonjour,
L'idéal lorsque l'on pose une question à propos d'un code qui ne fonctionne pas, c'est de nous donner ce code. Au moins, en repérant tes erreurs, on peut t'aider de manière plus pédagogique.
Bon, ici le problème est simple, donc nous pouvons te donner la réponse, mais penses-y à l'avenir car c'est toi qui va maintenir le code à jour...
L'idéal lorsque l'on pose une question à propos d'un code qui ne fonctionne pas, c'est de nous donner ce code. Au moins, en repérant tes erreurs, on peut t'aider de manière plus pédagogique.
Bon, ici le problème est simple, donc nous pouvons te donner la réponse, mais penses-y à l'avenir car c'est toi qui va maintenir le code à jour...
Sub Inscrit_Date_Et_Heure_ColonneB()
'Inscrit en Feuil2, colonne B, à partir de B2, la date et l'heure :
Dim dl As Long
dl = Sheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Feuil2").Range("B" & dl) = Format(Now, "dd/mm/yyyy hh:mm:ss")
End Sub