Discussion :

[Lylyd]

Bonjour à tous,

J'ai un tableau avec en première colonne des valeurs date - heures qui sont formatées en heures (afin d'avoir un graphique avec des heures en abscisses).
J'aimerai avoir, dans une autre colonnes, des valeurs qui me permettraient de faire une aire sur mon graphique pour marquer le changement de jour.


voici un petit exemple du tableau :

date-heure (formatée pour ne voir que l'heure)	variable	valeur a renvoyer
23:41	800	0
23:51	700	0
00:01	600	1200
00:11	700	1200

je voudrais trouver la formule qui me permettent de traduire l’équivalent de SI(TEXTE(A2;"jjmmaaa")=TEXTE(A1;"jjmmaaaa");0;1200) en VBA
en sachant que évidemment mes cellules vont defiler au sein d'une boucle, et que "A2" et "A1" seront remplacé par des offset. mais c'est vraiment sur la formule de texte que bloque.

J'ai testé des trucs du style :

Code :

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

1
2
3
4
5
 
For Each He In Range(Cells(5, 1), Cells(Cells(2, 6).Value + 3, 1))
If He.Offset(-1, 0).NumberFormat = "mm/dd/yyyy" = He.NumberFormat = "mm/dd/yyyy" Then
 
'Cells(Cells(2, 6).Value + 3, 1) correspond au nombre de valeurs que je dois prendre

mais ça ne fonctionne pas... j'ai aussi essayer avec DateValue(Format(Date, "dd/mm/yyyy")), mais je n'y arrive pas.

Quelqu'un a t il une idée pour m'aider?
un grand merci!
Ly

[illight]

Hello,

Ce sont des dates ou des heures que tu dois comparer ? Car dans ton tableau, tu met des heures, mais dans ta formule, tu les met au format date ??

Par ailleurs, une date ou une heure sont un nombre, donc tu n'as pas besoin de les reformater en texte pour les comparer.
En effet, pour une date, le nombre est supérieur à 0, et tout ce qui est derrière la virgule sont les heures.

De cette façon, si tu prend la date suivante : 03/01/2020 12h45
Si tu l'écris au format nombre, ça te donnera : 43833,53125

=> La partie rouge correspond à la date, et la partie bleue correspond aux heures.

Donc, pour répondre à ton problème et suivant ce que tu souhaites comparer, tu prend soit la partie décimale, soit l'autre partie, avec un simple "="

PS : par ailleurs, dans ta formule :

Code :

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

If He.Offset(-1, 0).NumberFormat = "mm/dd/yyyy" = He.NumberFormat = "mm/dd/yyyy" Then

Il manque pas un AND ? il y a un égal en trop non ?

[Lylyd]

Bonjour,

C’était bien les heures que je devais comparer, car je fais mes graph avec mes heures en abscisses, mais je voulais créer une zone sur mon graph qui me permettait de visualiser mes différents jours facilement (une aire sur le graph et le tour est joué, mais il fallait pouvoir comparer les dates de chaque point, car ce sont des mesures qui varient beaucoup, d'ou le fait d'automatiser tous les graphs)

et ben c’était si simple que ça!! juste comprendre a quoi correspondent les nombres renvoyés!
merci beaucoup beaucoup beaucoup!
Mes graphs sont parfaits maintenant!

Très bonne soirée à toi!!