Discussion :

[lude57]

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

[Raccourcix]

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

[lude57]

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

[jurassic pork]

hello,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

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

Ami calmant, J.P

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anarkia777]

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.

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.

[lude57]

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"