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

D

DukeDevlin

XLDnaute Nouveau
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.
 

Pièces jointes

  • Test.xlsx
    9.2 KB · Affichages: 27
Trier par date Trier par votes
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir à tous,

Avec une fonction personnalisée dans module1.
Recopier les formules de D2 et E2 vers le bas.

Le fonction NcaNcr prend deux arguments:
  • le premier est le texte à analyser
  • le second est le nombre de chiffres des nombres à extraire ( 4 pour NCA et 5 pour NCR)
Le code de la fonction (dans module1):
VB: 
Function NcaNcr(x As String, q As Integer)
Dim s$, t, i&, r$

s = Replace(Replace(LCase(x), "ncr", " "), "nca", " ")
s = Replace(s, "&", " ")
s = Replace(s, """", " ")
s = Replace(s, "'", " ")
s = Replace(s, "{", " ")
s = Replace(s, "(", " ")
s = Replace(s, "[", " ")
s = Replace(s, "-", " ")
s = Replace(s, "|", " ")
s = Replace(s, "`", " ")
s = Replace(s, "_", " ")
s = Replace(s, "\", " ")
s = Replace(s, "^", " ")
s = Replace(s, ")", " ")
s = Replace(s, "@", " ")
s = Replace(s, ")", " ")
s = Replace(s, "]", " ")
s = Replace(s, "°", " ")
s = Replace(s, "+", " ")
s = Replace(s, "=", " ")
s = Replace(s, "}", " ")
s = Replace(s, "/", " ")
s = Replace(s, ",", " ")
s = Replace(s, "?", " ")
s = Replace(s, ".", " ")
s = Replace(s, ";", " ")
s = Replace(s, ":", " ")
s = Replace(s, "/", " ")
s = Replace(s, "!", " ")
s = Replace(s, "-", " ")
s = Application.Trim(s)
t = Split(s)
For i = 0 To UBound(t)
   If Not IsNumeric(t(i)) Then Exit For
   If Len(t(i)) = q Then r = LTrim(r & " " & t(i))
Next i
NcaNcr = Replace(r, " ", " / ")
End Function

edit: la liste des séparateurs à ignorer est sans doute trop longue. Vous pouvez aisément en supprimer (judicieusement).
 

Pièces jointes

  • DukeDevlin- extraire nbre- v1.xlsm
    17.7 KB · Affichages: 8
Dernière édition:
Vote positif 0 Vote négatif
D

DukeDevlin

XLDnaute Nouveau
jmfmarques à dit:
Enfin (il n'est jamais trop tard pour bien faire) .
La solution passe par une fonction personnalisée, à mettre dans un module standard :
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
Et à utiliser ainsi :
en B1 : formule (à tirer ensuite vers le bas) :
Code: 
=extrait(A1;5)
et en C1 : formule (à tirer ensuite vers le bas) :
Code: 
=extrait(A1;4)

et sans REGEX (natif sur les PC mais inhibé sur certains, dont le mien :) )
Cliquez pour agrandir...

Merci ! Je n'ai pas le bon ordinateur et le fichier sur moi, je teste Lundi pour voir si cela fonctionne. Donc ça passe par du VBA et ensuite attribuer la formule à la cellule, c'est bien ça ? Merci.
 
Vote positif 0 Vote négatif
D

DukeDevlin

XLDnaute Nouveau
mapomme à dit:
Bonsoir à tous,

Avec une fonction personnalisée dans module1.
Recopier les formules de D2 et E2 vers le bas.

Le fonction NcaNcr prend deux arguments:
  • le premier est le texte à analyser
  • le second est le nombre de chiffres des nombres à extraire ( 4 pour NCA et 5 pour NCR)
Le code de la fonction (dans module1):
VB: 
Function NcaNcr(x As String, q As Integer)
Dim s$, t, i&, r$

s = Replace(Replace(LCase(x), "ncr", " "), "nca", " ")
s = Replace(s, "&", " ")
s = Replace(s, """", " ")
s = Replace(s, "'", " ")
s = Replace(s, "{", " ")
s = Replace(s, "(", " ")
s = Replace(s, "[", " ")
s = Replace(s, "-", " ")
s = Replace(s, "|", " ")
s = Replace(s, "`", " ")
s = Replace(s, "_", " ")
s = Replace(s, "\", " ")
s = Replace(s, "^", " ")
s = Replace(s, ")", " ")
s = Replace(s, "@", " ")
s = Replace(s, ")", " ")
s = Replace(s, "]", " ")
s = Replace(s, "°", " ")
s = Replace(s, "+", " ")
s = Replace(s, "=", " ")
s = Replace(s, "}", " ")
s = Replace(s, "/", " ")
s = Replace(s, ",", " ")
s = Replace(s, "?", " ")
s = Replace(s, ".", " ")
s = Replace(s, ";", " ")
s = Replace(s, ":", " ")
s = Replace(s, "/", " ")
s = Replace(s, "!", " ")
s = Replace(s, "-", " ")
s = Application.Trim(s)
t = Split(s)
For i = 0 To UBound(t)
   If Not IsNumeric(t(i)) Then Exit For
   If Len(t(i)) = q Then r = LTrim(r & " " & t(i))
Next i
NcaNcr = Replace(r, " ", " / ")
End Function
Cliquez pour agrandir...

Cela semble fonctionner aussi, mais est-ce que cela fonctionne qu'aux exemples données où je couvre toutes les situations possibles et inimaginables ? Merci à toi, je teste Lundi avec le bon ordi et le vrai fichier !
 
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
DukeDevlin à dit:
où je couvre toutes les situations possibles et inimaginables ?
Cliquez pour agrandir...
En informatique j'ai appris que c'était impossible. Plus l'utilisateur est novice en informatique, plus il découvre (à l'insu de son plein gré) des situations, des coïncidences, des cas particuliers tout à fait insoupçonnables pour l’informaticien et qui font planter le système. C'est comme ça.
 
Dernière édition:
Vote positif 0 Vote négatif
D

DukeDevlin

XLDnaute Nouveau
mapomme à dit:
En informatique j'ai appris que c'était impossible. Plus l'utilisateur est novice en informatique, plus il découvre (à l'insu de son plein des gré) des situations, des coïncidences, des cas particuliers tout à fait insoupçonnables pour l’informaticien et qui font planter le système. C'est comme ça.
Cliquez pour agrandir...
Je testerai en tout cas sur mes 4000 lignes. Mais est-ce que ça couvre les sujets qui ont deux NCA et/ou deux NCR ? Ou ça s’arrête à la première chaîne de 4 ou 5 chiffres ? Merci.
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
tant pis pour les machin ;)


