copier dans différente colonne

ROGER2327 à dit:

Re...

Je ne comprends pas ce que vous voulez dire, car la dernière cellule ajoutée en bas de colonne tient compte de la date en ligne 3 :

Code:

[COLOR="DarkSlateGray"]         Sheets("courbe d'activité").Cells(l, c - 1).Value = [COLOR="Red"]Sheets("courbe d'activité").Cells(3, c - 1) + 1 / 3[/COLOR] [COLOR="SeaGreen"]'Pour placer "5:00:00" à la fin.[/COLOR]
[/COLOR]

Cette ligne est claire : elle prend la date dans la ligne 3 et y ajoute un tiers de jours, soit 8 heures. En appliquant ce code à votre classeur, j'obtiens par exemple 02/08/2009 05:00:00 en A10, car en A3 on a 01/08/2009 21:00:00.
01/08/2009 21:00:00 + 8h donne 02/08/2009 05:00:00.
Je ne vois comment vous pouvez obtenir 01/01/1900 05:00:00, sauf si la cellule A3 ne fait pas elle-même référence à une date, ce qui ne se devine pas en voyant vos données. (On trouve une date en A3, G3, M3...)
S'il s'agit de prendre la date ailleurs qu'en A3 (ce que j'ai fait faute de savoir où prendre la date...), dites-le : on devrait pouvoir arranger le code.
_

Ce qui est certain dans l'état actuel des choses, c'est qu'en mettant la "plus petite" date possible en A3 (1/01/1900 0:00:00), le code renvoie 1/01/1900 8:00:00.
Pour obtenir 1/01/1900 5:00:00, il faudrait mettre 31/12/1899 21:00:00 en A3, ce qui semble assez problématique.​

ROGER2327
#1939

Cliquez pour agrandir...