Isoler une partie de texte d'une cellule avec position variable ?

DukeDevlin · 14 Mars 2020

Bonjour,

Je viens vers vous aujourd'hui pour avoir vos lumières. En effet, vous trouverez en PJ un tableau expliquant mon problème. J'ai une cellule contenant un descriptif assez long. Et j'aimerais isoler 2 références à partir de ce descriptif : Le NCA et le NCR. Je sais que le NCA a 4 chiffres et le NCR 5 chiffres et que l'un comme l'autre peuvent être placés qu'au début (à gauche) et non pas à la fin. Le problème, c'est que la nomenclature utilisée peut changer d'une cellule à une autre comme joint dans l'exemple, sinon cela serait trop facile et il suffirait d'utiliser la fonction GAUCHE. Avez-vous une idée pour que je clean le fichier en faisant ressortir les NCA et NCR pour chaque descriptif dans deux nouvelles colonnes ? Je pense que cela sera plus parlant avec l'exemple.

Merci à vous. Bonne journée.

patricktoulon · 14 Mars 2020

re
ooouuuaaaaiiiiisss! vbs et alors!!!?
j'en remet un coup du scrun tient rien que pour faire plaisir a jmfmarques

houuuuuh!!houhhh! c'est moi scrunchitator

bon c'est l'heure du café arrosé a tout de suite

jmfmarques · 14 Mars 2020

Le client (DukeDevlin) est roi et choisira, tout simplement.
ps : et ce n'est pas seulement scrun.dll, mais la totalité de vbscript.dll, hein, que tu importes ainsi dans ton classeur ...

patricktoulon · 14 Mars 2020

re
mmmhhhmm mouuuais.........

ben qu'il choisisse bien alors
1 juste
2 faux
3 faux il c'est perdu celui là
4 faux
5 faux il c'est perdu celui là
etc...etc....

j'ai utilisé ta fonction

VB:

Public Function extrait(ch As String, n As Integer) As String
  Dim k As Long, flt As String, titi
  flt = String(n, "#")
  titi = Split(StrConv(ch, vbUnicode), Chr(0))
  For i = 0 To UBound(titi) - 1
   If Not IsNumeric(titi(i)) Then titi(i) = Chr(1)
  Next
  titi = Split(Join(titi, ""), Chr(1))
  For k = 1 To UBound(titi)
    If titi(k) Like flt Then
      extrait = extrait & "-" & titi(k)
    End If
  Next
  extrait = Mid(extrait, 2)
End Function

je rapelle ce que souhaite le demandeur

patricktoulon · 14 Mars 2020

allez j'enfonce le clou
maintenant que le raisonnement avec regex se vérifie et bien on fait sans

VB:

Function les_nombres(cel As String, nombre)
Dim i&, T, x$
For i = 1 To Len(cel):  Mid(cel, i, 1) = IIf(Not IsNumeric(Mid(cel, i, 1)), " ", Mid(cel, i, 1)): Next
 cel = Application.Trim(cel)
T = Split(cel, " ")
For i = 0 To UBound(T): x = x & IIf(Len(T(i)) = nombre, T(i) & " ", ""): Next
les_nombres = IIf(x = 0, "", x)
End Function

comme avec le regex (même raisonnement!!! )

on remplace tout ce qui n'est pas numérique par un espace
on régularise les doubles(triple) espace avec application.trim
on coupe le résultat par les espaces qui reste
on garde que les len (argument(nombre))

ça plaira peut être plus à jmfmarques

salutations de scrunchitator du fin fond du regextant

ok je sort

Staple1600 · 14 Mars 2020

Re

Moi, je rentre
Why?
T = Split(cel, " ")
Why not?
T = Split(cel)

Ok je sors

jmfmarques · 14 Mars 2020

allez j'enfonce le clou

non . là, tu rétropédales en reprenant (mieux ? j'en doute) un principe écrit autrement plus haut

patricktoulon · 14 Mars 2020

Staple1600
par ce que le lecteur moins expérimenté que d'autre aura plus de facilité a comprendre
c'est vrai que j'aurais tendance a tronquer les lignes de codes mais la it's not necessary

patricktoulon · 14 Mars 2020

jmfmarques à dit:
non . là, tu rétropédales en reprenant (mieux ? j'en doute) un principe écrit autrement plus haut

j'ai pas vu quelque chose de similaire je ne fait qu'appliquer le raisonnement que j'ai utilisé avec le regex

jmfmarques · 14 Mars 2020

j'ai pas vu quelque chose de similaire

C'est qu'alors tu n'as pas su suivre ou piger ...
Bonne nuit

Staple1600 · 14 Mars 2020

Re

Peu importe le lecteur expérimenté ou pas en VBA
Le principal, c'est qu'il soit un lecteur curieux
(qui donc aurait été voir dans l'aide en ligne de VBA que l'espace est le séparateur par défaut de Split)

PS: Et ton argument est un chouia "fallacieux"
Car pour un lecteur inexpérimenté, tu aurais du écrire pour commencer
Dim i As Long, T As Variant, x As String
et non pas
Dim i&, T, x$

patricktoulon · 14 Mars 2020

re
A non moi j'aime bien les abrégés c'est presque une torture visuelle pour moi les " As ...."

patricktoulon · 14 Mars 2020

jmfmarques
a la limite, je viens de revoir tout le post ,mapomme tient un peu le même raisonnement avec son long replace
dans mon raisonnement je suis plus dur
je shunte sans distinction tout sauf les [0-9]
régule avec app.trim , split , garde les bons
terminé
après pour être honnête, je sais pas si vu les chaines le regex va pas plus vite ou non dans la partie replace

patricktoulon · 14 Mars 2020

Staple1600

Staple1600 à dit:
Re
C'est pourtant toi qui a écrit ceci, non ???

oui mais le dimensionnement des variables et moins perturbants que les optional des fonctions natives

patricktoulon · 14 Mars 2020

a ben le voila qui recommence avec son ballet et sa serpillère (menage)

patricktoulon · 14 Mars 2020

t'inqiet robuste le toulonnais

Isoler une partie de texte d'une cellule avec position variable ?

DukeDevlin

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires