Extraction de multiples chaines de caractères de tailles variables

Bonjour,

J'ai une cellule A1 avec un texte contenant des slashs (/). Le nombre de parties/slashs est variable et le nombre de caractères de chaque partie est également variable.

Exemples :
aa/b/ccc/d/ee/f/gg/hhh
aa/b/ccc/d/ee
aa/b/ccc
aa/b
aa

Pour l'instant je trouve la première et la deuxième parties.

Code:

---

1 2 3

A2 = GAUCHE(A1;CHERCHE("/";A1)-1) A3 = DROITE(GAUCHE(A1;CHERCHE("/";A1;CHERCHE("/";A1)+1)-1); CHERCHE("/";A1;CHERCHE("/";A1)+1)-CHERCHE("/";A1)-1)

---

Les parties suivantes me posent problème. Mais peut-être que je pars mal dès les premières parties ?
Comment extraire dans les cellules A2, A3, A4, A5, A6, ... les différentes parties contenues avant/entre/après les slash (c'est à dire aa en A2, b en A3, ccc en A4, etc) ?
Je préfèrerais éviter les solutions à base d'expressions régulières, que je ne maîtrise pas encore (sauf si c'est nettement plus efficace et polyvalent évidemment).
Pour mon usage le meilleur système serait un système où je pourrais extraire la chaine en définissant la position du slash d'avant et du slash d'après (ex : trouver le texte entre le 4ème et le 5ème slash).

Pourriez-vous m'aider s'il vous plait :D ?
Merci pour votre aide !

Bonjour,

la fonction Split() est ton ami ! Regarde l'aide en ligne :f1: pour comprendre ma proposition

je découpe ta chaine avec les slash en séparateurs, et tant qu'on a des morceaux, on les écrits les uns après les autres

ainsi, tu n'as pas à gérer le nombre de slash existants, la taille des portions etc... tout est dynamique sur ce point

cet exemple correspond à ton premier exemple (aa/b/ccc/d/ee/f/gg/hhh), écrit en A1 de la feuille active, avec renvoi des morceaux en B1 - C1 - D1 etc... de la feuille active

Code:

---

Cells(1, 2).Resize(1, UBound(Split(Cells(1, 1).Value, "/")) + 1).Value = Split(Cells(1, 1).Value, "/")

---

il te reste simplement :

- à créer une boucle pour parcourir ta colonne et à chaque tour de boucle utiliser cette proposition
- mieux encore (mais pas obligatoire) : transformer cette proposition en une procédure standard, que tu pourras appeler à plusieurs endroits de ton projets si besoin


EDIT : puisque j'ai fait le radin sur les lignes de code (une seule), voici quand même un exemple un peu plus riche pour que tu puisses comprendre la mécanique
ce n'est encore une fois qu'une proposition à totalement customiser

Code:

---

1 2 3 4 5 6 7 8 9

Sub toto() Const SEPARATEUR As String = "/" Dim MesMorceaux MesMorceaux = Split(Cells(1, 1).Value, SEPARATEUR) ' on commence en B1 et on va s'étendre sur autant de colonnes que de morceaux ' | | ' v Cells(1, 2).Resize(1, UBound(MesMorceaux) + 1).Value = MesMorceaux End Sub

---

Désolé du double post, je rebondis sur la dernière demande

si tu veux pouvoir choisir les portions de ton choix, Split() de le permet aussi

ici par exemple, je vais afficher dans une boite de dialogue :

- le nombre de morceaux
- le morceau numéro 4
- si le morceau n'existe pas : on te l'indique

toujours basé sur ton premier exemple
j'ai mis un paquet de variables pour ta compréhension, mais elles ne sont pas obligatoire
et comme toujours, à totalement adapter ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub toto() Const SEPARATEUR As String = "/" Dim NumMorceaux As Long Dim MonMorceaux As String Dim MesMorceaux MesMorceaux = Split(Cells(1, 1).Value, SEPARATEUR) NumMorceaux = 4   If UBound(MesMorceaux) + 1 < NumMorceaux Then MonMorceaux = " n'existe pas" Else MonMorceaux = " est : " & MesMorceaux(NumMorceaux - 1)   MsgBox ("Il y a " & UBound(MesMorceaux) + 1 & " morceaux dans la chaine suivante : " & vbCrLf & _ Cells(1, 1).Value & vbCrLf & _ "Le morceau numéro " & NumMorceaux & MonMorceaux)     End Sub

---

Bonjour !

Citation:

---

Envoyé par Thierry360

Comment extraire dans les cellules A2, A3, A4, A5, A6

---

Par le B-A-BA d'Excel via le menu Données, Convertir ! Il suffit ensuite de bien répondre à l'assistant …
Et en activant l'Enregistreur de macros, une base de code est livrée sur un plateau !

Sinon pour ceux n'ayant pas peur de lire, tout est expliqué dans l'aide VBA de la méthode TextToColumns …

Les expressions régulières sont effectivement les plus efficaces.

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Bonjour,

