Discussion :

[goninph]

Bonjour,

J'ai cette formule qui fonctionne

Lorsque la valeur et 0 j'aimerais ne rien indiquer

Code :

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

=ENT(((K8*5)+15)/480)&"jrs "& TEXTE(MOD(((K8*5)+15);480)/1440;"h\h m\m\n") &  " 1 poseur pour " &K8&" réglages"

Actuellement : 0jrs 0h 45mn 1 poseur pour 6 poignées
Après votre aide : 45mn 1 poseur pour 6 poignées

Merci pour votre aide

Philippe

[Philippe Tulliez]

Bonjour,
En intégrant chaque partie du texte dans un SI

Exemple avec DATEDIF (en A6, la date de naissance et en A7 la date du jour

Code :

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

=SI(DATEDIF(A6;A7;"y");DATEDIF(A6;A7;"y") & " ans ";"") & SI(DATEDIF(A6;A7;"ym");DATEDIF(A6;A7;"ym") & " mois ";"") & DATEDIF(A6;A7;"md") & " jours "

Si vous avez une version 365 d'excel, ce serait peut-être plus court avec les fonctions LAMBDA et/ou LET ou également en effectuant les différents calculs dans des cellules distinctes et en testant à l'aide de SI la présence d'une valeur différente de 0

[goninph]

Merci pour les infos

Je n'ai pas de date, mon calcul est une somme de plusieurs durées en minutes. Je désire afficher cette somme en jours/heures/minutes

Je vous remercie

[Philippe Tulliez]

Bonjour,
J'ai bien vu que vous n'aviez pas de dates mais le problème est le même, il suffit de placer autant de fonction SI qu'il n'y a de texte à afficher.

[Tête de chat]

Bonjour,

attention la mise en forme que tu utilise est une mise en forme de date pas de durée. On traite donc une date au partir du 1/1/1900 0h0m0s : au dela de 31 jours tu auras un pb

Essaye avec cette mise en forme (avec la même restriction d'usage) :

Code :

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

1
2
 
=TEXTE(B3;"[>1]j"" jrs ""h"" h ""m"" mn"";[>0,04]h"" h ""m"" mn"";m"" mn""")

ça se lit : si la cellule satisfait la condition entre crochets appliquer le format qui suit, sinon passer à ce qui est après le point virgule. Noter qu'on n'a droit qu'à 3 sections correspondant au remplacement des 3 sections std >0, <0, 0. Donc si on avait voulu descendre à la seconde il aurait fallu faire autrement.

[goninph]

Bonjour,

Ma formule fonctionne

Code :

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

=ENT(((K8*5)+15)/480)&"jrs "& TEXTE(MOD(((K8*5)+15);480)/1440;"h\h m\m\n") &  " 1 poseur pour " &K8&" poignées"

Lorsque la valeur et 0 j'aimerais ne rien indiquer

Actuellement :
0jrs 0h 45mn 1 poseur pour 6 poignées

Après votre aide :
45mn 1 poseur pour 6 poignées

Merci pour votre aide

Philippe

[goninph]

J'ai réussi à ne plus afficher les jrs à 0

Pour les heures ça va être plus coton…

Code :

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

=SI(ENT(((C2*5)+15)/480)<1;TEXTE(MOD(((C2*5)+15);480)/1440;"h\h m\m\n"); ENT(((C2*5)+15)/480)&"jrs "& TEXTE(MOD(((C2*5)+15);480)/1440;"h\h m\m\n"))

[goninph]

Voilà

J'ai modifié ce code qui fonctionne enfin comme je veux

Comment appeler ce code via une formule ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Range("A1") = Format_Minutes_jrs_h_mn(Range("C5"))
End Sub
Function Format_Minutes_jrs_h_mn(Valeur As Double) As String
Dim Jour As Double
Dim Heure As Double
Dim Minute As Double
Application.Volatile 'Recalcule automatiquement chaque fois qu'une modification ou un calcul est effectué dans une cellule quelconque du classeur
    Jour = Application.WorksheetFunction.RoundDown((Valeur / 480), 0) 'journée de 8h de travail 8*60min = 480
    Heure = Application.WorksheetFunction.RoundDown(((Valeur - (Jour * 480)) / 60), 0)
    Minute = Application.WorksheetFunction.RoundDown(((Valeur - (Jour * 480)) - (Heure * 60)), 0)
    Format_Minutes_jrs_h_mn = IIf(Jour > 0, Jour & "jrs ", "") & IIf(Heure > 0, Heure & "h ", "") & IIf(Minute > 0, Minute & "mn ", "")
End Function

[goninph]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Range("A1") = Format_Minutes_jrs_h_mn(Range("C5"))
End Sub
Function Format_Minutes_jrs_h_mn(Valeur As Double) As String
Dim Jour As Double
Dim Heure As Double
Dim Minute As Double
Application.Volatile 'Recalcule automatiquement chaque fois qu'une modification ou un calcul est effectué dans une cellule quelconque du classeur
    Jour = Application.WorksheetFunction.RoundDown((Valeur / 480), 0) 'journée de 8h de travail 8*60min = 480
    Heure = Application.WorksheetFunction.RoundDown(((Valeur - (Jour * 480)) / 60), 0)
    Minute = Application.WorksheetFunction.RoundDown(((Valeur - (Jour * 480)) - (Heure * 60)), 0)
    Format_Minutes_jrs_h_mn = IIf(Jour > 0, Jour & "jrs ", "") & IIf(Heure > 0, Heure & "h ", "") & IIf(Minute > 0, Minute & "mn ", "")
End Function

[goninph]

Je ne vois plus mes réponses

[goninph]

Il y a 10 messages et je n'en vois que 7 celui-ci sera le 11ème mais je ne peux pas le voir incroyable

[Tête de chat]

Bonjour

Tu as essayé ce que j'ai suggéré en #5 ?
(si tu le vois )

[goninph]

Bonjour

Tu as essayé ce que j'ai suggéré en #5 ?
(si tu le vois )

Oui, mais ça ne fonctionne pas

[goninph]

Voilà

J'ai modifié ce code qui fonctionne enfin comme je veux

Comment appeler ce code via une formule ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Range("A1") = Format_Minutes_jrs_h_mn(Range("C5"))
End Sub
Function Format_Minutes_jrs_h_mn(Valeur As Double) As String
Dim Jour As Double
Dim Heure As Double
Dim Minute As Double
Application.Volatile 'Recalcule automatiquement chaque fois qu'une modification ou un calcul est effectué dans une cellule quelconque du classeur
    Jour = Application.WorksheetFunction.RoundDown((Valeur / 480), 0) 'journée de 8h de travail 8*60min = 480
    Heure = Application.WorksheetFunction.RoundDown(((Valeur - (Jour * 480)) / 60), 0)
    Minute = Application.WorksheetFunction.RoundDown(((Valeur - (Jour * 480)) - (Heure * 60)), 0)
    Format_Minutes_jrs_h_mn = IIf(Jour > 0, Jour & "jrs ", "") & IIf(Heure > 0, Heure & "h ", "") & IIf(Minute > 0, Minute & "mn ", "")
End Function

Personne ?

[EricDgn]

Bonjour,

Pas de problème pour ma part à utiliser votre fonction Format_Minutes_jrs_h_mn() ou celle-ci:

Code :

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

1
2
3
4
5
6
7
8
9
Function JHM(v As Double) As String
    Dim j As Integer, h As Integer, m As Integer
    Application.Volatile
    j = Int(v / 480)
    v = v - j * 480
    h = Int(v / 60)
    m = v - h * 60
    JHM = IIf(j > 0, j & "j ", "") & IIf(h > 0, h & "h ", "") & IIf(m > 0, m & "mn ", "")
End Function

Cordialement.

[jurassic pork]

Hello,
plusieurs remarques concernant le code de EricDesign qui fonctionne très bien chez moi :
1 - L'utilisation de Application.Volatile n'est pas nécessaire ici car les fonctions personnalisées ont en paramètre la valeur qui en changeant déclenche la fonction personnalisée. De plus en mettant Application.Volatile, la fonction sera appelée quelque soit ce qui change dans la feuille.
2 - L'utilisation de formule matricielle ne s'impose pas ici car dès qu'on va changer une valeur dans la colonne des minutes, la fonction sera appelée pour chaque ligne de la formule matricielle. Avec une formule simple recopiée , la fonction n'est appelée que quand la ligne de la colonne minute correspondante est changée.
Voici un test de performance entre les deux fonctions d'EricDgn en enlevant l'Application.Volatile et en n'utilisant pas de formules matricielles.



On voit que la fonction qui n'utilise pas Application.WorksheetFunction est plus performante.


Ami calmant, J.P

[Tête de chat]

Bonjour,

Tu as essayé ce que j'ai suggéré en #5 ?
Oui, mais ça ne fonctionne pas

Effectivement manquaient [] autour du m des minutes seules

[Raccourcix]

Bonjour

pour éviter le 1 jours 0 h et 10 mn

Code :

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

=TEXTE(ENT(A1);"[>1]0"" jours "";[>0]0"" jour "";")&TEXTE(ENT(MOD(A1;1)*24);"0"" h "";;")&TEXTE(ENT(MOD(A1;1/24)*24*60);"0"" mn"";;")

ça gère le "s" à jour

[goninph]

Je réponds aux discussions, car j'ai pu constater sur mon portable que plusieurs personnes ont répondus à mes interrogations, mais impossible de les lire sur mon pc, parce que je ne vois que les premiers e commentaires sur mon PC

Incroyable

[goninph]

Est-ce qu'un modérateur pourrait corriger ce problème ?