Macro séparation de données après un mot définit

Bonjour,

J'ai un fichier excel qui après une extraction d'un fichier texte est arrangé avec toutes les données dans une colonne.
Je voudrais pourvoir séparer ces valeurs pour pouvoir les coller par la suite dans une autre feuille excel.
Tout ça de façon automatisée avec VBA.
J'ai d'abord utilisé l'enregistrement de Macro avec le convertisseur de données/largeur fixe.
Cependant, d'un fichier texte a un autre, la largeur peut être différente et les données ne sont pas séparées comme je le voudais.

J'aimerais donc si cela est possible avec du code VBA, prendre le contenu d'une colonne après un mot ou une chaine données, et le mettre dans une autre cellule (juxtaposée ou non), plutôt que d'utiliser une conversion par largeur fixe.

Je joins un fichier exemple pour que ce soit plus clair. J'ai mis la forme que j'ai et la forme que je voudrais.

Si mon problème n'est pas très clair, je peux donner plus de détail, je débute en VBA

Bonjour

Vous avez un outil dédié dans Excel pour transformer votre fichier source selon vos besoins sans taper une seule ligne de code : allez dans le menu "Données/Récupérer et transformer", "A partir d'un fichier Excel".
La fenêtre Power Query vous permettra de fractionner la colonne par position ou par délimiteur suivant votre source. Vous pourrez définir les champs texte, date, numérique.. et utiliser vos données dans des tableaux croisés dynamiques
la richesse de cet outil est énorme : oubliez la solution VBA pour réaliser votre import.

Précision : cet outil est disponible de base dans les versions Excel depuis quelques années, mais pour 2010 il y un complément à charger. N'hésitez pas, vous gagnerez beaucoup de temps dans de nombreux projets.

Stéphane

Merci pour votre réponse, mais ce que j'écris n'est qu'une partie de mon travail. Je travaille sur une macro qui va automatiquement remplir un tableau à partir d'un document externe. La macro à lieu d'être car c'est un travail répétitif et cela me permet de gagner du temps.
De plus, je ne peux pas télécharger de contenu supplémentaire pour mon excel 2010, je ne suis pas administrateur de l'ordinateur de mon stage, pour lequel je réalise ce projet.

Cependant, je prends bien note de votre réponse pour ma culture et cela me permettra de gagner du temps sur des projets plus personnels :)

hello,

Citation:

---

Envoyé par lude57

J'aimerais donc si cela est possible avec du code VBA, prendre le contenu d'une colonne après un mot ou une chaine données, et le mettre dans une autre cellule (juxtaposée ou non), plutôt que d'utiliser une conversion par largeur fixe.
Je joins un fichier exemple pour que ce soit plus clair. J'ai mis la forme que j'ai et la forme que je voudrais.

Si mon problème n'est pas très clair, je peux donner plus de détail, je débute en VBA

---

On peut faire cela aussi avec des expressions régulières mais cela est assez compliqué et ne fonctionnera que si les délimitateurs de chaînes sont toujours les mêmes et si les données sont toujours de même type. Pour utiliser les expressions régulières en VBA il faut cocher Microsoft VBScript Regular Expressions 5.5 dans les Références.
Exemple :
Avec ce code :

Code:

---

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

Sub ExtraireData() Chaine = "Référence PDL : 5159334226100 Date d'effet souhaitée : 29/03/2021" Set objReg = New RegExp objReg.IgnoreCase = Fals objReg.Pattern = "([^:]+)[^\d]+(\d+)\s+([^:]+):\s+([\d/]+)" Set objMatches = objReg.Execute(Chaine) For Each Match In objMatches 'The variable match will contain the full match a = Match.Submatches.Count 'total number of groups in the full match For i = 0 To a - 1 Debug.Print Match.Submatches.Item(i) 'display each group Next Next Set objReg = Nothing End Sub

---

j'obtiens ceci :

Citation:

---

Référence PDL
5159334226100
Date d'effet souhaitée
29/03/2021

---

Il y a certainement plus simple en expression régulière :mouarf:

Ami calmant, J.P

bonjour
astuce à tester sur une copie de ton fichier pour munir contre tout risque de perte données :aie::
Etape 1 : Remplacer les espace et les deux point avec un code VBA par (|)

Code:

---

1 2 3 4 5 6

Sub test() With Sheets("Feuil2") .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Replace What:=" ", Replacement:="|", LookAt:=xlPart .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Replace What:=":", Replacement:="|", LookAt:=xlPart End With End Sub

---

Etape 2 sans VBA :
selectionner tes données / Onglet Données / Convertir / coché délimité/ suivant / coché Autre et saisir "|" / coché : interpréter des séparateurs identique ..... / suivant / suivant
et tu aura normalement tes données en bon endroit
La deuxième étape refaite avec l'enregistreur automatique du macro (avec qq modif) donne ça :

Code:

---

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

Sub test() With Sheets("Feuil2") .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Replace What:=" ", Replacement:="|", LookAt:=xlPart .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Replace What:=":", Replacement:="|", LookAt:=xlPart   For L = 2 To .Cells(Rows.Count, 1).End(xlUp).Row .Cells(L, 1).TextToColumns Destination:=Range("A" & L), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _ TrailingMinusNumbers:=True Next L End With End Sub

---

Bjr la fonction SPLIT de Excel VBA! Elle permet de couper sur un caratère donné, et magie elle met tous en tableau en AUTO. :mrgreen:

La Fonction TextTocolumns vba le fais aussi... (Equivalent de la fontion CONVERTIR dans Excel).

Le Livre pour débutant "Macro et Language VBA" trouvable en PDF contiens 1 gros chapitres sur les Fichiers textes, mais oublie la meilleures fonctions VBA : TextTocolumns.

J'ai entre temps trouvé une solution qui consiste a faire une feuille que je masque, avec les formules TROUVE() et STXT() combinées. Cela permet d'extraire en continu les infos. Le code VBA permettre simplement d'aller chercher les données dans ces cellules. Je pense que cette solution est intéressante car elle simplifie le code VBA et permet surement de gagner du temps d'exécution du code.
Cependant je vais tout de même me pencher sur les solutions que vous m'avez proposées qui permet de regrouper tout au même endroit dans le code.

Bonne continuation, je note cette discussion "Résolue" :D