Extraire toute la chaines de caractère aa-bb-cc résultat "cc"

zebanx

XLDnaute Accro

• 25 Août 2017

• #2

Bonjour Anthony

A valider avec CTRL + MAJ + ENTREE (matriciel)

cdlt
thierry

 

Pièces jointes

• extraire droite.xls

  13.5 KB · Affichages: 31

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 25 Août 2017

• #3

Salut,
Une solution pas très académique mais bon.
Si le texte a afficher se trouve toujours après 3 tirets (-), on recherche la position du tiret n°1, puis celle du n° 2 et enfin celle du n°3
De la, on peux extraire les données suivantes la position du 3ème tiret

Exemple avec en B10 pour la première ligne
En C10 = TROUVE("-";B10;1)
En D10 = TROUVE("-";B10;C10+1)
En E10 = TROUVE("-";B10;D10+1)
Et enfin en F10 le résultat
En F10 = STXT(B10;E10+2;100)

Voili voilà en attendant mieux
@+ Lolote83

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2017

• #4

Bonjour anthooooony, zebanx, Lolote83,

Formule à valider normalement :

Code:

=SUPPRESPACE(STXT(A1;TROUVE("µ";SUBSTITUE(A1;"-";"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;"-";))))+1;9^9))

A+

 

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 25 Août 2017

• #5

Bonjour à tout le monde,

Merci vos retours, j'ai trouvé mon bonheur. La formule a été déroulée sur 250 000 lignes et le résultat est impeccable!

En vous remerciant comme d'habitude les retours sont géniaux !

Anthooooony

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 25 Août 2017

• #6

Bonsour®

anthooooony à dit:

Je cherche à extraire toutes la chaîne de caractère se trouvant à droite du dernier "-"
72 035,76 - NOC - 01401016955 - Restant à facturer = facture
448,56 - ERC - 01302094984 - Facture sur commande positive comprenant des lignes négatives à traiter manuellement

Auriez vous une piste pour extraire ces champs en bleu?

Cliquez pour agrandir...

sélectionner la colonne
Rechercher et selectionner
Rechercher : *-
Remplacer par : (vider ce champ)

 

Dernière édition: 25 Août 2017

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Août 2017

• #7

Bonjour Modeste geedee,

Sa fait longtemps que tu me sermonne plus sa commençait a me manqué.
Juste pour te saluer

Bonne journée

Max

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 25 Août 2017

• #8

Bonsour®

maval à dit:

Bonjour Modeste geedee,

Sa fait longtemps que tu me sermonne plus

Cliquez pour agrandir...

?????

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 25 Août 2017

• #9

Modeste geedee à dit:

Bonsour®

?????

Cliquez pour agrandir...

bin.. Modeste, le gars a oublié son bescherelle, "sa arive kwa"

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2017

• #10

Re, salut Modeste geedee, maval, gosselien,

Par curiosité j'ai testé un fichier avec dans les cellules A1:A100000 le texte :

Code:

448,56 - ERC - 01302094984 - Facture sur commande positive comprenant des lignes négatives à traiter manuellement

- avec ma formule (rendue volatile) du post #4 sur B1:B100000 recalcul en 0,35 seconde

- avec la 2ème formule de zebanx (rendue volatile) recalcul en 5,4 secondes

- avec la méthode Remplacer de Modeste geedee traitement en 91 secondes.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2017

• #11

Re,

Pour info j'ai testé la fonction VBA :

Code:

Function F$(t$)
Dim s
s = Split(t, "-")
F = Trim(s(UBound(s)))
End Function

entrée en B1 avec la formule (volatile) =F(A1)&T(ALEA())

Sur B1:B100000 le recalcul se fait en 1,2 seconde.

Bonne nuit.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2017

• #12

Bonjour le forum,

Testées dans les mêmes conditions :

Code:

Function F$(t$)
F = Trim(Mid(t, InStrRev(t, "-") + 1))
End Function

qui se recalcule en 1,0 seconde

Code:

Function F$(t$)
Dim i%
For i = Len(t) To 1 Step -1
If Mid(t, i, 1) = "-" Then F = Trim(Mid(t, i + 1)): Exit For
Next
End Function

qui se recalcule en 3,2 secondes.

On a fait le tour de la question.

Bonne journée.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 26 Août 2017

• #13

Bonsour®

job75 à dit:

On a fait le tour de la question.

Cliquez pour agrandir...

Quoique :
qu'est-ce qui pourrait expliquer le fait que la solution Rechercher/remplacer qui ne requiert quasiment aucune expérience en algorithmie, ni formule, ni VBA
soit entachée d'un accroissement exponentiel de temps de traitement (*)
(jusque la perte de contrôle : EXCEL ne répond pas !!! )
alors que dans de très nombreux cas les manipulations natives soient recommandées et super optimisées ??

(*) :
autant de remplacement que de chaine trouvée "*-"
mais aussi autant de recalcul feuille que de cellule traitées ???
ne pourrait-on inhiber manuellement les recalculs ???? (comme en vba ScreenUpdating=False)

 

Dernière édition: 26 Août 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2017

• #14

Bonjour Modeste geedee,

S'il n'y a pas de formules volatiles dans le classeur la méthode Remplacer n'entraîne aucun recalcul.

Et s'il y en avait il n'y aurait je pense qu'un seul recalcul de toutes ces formules.

A+

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 26 Août 2017

• #15

Bonjour,

il y a aussi Données / Convertir en ne distribuant pas les 3 premières colonnes.
Ca devrait être assez rapide.
eric

 

Vote positif 0 Vote négatif