Tu peux aussi te faire une fonction perso :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function BLOC(Cel As Range, Sep As String, Pos As Long)   'valeur retournée si Pos supérieur au nombre de blocs BLOC = ""   'dans le cas contraire, retourne le bloc désiré If Pos < UBound(Split(Cel.Value, Sep)) + 1 Then   BLOC = Split(Cel.Value, Sep)(Pos - 1)   End If   End Function

---

Que tu utilise de cette façon :

Code:

---

1 2	=BLOC($C$1;"/";B1)

---

Où en C1 se trouve ta chaîne et en B1 et Bx les positions ordinales du bloc considéré et ensuite, tu tire vers le bas

Bonjour

Code:

---

1 2 3 4 5 6 7 8 9

Sub test1() 'on remplace les saut de ligne sous toute ses formes texte = Replace(Replace(Replace([A1].Value, vbCrLf, ""), Chr(10), ""), Chr(13), "") Debug.Print texte 'on créé le tableau tablo = Split(texte, "/") 'on remet le tableau en place a partir de A1 :chaque partie sera dans une cellule Cells(1, 1).Resize(UBound(tablo), 1) = tablo End Sub

---

hello,
voici une autre solution en utilisant les expressions rationnelles. Cela consiste en une fonction personnalisée qui a deux paramètres. Le premier paramètre est la cellule sur laquelle on fait le traitement. Le deuxième paramètre qui est optionnel est la position de l'élément à extraire (0 pour le premier). Cette formule marche aussi en matricielle ligne ou colonne.
La voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Public Function SplitChaineMulti(MaCellule, Optional pos As Variant) ' J.P juin 2016 Dim myTarg As Range Dim regEx As New RegExp Dim OMatches, OMatch Dim Rslt() As String Dim NbElem, DimRslt As Integer If IsMissing(pos) Then pos = 0 With regEx .Global = True .IgnoreCase = False 'le motif consiste à capturer tout ce qui n'est pas / .Pattern = "([^/])+" End With Set myTarg = Application.Caller If myTarg.Rows.Count > 1 And myTarg.Columns.Count > 1 Then MsgBox "Vous ne pouvez pas sélectionner plusieurs lignes et " & vbCrLf & _ " plusieurs colonnes dans la formule !" Exit Function End If ' On recherche tous les éléments Set OMatches = regEx.Execute(MaCellule) NbElem = OMatches.Count ' On dimensionne le tableau de résultat au ' max entre les lignes et les colonnes If myTarg.Rows.Count > myTarg.Columns.Count Then DimRslt = myTarg.Rows.Count Else DimRslt = myTarg.Columns.Count End If ReDim Rslt(1 To DimRslt) For i = LBound(Rslt) To UBound(Rslt) If i + pos <= NbElem Then Rslt(i) = OMatches(i - 1 + pos) Else Rslt(i) = "" End If Next 'On transpose si on a une formule sur plusieurs lignes If myTarg.Rows.Count > 1 Then SplitChaineMulti = Application.Transpose(Rslt) Else SplitChaineMulti = Rslt End If End Function

---

et voici un exemple d'utilisation :
1 - en D1 on a rentré la formule =SplitChaineMulti(A1;2) on prend le 3ème élément
2 - en A4:A8 on a rentré la formule matricielle =SplitChaineMulti(A1) (sélectionner les cellules A4:A8 puis rentrer la formule puis valider par CTRL + MAJ + Entrée)
3 - en D3:H3 on a rentré la formule matricielle =SplitChaineMulti(A1;1) (sélectionner les cellules D3:H3 puis rentrer la formule puis valider par CTRL + MAJ + Entrée)

voici le résultat :

Pièce jointe 213275

Il doit y avoir quelques bugs dans le code et des optimisations à faire :aie: . L'avantage d'utiliser la fonction en matricielle c'est qu'on ne passe qu'une seule fois dans le code vba quelque soit le nombre de lignes ou le nombre de colonnes sur laquelle s'applique la formule.

Ami calmant, J.P

re
pas mal du tout le dinosaure!!
mais tu te leurre en disant que le code passe une fois

a chaque cellule que tu sélectionne le code fera son tour

après pour la chaine a splitter c'est un peu lourd le regex sachant que le découpage n'a pas besoins de beaucoup d'arguments

hello

Citation:

---

Envoyé par patricktoulon

mais tu te leurre en disant que le code passe une fois
a chaque cellule que tu sélectionne le code fera son tour

---

j'ai vérifié en mettant un point d'arrêt dans le code VBA de la fonction. Quand je change les données de la cellule A1 je ne passe que trois fois dans le code :
1 fois pour la formule qui se trouve en D1
1 fois pour la formule matricielle qui s'étend de A4 à A8 le résultat du code remplit les cellules de A4 à A8 en une seule fois.
1 fois pour la formule matricielle qui s'étend de D3 à H3 e résultat du code remplit les cellules de D3 à H3 en une seule fois.

Ami calmant, J.P

Merci beaucoup pour vos réponses !!
Je vais tester les différentes solutions et à l'usage je conserverai celle qui convient le mieux à la situation.