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

[DukeDevlin]

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]

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]

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]

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

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]

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

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!!! )

1. on remplace tout ce qui n'est pas numérique par un espace
2. on régularise les doubles(triple) espace avec application.trim
3. on coupe le résultat par les espaces qui reste
4. 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]

Re

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

Ok je sors

 

[jmfmarques]

allez j'enfonce le clou

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

 

[patricktoulon]

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]

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]

j'ai pas vu quelque chose de similaire

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

 

[Staple1600]

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]

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

 

[patricktoulon]

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]

Staple1600

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]

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

 

[patricktoulon]

t'inqiet robuste le toulonnais