Discussion :

[bert35]

Bonjour,

Dans ma macro, je souhaite afficher une MsgBox qui indique la date et l'heure de 2 évènements (le début et la fin d'un enregistrement).
Ma première date voulue se trouve en cellule A2 (06/05/2017 05:12:00) et la dernière dépend de la taille de mon fichier.
Mes dates sont toutes mises à un format personnalisé.
Mais au final, le code transforme les 2 dates en 00/01/1900 et la MsgBox me renvoie dans dans son message 00:00:00 et 00:00:00.
Je pense que mes erreurs viennent du type de déclaration mais également car mes cellules contiennent à la fois des dates et des heures.
Voici le code que j'ai saisi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim datedeb As Date
Dim datefin As Date
 
Range("A2").Select
ActiveCell = datedeb
Range("A65536").End(xlUp).Activate
ActiveCell = datefin
MsgBox ("L'acquisition a débuté le " & datedeb & " et s'est finie le " & datefin)
 
end sub ()

[Invité]

Bonjour,

Plus simplement comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Dim datedeb As Date
Dim datefin As Date
 
datedeb = Range("A2").Value
datefin = Range("A65536").End(xlUp).Value
MsgBox ("L'acquisition a débuté le " & datedeb & " et s'est finie le " & datefin)
 
End Sub

[bert35]

Merci MimiMathy.

tu n'as quasi rien changé, tu as allégé mon code et ca marche.
Peux tu me dire pq???
Car moi je sélectionne une cellule, l'active et stocke la valeur dans la variable déclarée.
Et toi, tu vas stocker directement la valeur, c'est bien cela?

Bertrand

[Invité]

Re,

Non tu fais l'inverse
Range("A2").Select --> tu selectionnes A2
ActiveCell = datedeb --> et tu donnes à A2 (la cellule active) la valeur de datedeb

alors que c'est la variable datedeb qui est égale à la valeur de A2, sinon datedeb étant vide , A2 sera vide

[patricktoulon]

re
bonjour
si tu a des dates personalisées (avec heure ou mois en lettre ) utilise datevalue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test2()
MsgBox DateValue("24/décembre/2018 10:00:00")
MsgBox DateValue("24/12/2018 10:00:00")
End Sub