Scinder mots entre espace et transposer en ligne

[Guigui]

Bonjour,

je souhaite isoler chaque "mot" contenu dans une cellule, separé par un espace
et avoir le résultat en ligne et non en colonne.

En m'appuyant d'une aide trouvé sur le forum, j'arrive à avoir le résultat en colonne
Ensuite un autre code pour transposé en ligne
(ex: de B3 à L3)

Y a-t-il un moyen d'obtenir le même resultat mais sans l'étape "transposer en colonne" ?
et d'empiler sous la zone B3:L3


Merci pas avance
Guillaume

 

[Habitude]

Re : Scinder mots entre espace et transposer en ligne

Bonjour

Pourquoi une double transposition ?

Ce code devrait suffire

Range("B3").Resize(1, UBound(Split(Range("A1"), " "))) = Split(Range("A1"), " ")

 

[TempusFugit]

Re : Scinder mots entre espace et transposer en ligne

Bonjour


Même chose qu'Habitude, et puisque c'est l'espace qui fait office de séparateur, on peut aussi écrire

Sub macro()
Range("B3").Resize(1, UBound(Split(Range("A1")))) = Split(Range("A1"))
End Sub

 

[Guigui]

Re : Scinder mots entre espace et transposer en ligne

Bonjour,

merci à vous deux c'est parfait 🙂

Je ne maitrise pas du tout ces "tableaux" virtuels ...
L'un d'entre vous peut il me traduire la ligne de code s'il vous plait.

que fait Resize, Ubound, Split ...

Merci encore
Guillaume

 

[TempusFugit]

Re : Scinder mots entre espace et transposer en ligne

Bonjour


En allant farfouiller dans l'aide VBA fournie avec Excel, tu trouveras des informations plus détaillées.
Pour afficher l'aide:
Faire Outils/Macros/Microsoft Visual Basic Editor
puis appuyer sur la touche F1

et renseignes la zone de recherche avec les mots sur lequels tu cherches des infos.