VB: 
Function les_4_ou_5_faut_savoir(var As String, longueur As Long)
    Dim t, x$
    With CreateObject("VBScript.RegExp"):
        .Global = True: .IgnoreCase = True
        .Pattern = "[A-z]": var = " " & .Replace(var, " ")    'suppression des[26]de  l'alphabet
        .Pattern = "[\.|\/|;|:|,|!|\\|'|é|è|à|û|ü|ê|ë]|[^\w]": var = " " & .Replace(var, " ")    'supression des caracteres particuliers
        var = Application.Trim(var)    'app.trim (1 seul espace comme separateur)
        t = Split(var, " ")
        For i = 0 To UBound(t): x = x & IIf(Len(t(i)) = longueur, t(i) & " ", ""): Next
    End With
    les_4_ou_5_faut_savoir = Trim(x)
End Function

formule=
pour les series 4
=les_4_ou_5_faut_savoir(B4;4)

pour series 5
=les_4_ou_5_faut_savoir(B4;5)

démo
demo3.gif
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2021 Isoler numéro de facture sur excel
Réponses
2
Affichages
251
sylvanu
sylvanu
M
  • Question
XL 2016 Extraire un numéro alphanumérique dans une célulle
Réponses
8
Affichages
492
mapomme
mapomme
Nicos
  • Question
XL 2016 Position userform dans coin supérieur gauche de cellule 2016 et+
7 8 9
Réponses
129
Affichages
2 K
Dudu2
Dudu2
A
  • Résolu(e)
XL 2016 Extraire une chaine de caractère entre deux caractères différents
Réponses
2
Affichages
563
Al1_44
A
N
  • Résolu(e)
XL 2021 Somme cumulative en prenant en compte une colonne sur 3
Réponses
3
Affichages
122
NLSCt
N
G
  • Question
XL 2013 Isoler des informations dans une cellule
Réponses
5
Affichages
528
grimat
G
M
  • Résolu(e)
XL 2016 isoler une date contenue dans une cellule texte
Réponses
4
Affichages
588
gbinforme
G
M
  • Question
Microsoft 365 Extraire une chaine de caractère numérique d'une cellule
Réponses
10
Affichages
377
patricktoulon
patricktoulon
Y
  • Résolu(e)
XL 2016 Comment supprimer des chiffres + texte en fin de cellule
Réponses
2
Affichages
184
Yayanne76
Y
Z
  • Résolu(e)
Microsoft 365 Récupérer les éléments d'une liste en fonction de leur position
Réponses
2
Affichages
270
Zarnir
Z

Membres actuellement en ligne

14 membres et 179 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 310
Messages
2 087 119
Membres
103 478
dernier inscrit
Frederic Lagger