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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion DukeDevlin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

Trier par date Trier par votes
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

Dernière édition:
Vote positif 0 Vote négatif
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
Autres addition jusqu'à une cellule vide
Réponses
9
Affichages
131
job75
job75
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
202
mamarus1
M
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
131
SPARKLETOF
S
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
189
job75
job75
treza88
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
123
Dranreb
Dranreb
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
189
Steph733
S
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
117
Ckyara31
C
nrdz83
  • Question Question
XL 2016 [RESOLU]Affichage texte et résultat d'une cellule dans une forme
Réponses
3
Affichages
161
nrdz83
nrdz83
pascal21
  • Question Question
XL 2019 coloriser une partie du contenu de la cellule
Réponses
8
Affichages
158
mapomme
mapomme
fenec
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
229
fenec
fenec
Philarête
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
186
sylvanu
sylvanu
BenHarber
  • Question Question
Microsoft 365 Initialisation d'une variable tableau à partir d'une plage de cellules
2
Réponses
17
Affichages
555
job75
job75
Z
  • Question Question
Microsoft 365 Exporter le visuel d'une cellule vers un fichier PNG
Réponses
4
Affichages
282
patricktoulon
patricktoulon
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
275
Guy_M
G
M
  • Question Question
Microsoft 365 Fonction Index ( sélectionner la Matrice en fonction de cellule
Réponses
3
Affichages
117
manuZ51
M
M
  • Question Question
XL 2021 Isoler numéro de facture sur excel
Réponses
2
Affichages
443
sylvanu
sylvanu
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
132
Yogean
Y
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
176
Webperegrino
W
BenHarber
  • Question Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
1 K
BenHarber
BenHarber
didier09
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
272
didier09
didier09
Retour