Convertir une liste pour l'utiliser dans Excel

Bonsoir Ulysse.

Il ne faut pas prendre à la lettre le verbe "importer" utilisé par brucine !
Une fois que tu as copié ton texte "Papa ;maman ;tatie ;tonton" dans la cellule A1 d'Excel, tu dois faire
DONNÉES/Outils de données/Convertir puis Type délimité et Séparateur Point-virgule ...


Les 4 éléments sont dispatchés entre les cellules A1, B1, C1 et D1.

Bonsoir
Classeur à tester

Bonjour,

une approche en vba si "QC" est toujours présent

cette macro lit le fichier texte et scinde chaque ligne.

A mettre dans un module et appelez la macro LireFichierTexteParLigne()
en ayant eut soin d'adapter le chemin du fichier texte:

Option Explicit
Sub LireFichierTexteParLigne()
'par: https://excel-malin.com
Application.ScreenUpdating = False
On Error GoTo CodeErreur
Dim IndexFichier As Integer
Dim MonFichier As String
Dim ContenuLigne As String
Dim i As Long
MonFichier = "C:\Users\LePivert\Documents\essai.txt" '<-- mettez ici le nom du fichier à lire
IndexFichier = FreeFile()
Open MonFichier For Input As #IndexFichier 'ouvre le fichier
i = 1
While Not EOF(IndexFichier) '
    Line Input #IndexFichier, ContenuLigne     ' lecture du fichier ligne par ligne: la variable "ContenuLigne" contient le contenu de la ligne active
    Cells(i, 1) = ContenuLigne
    'ajoutez ici votre code à appliquer pour chaque ligne
    scinderligne (i)
    i = i + 1
Wend
ActiveSheet.Range("A1:F1").Columns.AutoFit
Close #IndexFichier ' ferme le fichier
Application.ScreenUpdating = True
Exit Sub
CodeErreur:
MsgBox "Une erreur s'est produite..."
Application.ScreenUpdating = True
End Sub
Sub scinderligne(ByVal ligne As Integer)
Dim num As String
Dim ville As String
Dim tabu As Integer
ville = Split(Cells(ligne, 1), "QC")(0)
Cells(ligne, 2) = Split(ville, " ")(0)
Cells(ligne, 2) = Cells(ligne, 2) & " " & Split(ville, " ")(1)
num = Split(Cells(ligne, 1), "QC")(1)
Cells(ligne, 5) = Split(num, " ")(1) & " %"
Cells(ligne, 6) = Split(num, " ")(3)
Cells(ligne, 3) = Replace(Cells(ligne, 1), Cells(ligne, 2), "")
Cells(ligne, 3) = Replace(Cells(ligne, 3), Cells(ligne, 5), "")
Cells(ligne, 3) = Replace(Cells(ligne, 3), Cells(ligne, 6), "")
Cells(ligne, 3) = Replace(Cells(ligne, 3), "QC", "")
tabu = UBound(Split(Cells(ligne, 3)))
Cells(ligne, 4) = Split(Cells(ligne, 3), " ")(tabu - 3)
Cells(ligne, 3) = Replace(Cells(ligne, 3), Cells(ligne, 4), "")
End Sub

Voilà

Bonjour à tous,

Utilise données==>convertir

Crdlmt

Bonsoir,

Aucun logiciel ne sait faire cela si les informations ne sont pas délimitées.

S'il s'agit d'un fichier texte, mettre par exemple un point-virgule entre chaque champ, on pourra ensuite importer le texte ainsi délimité dans Excel.

merci Brucine.
Tel que suggéré, j'ai séparé les champs avec des " ; " Copier / Coller mais aucun résultat utilisable.
Dans le menu de Fichier, dans Excel, je vois Exporter mais pas Importer. pourriez-vous me dire comment Importer ?

Un gros merci! Comme on dit: "Papa, ça marche!"
Il me reste une partie du problème à régler. Est-ce qu'il existe un moyen d'inscrire en bloc les " ; " à chaque point de séparation. Dans une liste de plus de 50 lignes avec 5 points de séparation, c'est beaucoup de manipulation.
Suggestion ?
Ulysse

Bonjour à tous,

Et si tu mettais un exemple réel du contenu de ta cellule ? Tu ne crois pas que ça éviterai de parler dans le vide et que ça permettrait d'apporter la réponse adéquate a ta question.

Crdlmt

Bonne idée DjiDji. Voici un exemple simplifié.
20 11 LE COCHON DINGUE LEVIS QC 2,00 % 42$
20 11 MAGASIN CDN TIRE MONTRÉAL QC 1,50 % 75$
20 11 IGA EXTRA QUEBEC QC 3,00 % 15$

Dans cet exemple, je dois séparer la date, le lieu, le % et le montant.
À partir des informations obtenues de chacun des répondeurs, je sais maintenant comment séparer les champs. Toutefois, comme à chaque mois la liste à traiter comprend environ 50 lignes, j'aurais à insérer environ 250 à 300 points-virgules.
Ma nouvelle question consiste à savoir s'Il y a un moyen de procéder aux insertions autrement qu'une à la fois.
Un merci sincère à tous ceux qui prendront le temps de me répondre.
Ulyss

cs_Le Pivert
Je constate que vous êtes "un peu plus" (hum) avancé que moi dans la programmation.
Vous avez consenti pas mal d'efforts pour développer cette solution et je vous en remercie. Toutefois, avant d'être en mesure de l'appliquer, je devrai retourner à mon livre de VBA !!!
En effet, je comprends que la prémisse est à l'effet que QC est toujours présent, ce qui n'est pas le cas (sauf dans l'exemple que j'ai soumis).
Je conserve votre proposition en attendant de pouvoir l'utiliser.