XL 2019 Extraire une chaine de caractère entre deux chaines de caractères

H

haonv

XLDnaute Occasionnel

• 4 Novembre 2019

• #2

Bonjour,

Un essai avec :
=STXT(A1;CHERCHE("utm_campaign=";A1)+13;CHERCHE("&";STXT(A1;CHERCHE("utm_campaign=";A1)+13;NBCAR(A1)))-1)

avec l'URL en A1

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2019

• #3

Bonjour bierepost, haonv, patricktoulon,

OK pour la formule mais perso je remplacerais NBCAR(A1) qui pèse 7 octets en mémoire par 999 (ou 9999) qui pèse 2 octets.

A+

 

Vote positif 0 Vote négatif

B

bierepost

XLDnaute Nouveau

• 4 Novembre 2019

• #4

haonv à dit:

Bonjour,

Un essai avec :
=STXT(A1;CHERCHE("utm_campaign=";A1)+13;CHERCHE("&";STXT(A1;CHERCHE("utm_campaign=";A1)+13;NBCAR(A1)))-1)

avec l'URL en A1

Cordialement

Cliquez pour agrandir...

Un GRAND MERCI @haonv , ta solution fonctionne parfaitement !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2019

• #5

bonjour job75
comme en vba j'ai horreur des limite numérique écrit en dur car ca implique une modif de formule si changement dans la cellule source
donc nbcar je le laisse surtout celui a la place de 13
=STXT(C2;CHERCHE("utm_campaign=";C2;1)+NBCAR("utm_campaign=");CHERCHE("&";STXT(C2;CHERCHE("utm_campaign=";C2;1)+NBCAR("utm_campaign=");NBCAR(C2));1)-1)

après je suis pas le meilleur en formule donc .....et comme j'utilise l'expression recherché dans nbcar ) je brasse du vent car il faudrait faire la modif quand meme
mais pas quand même
de mon point de vue il y a des cas ou vba vous simplifie la vie de part la modularité d'une fonction sans changer un caractere de code
=fonctionVBA(chainedavant ; chaineapres)
cette situation selon moi en fait parti

 

Vote positif 0 Vote négatif

B

bierepost

XLDnaute Nouveau

• 4 Novembre 2019

• #6

job75 à dit:

Bonjour bierepost, haonv, patricktoulon,

OK pour la formule mais perso je remplacerais NBCAR(A1) qui pèse 7 octets en mémoire par 999 (ou 9999) qui pèse 2 octets.

A+

Cliquez pour agrandir...

Merci pour l'astuce, je viens de l'appliquer

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2019

• #7

re
regarde ça vaut ce que ça vaut mais qu'est ce que c'est simple

fonction

VB:

Function interChaine(cel, avant, apres)
interChaine = Split(Split(cel, avant)(1), apres)(0)
End Function

formule
=interChaine(C2;"utm_campaign=";"&")

reutilisable a souhait

 

Vote positif 0 Vote négatif

H

haonv

XLDnaute Occasionnel

• 4 Novembre 2019

• #8

Re,

Merci Job75; je ne sais pas trop l'impact de certaines "formulations"( désolé, je ne sais pas trop comment le dire autrement) dans les formules.
Que ce soit au niveau de la mémoire occupée ou de la vitesse de calcul. Peut-on trouver des aides sur cela ?

@patricktoulon: Pour la formule, on peut aussi nommer "utm_campaign= " : "AChercher" par exemple.
Et remplacer cette chaine par son nom dans les formules. Ainsi, si le texte a rechercher change, il suffit de changer sa valeur dans le nom.
Mais il est vrai que par VBA, c'est plus simple....quand on maîtrise

Cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Novembre 2019

• #9

bonjour @haonv

@patricktoulon: Pour la formule, on peut aussi nommer "utm_campaign= " : "AChercher" par exemple.
Et remplacer cette chaine par son nom dans les formules. Ainsi, si le texte a rechercher change, il suffit de changer sa valeur dans le nom.
Mais il est vrai que par VBA, c'est plus simple....quand on maîtrise

Cordialement

Cliquez pour agrandir...

la pour le couip j'en vois pas l’intérêt de passer par un name a moins que j’eusse mal compris
au quel cas un exemple serait le bien venu

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Novembre 2019

• #10

Bonsoir le fil,

bierepost
Pourquoi pas ceci?
ALT+é
ALT+O
ALT+S
ALT+r
&
ALT+t

 

Vote positif 0 Vote négatif

H

haonv

XLDnaute Occasionnel

• 5 Novembre 2019

• #11

Bonjour à tous,

@patricktoulon :
Si on passe par un name, on n'a pas à modifier la formule, mais seulement le name.
Ce n'était qu'une petite idée à ta remarque:

VB:

...ca implique une modif de formule si changement dans la cellule source

donc nbcar je le laisse surtout celui a la place de 13

Après, ça vaut ce que ça vaut
Comme je ne suis jamais très clair dans mes explications, le petit fichier joint:

 

Pièces jointes

• Classeur1.xlsx

  9.8 KB · Affichages: 6

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Novembre 2019

• #12

Bonjour @haonv
c'est bien ce que je pensais
absolument inutile dans le sens ou il faut accéder au names pour modifier autant le marquer dans la formule
ca n’agrémente donc pas l'utilisation en ergonomie donc absolument inutile
ici dans ce cas seule l'utilisation d'une cellule intermédiaire peut être utile en y mettant la chaîne recherchée
mais je le redis dans ce cas comme dans beaucoup d'autres VBA sera plus ergonomique comme je le démontre avec le code que j'ai donné plus haut la formule utilisant cette fonction vba en ai la preuve
mais ton name NON! tu fait fausse route

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Novembre 2019

• #13

Bonsoir le fil

C'est toujours agréable d'être superbement ignoré dans un fil.
(twice en plus cf message#10 et #11)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Novembre 2019

• #14

bonsoir Staple1600

j'avais vu tes interventions
le problème c'est que tu utilise X colonnes avec TextToColumns

peut être le demandeur ne peux pas selon si la données est deja dans un tableau ca effacerait des données dans les cellules ou sont transférés les partie par TextToColumns

 

Vote positif 0 Vote négatif