Microsoft 365 Transformer une suite de mots en cellules

moanin

XLDnaute Impliqué
Bonsoir à tous ;)

J’ai une suite de mots les uns après les autres sous forme de texte.

Est-ce qu’il est possible de les copier dans une un tableau Excel de manière à ce qu’ils affichent chacun dans une cellule

exemple :

Baudoin, Eudes, Foulques, Pépin, Alain, Arnaud, Arnould, Bérenger, Bernard, Conrad, Herbert, Hildebert (Gilbert), Honoré, Hugues, Isaac, Loup, Milon, Raoul, Rodolphe, Roger, Raimond, Régnier, Richard, Robert, Roland, Willebert.



Baudoin
Études
Foulques
Pépin


Merci
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Moanin,
Au post post-20589416 :
Toujours pas de fichier test, vous préférez les images ....
Ici vous préférez du texte.

Donc c'est au contributeur bénévole qui essaie de vous aider de se retaper le fichier ?

Un essai en PJ avec :
VB:
Sub Separe()
    T = Split([B1], ",")
    [A5:A1000].ClearContents
    [A5].Resize(UBound(T) + 1, 1).Value = Application.Transpose(T)
End Sub
 

Pièces jointes

  • Classeur2.xlsm
    14.2 KB · Affichages: 2

moanin

XLDnaute Impliqué
Juste un souci.

Les noms dans les cellules créées contiennent toutes le texte copié original (A1).

Il est donc impossible de supprimer ce texte (celui qui est dans la premiére cellule (A1) sinon tous les noms dans les cellules créées sont supprimés aussi.

Comment faire ?
 

Pièces jointes

  • Copie de prénoms moyen âge.xlsx
    12.5 KB · Affichages: 2

Staple1600

XLDnaute Barbatruc
Bonjour le fil

@mapomme
Cela fonctionne sans le transpose, non ?
En B1
=FRACTIONNER.TEXTE(A1;;",")
En mettant le séparateur comme [row_delimiter] et pas en [col_delimiter]
PS: fonctionne sur exemple simple: éléments de la chaine de caractère en A1 séparés par une virgule.
(testé avec la deuxième chaine présente dans le *.docx)
 

Discussions similaires

Statistiques des forums

Discussions
312 216
Messages
2 086 351
Membres
103 195
dernier inscrit
martel.jg