Besoin d'aide pour isoler des caractères

L

loic38

Guest

• 11 Septembre 2004

• #2

bonsoir
regarde le post que j'ai fait à Safia ce soir
il y a un fichier joint qui peut t'aider
bon courage

 

Vote positif 0 Vote négatif

G

Gérard DEZAMIS

Guest

• 12 Septembre 2004

• #3

Bonjour Loic38 et Stevens

Celeda vient de le remarquer la semaine a été difficile et je suis un peu "cuit"
Je n'ai même pas eu la présence d'esprit de suivre son conseil : "Et à la place de Est Erreur, ESTNA est plus simple et radical."
Merci Celeda je me penche sur tes solutions mais maintenant, je vais aller dormir un peu ...

Un petit essai ...
Je n'en dis pas plus...

@+
GD

 

Pièces jointes

• HoraireTexteChiffre.zip

  2.7 KB · Affichages: 10

Vote positif 0 Vote négatif

M

Monique

Guest

• 12 Septembre 2004

• #4

Bonjour,

A peine plus court mais avec une colonne intermédiaire,
Excel refusant un Substitue() de plus

 

Pièces jointes

• CaracteresStevens.zip

  2.1 KB · Affichages: 19

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 12 Septembre 2004

• #5

Bonsoir

Une petite fonction VBA, il te faudra appliquer le format de cellule [hh]:mm pour voir en heure (même supérieur à 24 h).

Public Function Stevens(vCell As String) As Date
vCell = "=(" + vCellnon
With Application.WorksheetFunction
vCell = .Substitute(vCell, "s", "") 'Supprime tous les s
vCell = .Substitute(vCell, " ", "") 'Supprime tous les espaces
vCell = .Substitute(vCell, "jour", ")+(")
vCell = .Substitute(vCell, "heure", "*1/24)+(")
vCell = .Substitute(vCell, "min", "*1/1440)")
End With
Stevens = Evaluate(vCell)
End Function

@+Jean

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 12 Septembre 2004

• #6

Bonsoir

Madame Monique "chapeau bas" vraiment, c'est de la belle formule.

Depuis que j'ai vu ta réponse (il y a 1 h) je cherche une solution pour supprimer cette colonne intermédiaire, et j'ai trouvé en déplaçant la substitution du "s" qui permet de supprimer les espaces dans les autres fonctions de substitutions., mais cela ne suffit pas il faut aussi contrôler la présence d'un espace derrière le "Heure". Ce qui donne comme formule.

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(STXT(B2;SI(ESTNUM(TROUVE("j";B2));TROUVE("j";B2);1);32767);"s";"");"jour ";"");SI(ESTNUM(TROUVE(B2;" heure "));" heure ";" heure");":");" min";"")/SI(ESTERR(TROUVE("h";B2));1440;1)+SI(ESTNUM(TROUVE("j";B2));STXT(B2;1;2)

@+Jean-Marie

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 12 Septembre 2004

• #7

Re

Une autre, plus petite

=STXT(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(B2;"s";" ";"jour";"heure";":");"min";SI(ESTNUM(TROUVE("j";B2));TROUVE("j";B2)-2;1);32767)/SI(ESTERR(TROUVE("h";B2));1440;1)+SI(ESTNUM(TROUVE("j";B2));STXT(B2;1;2)

Monique, utiliser la conversion Texte/Numérique ("1:30"/1) est très très malin.

@+Jean-Marie

 

Vote positif 0 Vote négatif

G

Gérard Dezamis

Guest

• 12 Septembre 2004

• #8

Bonjour à Toutes et Tous

Entre celles qui proposent des procédés "malins", des astucieux qui se permettent d'aligner 5 sustitue de suite ...
je suis toujours étonné de voir avec quelle réactivité et efficacité, ce forum fonctionne.
Il m'arrive de dire parfois des C.......s dans mes réponses, dans les 5 minutes qui suivent mon erreur est notée, signalée, et bien commentée.
Bien souvent ( trop à mon goût car cela stigmatise mes carences) mes propos sont soit améliorés soit solutionnés en VBA (je progresse ainsi grace à vous).

Merci à tous

@+
GD

 

Vote positif 0 Vote négatif

M

Monique

Guest

• 12 Septembre 2004

• #9

Bonjour,

En fin de compte, ça ne fonctionne pas bien.
Plus de 99 jours n'était pas prévu. (ça, c'est réglé)
Aucune des 3 méthodes ne fonctionne s'il n'y a que des jours, sans heure(s) ni min (c'est réglé pour une)
Ta 2è, Jean-Marie, ne fonctionne pas s'il y a 1 ou des jours, suivi d'heure(s) et/ou de minute(s)
Par contre, elle fonctionne s'il y a 0 jour, suivi d'heure(s) et/ou de minute(s)

Egoïstement, je n'ai réussi à réparer que "ma" formule, et pas dans le sens du raccourci

Gérard, j'en ai une à raccourcir.

 

Pièces jointes

• CaracteresStevensV1.zip

  3.3 KB · Affichages: 32

Vote positif 0 Vote négatif

S

Stevens

Guest

• 12 Septembre 2004

• #10

Merci pour vos réponses...

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 12 Septembre 2004

• #11

Bonjour

Pour la formule 3:38, je me heurte à la limite du nombre de () imbriqué.

Pour la formule de 4:04, voici la formule qui répond au cas énoncé par Monique
=SI((NB.SI(B2;"*h*")+NB.SI(B2;"*m*")>0);STXT(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(B2;"s";" ";"jour";"heure";":");"min";SI(ESTNUM(TROUVE("j";B2));TROUVE("j";B2)-1;1);32767);0)/SI(ESTERR(TROUVE("h";B2));1440;1)+SI(ESTNUM(TROUVE("j";B2));STXT(B2;1;TROUVE("j";B2)-2)

@+Jean-Marie

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 14 Septembre 2004

• #12

Bonjour le fil, le Forum

Cette formule qui je pense fonctionne dans tous les cas :


=SI(ESTNUM(TROUVE("j";B2));1*GAUCHE(B2;TROUVE("j";B2)-1);0) + SI(ESTNUM(TROUVE("h";B2));STXT(B1;MAX(TROUVE("h";B2)-3;1);2)/24;0) + SI(ESTNUM(TROUVE("m";B2));STXT(B1;MAX(TROUVE("m";B2)-3;1);2)/1440;0)

Bon après-midi

PhiBou

 

Vote positif 0 Vote négatif

P

PhiBou

Guest

• 14 Septembre 2004

• #13

Oups !

Bien sûr B2 à la place de B1

PhiBou

 

Vote positif 0 Vote négatif