Discussion :

[macboul13]

Bonjour,
Je dois effectuer un calcul sur des heures. Des salariés perçoivent 1 heure de nuit s'ils ont travaillés après 0h45.
J'ai écrit le code suivant:

Code :

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

     If Cells(i, 32) >= "0:45" Then Cells(i, 109) = "1"

Cela ne fonctionne pas, car quelque soit l'horaire en Cellule 32, le résultat renvoyé est 1.
Je ne sais s'il faut adapter les formats, et si oui lequel.

Merci par avance.

[mjpmjp]

bonjour,

je ne suis pas trop bon avec les date et heure,
mais "0:45" c'est du texte !!!
et les heures c'est "integer" je crois... à vérif
je pense que çà vient de là

tu peux également travailler en direct (feuille des cellules) avec la formule =SI(test;vrai..."1";faux)
@+JP

[kiki29]

Salut, de la lecture et pas seulement : Comprendre et gérer les dates sous Excel et en VBA

P.-S.: Ici ce n'est pas un forum VBA.

[Menhir]

D'abord une question : est-ce que le contenu de la colonne 32 est une VRAIE date, au sens Excel du terme, ou n'est-ce qu'un texte ?

En supposant que c'est le cas, ta formule devrait être :

Code :

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

     If Cells(i, 32) - Int(Cells(i, 32)) >= 0.75 Then Cells(i, 109) = "1"

Mais je pense que ce n'est pas suffisant parce que tu oublies un détail : la nuit a certes un début mais elle a aussi une fin. Il faut donc mettre deux conditions liées par un "And".

Parce que écrit ainsi, il n'y a que pour la plage 0:00 à 0:45 que le "1" ne sera pas écrit.
Même si la personne travaille à 22:00, ça mettra 1 puisque 22:00 est supérieur à 0:45.

[macboul13]

Bonjour,
Merci pour la réponse; si je formate mes cellules en hh:mm ou en Texte, un message erreur apparaît: " Incompatibilité de type".

[Menhir]

Sans doute parce que tu n'as pas inscrit une vraie date dans cette cellule mais du texte.
Et on ne peut rien calculer sur du texte (à moins de faire de la chirurgie pour le décomposer et en récupérer les éléments).

[Docmarti]

Il faut toujours comparer des pommes avec des pommes et des dates avec des dates.

Pour etre certain de comparer des dates avec des dates et non avec n'importe quoi, il faut donc convertir les 2 elements de la comparaison en dates:

Code :

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

 If CDate(Cells(i, 2)) >= CDate("0:45") Then

[unparia]

Bonjour
Je ne comprends pas vraiment la logique de :

Je dois effectuer un calcul sur des heures. Des salariés perçoivent 1 heure de nuit s'ils ont travaillés après 0h45.

Ni son sens exact, d'ailleurs ...
Une telle phrase n'a de sens que si on a une date/heure de début et une date/heure de fin. Car sinon : prendre son service à 8 heures du matin donnerait droit au bénéfice en cause (puisque 8 h 00 est plus grand que 0 h 45 !!!!)

Il y a donc là soit une carence en matière d'expression, soit une carence en matière de réflexion.

Je propose dans un premier temps quant à moi, dans ces conditions, la lecture de cette discussion :
https://www.developpez.net/forums/d1...mps-timevalue/

[macboul13]

Bonjour

Les horaires sont compris entre 0h45 et 6h00. Je n'ai évoqué que la 1ère partie, mais dans ma formule je tenais compte des deux.

Merci