Microsoft 365 Transformer une suite de mots en cellules

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Juin 2023

• #2

Bonsoir Moanin,
Au post post-20589416 :

Toujours pas de fichier test, vous préférez les images ....

Cliquez pour agrandir...

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

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 15 Juin 2023

• #3

Merci 😉
Ci-joint le texte.
Etant sur une vexions allégée de Excel sur iPad, je n’ai pas accès aux macros.
Y aurait-il un autre moyen ?

 

Pièces jointes

• Noms moyen âge.docx

  8.3 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Juin 2023

• #4

Après du .jpg et du .txt, voilà du .doc ! Vous n'avez pas le .xls ?
Je jette l'éponge. 😉

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Juin 2023

• #5

Bonsoir à tous 🙂,

Avec O365 une formule suffit dans une cellule : =TRANSPOSE(FRACTIONNER.TEXTE(SUBSTITUE(A1;", ";",");","))

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 15 Juin 2023

• #6

Génial ! Ça marche. Merci 😉

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 15 Juin 2023

• #7

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

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Juin 2023

• #8

Re,

• sélectionner la colonne B
• copier toute la colonne B
• coller en valeur ce que vous avez copié sur la colonne B

En fait, on copie la colonne B sur elle-même mais avec un collage en valeur. On peut ensuite effacer A1. la colonne B conservera ses valeurs.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Juin 2023

• #9

Re,

J'ai vu dans votre classeur qu'il y avait des ":" et des ".".
Utilisez cette formule pour en tenir compte :
=TRANSPOSE(FRACTIONNER.TEXTE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;".";",");", ";",");": ";",");","))

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 15 Juin 2023

• #10

Merci 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Juin 2023

• #11

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)

 

Vote positif 0 Vote négatif