Même formule qui ne donne pas le même résultat

Bonjour, j'ai un fichier planning qui ne fonctionne pas comme je le souhaiterais. En effet, lorsque je met des 1 cela affiche 1 heure.

Lorsque je met 0,25 cela affiche 10h45 (C'est ce que je souhaite) mais seulement a partir de 10h. Si je met 0,25 dans une case avant 10h cela m'affiche 9h15 (Mauvaise réponse).

Pouvez vous m'éclairer

s'il vous plait ?

Merci à vous et bonne journée

Bonjour,

Je ne comprends pas de quelle formule vous parlez par rapport à votre fichier, pourriez être vous plus précis ?

Bonjour SaDe, le fil, le forum,

Un essai :

Pour toutes les plages horaires, ajoute "-60" tel qu'indiqué en jaune.

fin:

Select Case ThisWorkbook.Sheets(Feuille).Cells(1, x)

Case "7h - 8h"

If ThisWorkbook.Sheets(Feuille).Cells(ligne, x) = 1 Then

CalculDebut = "07" & "H" & Right("0" & Abs(60 * (1 * ThisWorkbook.Sheets(Feuille).Cells(ligne, x)) - 60), 2)

Else

CalculDebut = "07" & "H" & Right("0" & Abs(60 * (1 * ThisWorkbook.Sheets(Feuille).Cells(ligne, x)) - 60), 2)

End If

...

...

...

Bizz

Excusez moi.

Je vous remet le fichier avec un exemple.

Dans l'onglet "Semaine", lorsque je met 0,25 sur Hélène dans la colonne F , son heure de début s'affiche 9h15 (Mauvaise réponse de la formule), mais quand je met 0,25 dans la colonne G pour Véronique son heure de début affiche 10h45 (Bonne réponse que j'attend de la formule)

Ma question est pourquoi deux formules similaires en colonne V renvoient une réponse différence

Merci de votre aide

Bonjour,

Je ne sais pas si c'est dans tes attentes, mais voir fichier joint

Slts

Bonjour, merci pour votre aide.

Je n'ai pas compris la formule et ou elle se situe.

Mon attendu est que lorsque je met 0,25 dans une cellule de "semaine" la colonne V affiche 45 de l'heure et non 15 comme maintenant.

Bonjour SaDe, le fil, le forum,

Le fichier en retour :

Bizz

Mais OUIIII ! merci à toi,

Peux tu m'expliquer s'il te plait ce qui n'allais pas et ce que tu as changé ?

Merci beaucoup à tous pour le coup de main

Bonjour SaDe, le fil, le forum,

Pour chaque "Case" heures : tu avais ceci :

Case "7h - 8h"
    If ThisWorkbook.Sheets(Feuille).Cells(ligne, x) = 1 Then
        CalculDebut = "07" & "H" & Right("0" & Abs(60 * (1 * ThisWorkbook.Sheets(Feuille).Cells(ligne, x)) - 60), 2)
    Else
        CalculDebut = "07" & "H" & Right("0" & Abs(60 * (1 * ThisWorkbook.Sheets(Feuille).Cells(ligne, x))), 2)
    End If

J'ai changé en ajoutant simplement "-60" sur les cas "Else" de toutes les "Case" horaire :

Case "7h - 8h"
    If ThisWorkbook.Sheets(Feuille).Cells(ligne, x) = 1 Then
        CalculDebut = "07" & "H" & Right("0" & Abs(60 * (1 * ThisWorkbook.Sheets(Feuille).Cells(ligne, x)) - 60), 2)
    Else
        CalculDebut = "07" & "H" & Right("0" & Abs(60 * (1 * ThisWorkbook.Sheets(Feuille).Cells(ligne, x)) - 60), 2) ' < Ici
    End If

Bizz

Ah parfait, merci à toi.

Je n'avais pas vu qu'il y avait cela dans le fichier.

Peux tu me dire ou se trouve cette fonction s'il te plait ?

Merci beaucoup

Bonjour SaDe, le fil, le forum,

ALT + F11

Dans la section de gauche : Modules

Dans Modules, double clic sur "MacroTemps".

La fonction se nomme "Public Function CalculDebut(ligne, Feuille)"

Bizz