Discussion :

[cagouille65]

Bonjour,

Je suis en train d'essayer de programmer en VBA (Je dis bien "essayer".....) une page qui me permette de séparer les mots d'un texte.

Dans une cellule, j'y collerai tous le texte d'un coup (Jusque là facile....)
Lorsque je clique sur le bouton convertir, je voudrais que le texte soit séparé en mot (1 mot par cellule). J'ai trouvé la commande sur Excel pour le faire mais je ne sais pas comment le programmer en VBA....

Votre aide sera la bien venue. Merci à tous

L'escargot baveur du désert Pyrénéen

[RyuAutodidacte]

Bonjour,
avec l'enregistreur de macro tu devrais avoir le code.
pour information regarde ici : Range.TextToColumns

Il y a eu une discussion récente ici

[cagouille65]

Voici un exemple de texte

AAA AAB AAC AAD AAE AAF AAG


Je voudrais arriver au résultat suivant :

Cellule A1 : AAA
Cellule B1 : AAB
Cellule C1 : AAC
Cellule D1 : AAD
Cellule E1 : AAE
Cellule F1 : AAF

Je sais le faire en utilisant la commande convertir mais pas en VBA à la demande.....

[RyuAutodidacte]

justement si tu sais le faire manuellement, il faut refaire la même manipulation mais avec l'enregistreur de macro qui lui te donnera un code
Regarde ici : Excel et l'enregistreur de macro
on regardera le code fourni par celui-ci

[Marc-L]

Bonjour,

activer l'Enregistreur de macros puis manipuler : une base de code est livrée sur un plateau ‼

Excel et l'enregistreur de macro

Sinon rien qu'en consultant l'aide VBA interne de la méthode TextToColumns …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[cagouille65]

Voici le résultat :

Code :

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

1
2
3
4
5
    Selection.TextToColumns Destination:=Range("B5"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(5, 1), Array(8, 1), Array(9, 1), Array _
        (11, 1), Array(12, 1), Array(15, 1), Array(16, 1), Array(20, 1), Array(21, 1), Array(25, 1), _
        Array(26, 1), Array(28, 1), Array(29, 1), Array(33, 1), Array(34, 1), Array(44, 1), Array( _
        45, 1), Array(49, 1)), TrailingMinusNumbers:=True

J'en suis très satisfait. Merci à tous. Maintenant mon soucis est qu'il refuse de convertir le texte d'une page vers une autre page. Il m'indique de la destination est invalide....

[RyuAutodidacte]

Désolé je ne comprends pas bien la suite,

Une explication détaillé et explicite serait une plus pour la suite afin de comprendre les tenants et aboutissants en commençant au début jusqu'à la finalité