Conversion possible ?

J

jmfmarques

XLDnaute Accro

• 28 Avril 2020

• #2

Bonjour
Si (et seulement si) personne d'autre n'a une solution par formule, je te proposerai une fonction VBA personnalisée.
Je vais d'abord laisser d'autres s'exprimer.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2020

• #3

Bonjour le fil, GUY rr, jmfmarques

Moi, j'ai une solution mais elle est risque de déplaire

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2020

• #4

Staple1600 à dit:

Moi, j'ai une solution mais elle est risque de déplaire

Cliquez pour agrandir...

Je crois aussi

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 28 Avril 2020

• #5

Bonjour Staple1600 et mapomme
je pense que vous voulez dire "suggestion" et ai dans ce cas la même que vous deux ( ).
Mais il est vrai qu'elle déplairait sûrement. Il n'est jamais agréable de se faire inviter à revoir toute la conception).

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2020

• #6

Bonsoir @GUY rrr , @Staple1600 ,@jmfmarques

Essayez cette formule (la cellule résultat doit être au format heure):

VB:

=SIERREUR(GAUCHE(A1;CHERCHE("h";A1)-1)/24;0)+SIERREUR(CNUM(SUPPRESPACE(DROITE(SUBSTITUE(SUPPRESPACE(GAUCHE(A1;CHERCHE("m";A1)-1));" ";REPT(" ";255));255)))/1440;0)

Rem : L'heure (si présente) doit précéder les minutes

 

Pièces jointes

• GUY rrr- Heure Minute- v1.xlsx

  11.1 KB · Affichages: 8

Dernière édition: 28 Avril 2020

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 28 Avril 2020

• #7

bravo, mapomme.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2020

• #8

Re, Bonjour mapomme

Moi, j'appelle cela une solution
1) Je ferme le classeur puis Excel
2) Dans l'explorateur Windows, je sélectionne le classeur-> SHIFT+SUPPR
3) J'ouvre Excel
Et je formate les cellules recevant des heures avec le format idoine.
(Par exemple: [hh]:mm)
4) En A1, je saisis: 00:07 (et pour vérifier (ou me rassurer) en B1 =MINUTE(A1) qui renvoie alors 7.

Et la suggestion la voilà: commencer par utiliser Excel dans les règles de l'art.
(Voir sur le net les douze règles d'or d'utilisation d'Excel et autre littérature sur les bons usages d'Excel)

 

Vote positif 0 Vote négatif

GUY rrr

XLDnaute Occasionnel

• 28 Avril 2020

• #9

Bonsoir jmfmarques, Staple 1600, mapomme, le forum,

@mapomme, je suis toujours étonné de voir avec quelle facilité certains membres du forum arrivent à fournir des solutions rapides et fonctionnelles .
La formule fonctionne à merveilles .

Un grand MERCI à vous pour votre intervention.

Un tout aussi grand MERCI à tous les intervenants .

Bonne soirée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2020

• #10

Re

Il faut juste espérer ne pas rencontre ce genre d'incongruités dans les données

Enrichi (BBcode):

 7  minutes

(dans cet exemple rougeoyant, la formule renvoie 00:00)

PS: mapomme, cela n'enlève rien à la joliesse de formule

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2020

• #11

Staple1600 à dit:

7 minutes

Cliquez pour agrandir...

ça fonctionne aussi, non ?
A moins que, perfide et vicieux comme tu l'es, tu as remplacé les espaces par des Alt 0160

Sans plaisanterie, pourquoi ça ne fonctionnerait pas ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2020

• #12

Re

•>mapomme
Si tu fais un exact copier/coller du string rouge, ta formule renverra 00:00
(Et le pourquoi de la chose est dans le message#11)

Et le plus pernicieux des deux, c'est celui qui martyrise notre tableur chéri en utilisant Excel comme une coiffeuse utiliserait un Opinel comme paire de ciseaux (ou pire comme séchoir)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2020

• #13

Staple1600 à dit:

comme une coiffeuse utiliserait un Opinel comme paire de ciseaux (ou pire comme séchoir)

Cliquez pour agrandir...

Vu l'état de mes cheveux, je ne serai pas regardant quant aux outils et ustensiles qu'utilisera ma prochaine coiffeuse. Même une lame de silex me siérait.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2020

• #14

Re

Le confinement m'oblige à faire des incongruités dans VBE
(Oui, je sais, il a bon dos le confinement )

VB:

Sub Sid_Vicious()
Dim mapomme$
mapomme = "=IFERROR(LEFT(RC[-1],SEARCH(""h"",RC[-1])-1)/24,0)+IFERROR(VALUE(TRIM(RIGHT(SUBSTITUTE(TRIM(LEFT(RC[-1],SEARCH(""m"",RC[-1])-1)),"" "",REPT("" "",255)),255)))/1440,0)"
Never = 0: Again = 9
Anarchy_In_The_Cell = Array(32, 55, 160, 109, 105, 110, 117, 116, 101, 115)
For i = Never To Again
Foolish_Thing = Foolish_Thing & Chr(Anarchy_In_The_Cell(i))
Next
[A1] = Foolish_Thing: [B1] = mapomme
End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2020

• #15

Staple1600 à dit:

Le confinement m'oblige à faire des incongruités dans VBE

Cliquez pour agrandir...

Saboteur !

 

Vote positif 0 Vote négatif