Microsoft 365 Mettre en avant les chiffres d'une cellule

[raphy31]

Bonjour,
j'aurais besoin d'un coup de main,
il faudrait que je trouve une formule afin de mettre en avant uniquement le nombre d'heure total contenue dans la colonne D si quelqu'un pouvait m'aider?

Merci d'avance

 

[Calvus]

Bonjour,

Est ce que les cellules sont toujours structurées de la même façon ?

 

[raphy31]

Non Malheuresement pas, ça m'aurait simplifié la tache sinon :/

 

[Modeste geedee]

Bonsour®

Bonjour,
j'aurais besoin d'un coup de main,
il faudrait que je trouve une formule afin de mettre en avant uniquement le nombre d'heure total contenue dans la colonne D si quelqu'un pouvait m'aider?

Merci d'avance

en E11 :
=1*(SUPPRESPACE(SUBSTITUE(DROITE(SUPPRESPACE(GAUCHE([@Product];TROUVE(" +";[@Product]&" +")));4);"h";":00")))
format de cellule
[h]:mm

 

[raphy31]

Bonsour®
en E11 :
=1*(SUPPRESPACE(SUBSTITUE(DROITE(SUPPRESPACE(GAUCHE([@Product];TROUVE(" +";[@Product]&" +")));4);"h";":00")))
format de cellule
[h]:mm

Regarde la pièce jointe 1031463

Merci de ta réponse mais ça ne marche toujours pas :/

 

[Calvus]

Bonjour,

La réponse de @Modeste geedee est excellente.

Fonctionne très bien chez moi. Es tu sûr de ne pas t'être trompé dans la copie ?

A+

 

[raphy31]

Bonjour,

La réponse de @Modeste geedee est excellente.

Fonctionne très bien chez moi. Es tu sûr de ne pas t'être trompé dans la copie ?

Regarde la pièce jointe 1031502

A+

C'est bon j'ai réussi merci beaucoup

 

[Modeste geedee]

Bonsour®

C'est bon j'ai réussi merci beaucoup

Notez que la formule n'est valide que pour des structures de 2 ou 3 chiffres ( i.e 10h >= xx >999h

 

[job75]

Bonjour raphy31, Calvus, Modeste geedee,

Voyez le fichier joint et cette fonction VBA, à placer impérativement dans un module standard :

Function Extract&(t$, x$)
Dim L%, i%, j%
L = Len(x)
t = Replace(t, " ", "")
For i = 1 To Len(t)
    If Mid(t, i, L) = x Then
        For j = i - 1 To 1 Step -1
            If Not IsNumeric(Mid(t, j, 1)) Then Exit For
        Next
        If IsNumeric(Mid(t, j + 1, 1)) Then Extract = Val(Mid(t, j + 1)): Exit For
    End If
Next
End Function

A+

 

[job75]

Fichier (2) avec des minutes et cette formule en E11 :

=Extract([@Product];"h")/24+Extract([@Product];"min")/1440