Soustraction de dates

Bonjour à tous,

J'ai actuellement un problème qui je pense est simple mais je bute dessus depuis longtemps :roll:

J'ai une macro qui vient réunir une date et une heure dans une cellule comme ceci :

Code:

Range("A" & Compteur).Value = Date & " " & Heure

A cela, j'applique un format de cellule à celle-ci :

Code:

Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss"

Je fais cette opération sur plusieurs lignes. Jusque là, pas de problème :)

Par contre, à la fin du traitement, je dois soustraire la date en ligne 1 et la date de la dernière ligne.

Je fais donc :

Code:

Range("A2").value = range ("A1").value - range("A100").value

Excel me renvoie alors un message d'incompatibilité de type ! Je ne comprends pas pourquoi car quand je le fais directement dans excel il m'affiche directement le bon résultat... Le type de réponse voulue est 12/12/01 09:09:28.

Quelqu'un a-t-il une idée ??

Merci par avance ;)

Bonsoir,

Code:

Range("A" & Compteur).Value = Date & " " & Heure

le code ci-dessus est du texte. Ajoute la conversion de date à ta formule :

Code:

Range("A" & Compteur).Value = Cdate(Date & " " & Heure)

Bonsoir Tee_grandbois,

J'ai essayé ce que tu m'as dit et cela marche parfaitement !

Merci à toi ;)