Fonction convertir en VBA

**cagouille65** · 30/09/2016, 14h32

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** · 30/09/2016, 14h38

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** · 30/09/2016, 14h49

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** · 30/09/2016, 14h55

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** · 30/09/2016, 14h56

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** · 30/09/2016, 15h07

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** · 30/09/2016, 15h43

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é

**cagouille65** · 30/09/2016, 15h49

Donc à partir d'un texte situé dans une cellule, je le converti pour avoir un mot par cellule. Tout ceci fonctionne tant que je suis sur la même page. si je veux convertir le texte d'une cellule se trouvant sur une autre page vers les cellules d'une autre page, cela ne fonctionne plus.....

**RyuAutodidacte** · 30/09/2016, 16h11

alors ce que tu appelles "page" est en fait une feuille; regarde ici :
Description de l'objet Feuille de calcul dans Excel

ton problème viens du pointage, quanq tu écris : Selection.TextToColumns Destination:=Range("B5"),
Selection => est sur la feuille active sur laquelle tu te trouves
Range("B5") => est sur la celule de la feuille active sur laquelle tu te trouves

Donc il faut pointé la copie sur la feuille voulue - ex.:
si tu veux copier sur la feuille toto tu auras alors :
Selection.TextToColumns Destination:=Worksheets("toto").Range("B5") … …

**cagouille65** · 30/09/2016, 16h26

Alors j'ai essayé cette méthode mais sans résultat.
Il découpe le texte sur la feuille active et en plus il le coupe n'importe comment. Il mets une lettre dans une cellule, 3 lettres dans une autre.....

Voici de nouveau la macro :

Code :

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

1
2
3
4
5
    Selection.TextToColumns Destination:=Worksheets("Feuil4").Range("A1"), 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

End Sub

**RyuAutodidacte** · 30/09/2016, 17h15

peux tu me donner ce que tu as dans une cellule (cellule source), que je puisse de donner un exemple avec la feuille et cellule de destination

**cagouille65** · 30/09/2016, 17h23

Voici le fichier commenté et détaillé. Si vous pouvez m'apporter vos lumières....test.xlsx

**RyuAutodidacte** · 02/10/2016, 14h31

Bonjour,
j'ai regardé le fichier mais il y a des incohérences avec la demande et le fichier exemple dont je pense ne reflète pas la réalité :

si je veux convertir le texte d'une cellule se trouvant sur une autre page vers les cellules d'une autre page, cela ne fonctionne plus.....

Ce n'est pas la demande initial et donc apparemment il ne s'agit plus de la feuille active

Dans le fichier :

Texte source
La destination se fait sur la ligne 1 de la feuille nommée Feuil4
…
Texte retour
La source se trouve sur la ligne 1 de la feuille nommée Feuil4[/B]

c'est le même emplacement !! Pourtant la demande est autre !! ???

les explications ne sont pas très claire; de plus j'ai TrailingMinusNumbers:=True dans le code, mais dans le fichier exemple, les données ne correspondent pas à ce type de code

Il faudrait être vraiment clair sur la demande !
avec des données fictive mais reflétant les données réelles, une feuille avec les données source (Ex: Feuil1), une feuille pour la destination (ex : Feuil2 ou Feuil1 si c'est sur la même feuille) et une feuille "résultat" montrant le résultat final

PS : je n'ai rien compris à cette mise en forme dans la feuille 1, c'est sensé représentait quoi ??

**joe.levrai** · 02/10/2016, 15h01

Bonjour,

un autre outil possible : Split()

Code :

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

1
2
3
4
5
6
7
8
9
Sub LesMots()
Dim MaPhrase As String
Dim MesMots() As String
MaPhrase = "AAA AAB AAC AAD AAE AAF AAG"
MesMots = Split(MaPhrase)
 
ThisWorkbook.Worksheets("Feuil1").Cells(1, 1).Resize(1, UBound(MesMots) + 1).Value = MesMots
 
End Sub

**RyuAutodidacte** · 02/10/2016, 15h19

En effet @joe.levrai,
mais tant que sa demande ne soit pas plus clair, j'attends son retour, surtout que je lui avait donné un lien sur le post #2, montrant plusieurs façon de faire,
mais avec le niveau débutant vba ça sera du pas à pas pour une meilleur compréhension :

Envoyé par cagouille65

Je suis en train d'essayer de programmer en VBA (Je dis bien "essayer".....)

PS : @cagouille65 merci d'uliser

- utiliser le bouton # et mettre le code entre les 2 balises

**cagouille65** · 03/10/2016, 18h52

Bonsoir à tous et merci d'avance pour votre aide

Effectivement, ma demande a changé par rapport à mon premier POST....

Voulant rechercher l'amélioration à tout instant j'ai modifié ma page et l'ai faite évoluée....

Mon idée est la suivante :

Première page je rentre un texte dans une cellule
Lorsque je clique sur convertir
Le texte est divisé en nombre de cellules égalent au nombre de mots dans une deuxième page.
Lorsque je clique sur le bouton reconstituer, alors le texte divisé en cellule sur l'autre page revient se reconstituer dans une nouvelle cellule de la première page.

En espérant avoir été plus clair.....

Merci à tous

**joe.levrai** · 03/10/2016, 19h18

Bonjour,

je persiste avec la méthode Split() ... car comme tu souhaites pouvoir réaliser le traitement inverse (rassembler les mots), on va utiliser son anti-frère Join()

j'ai utilisé pas mal de variables pour que tu puisses t'y retrouver, mais aucune n'est nécessaire
j'ai également simulé l'écriture de ta phrase en A1 en début de procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub LesMots()
Dim FeuilleDepart As Worksheet
Dim FeuilleArrivee As Worksheet
Dim MaPhrase As String
Dim MesMots()
 
Set FeuilleDepart = Feuil1: Set FeuilleArrivee = Feuil2
 
' pour simuler l'écriture du texte qu'on met en A1 de Feuil1
FeuilleDepart.Cells(1, 1).Value = "AAA AAB AAC AAD AAE AAF AAG"
 
With FeuilleArrivee
    ' on écrit la phrase, mot à mot, vers la Feuil2, en A1/B1/C1 etc..
    .Cells(1, 1).Resize(1, UBound(Split(FeuilleDepart.Cells(1, 1))) + 1).Value = Split(FeuilleDepart.Cells(1, 1).Value)
 
    ' facultatif : on mets les mots dans un tableau
    ' on transpose deux fois le tableau pour qu'il soit unidimensionnel
    MesMots = Application.Transpose(Application.Transpose(.Range(.Cells(1, 1), .Cells(1, .UsedRange.Columns.Count)).Value))
End With
 
' on récupère chaque mot qu'on rassemble dans une phrase
' en utilisant le tableau MesMots
MaPhrase = Join(MesMots, " ")
 
' la phrase reconstituée
MsgBox MaPhrase
 
End Sub

**patricktoulon** · 03/10/2016, 19h29

Bonsoir

Code :

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

1
2
3
4
5
6
7
8
9
Sub texttocolumn() 'dans meme feuille la ligne en dessous
    Sheets(2).Range("A1").TextToColumns Range("A2"), DataType:=xlDelimited, ConsecutiveDelimiter:=True, Space:=True
End Sub
Sub texttocolumn2() ' dans une  autre feuille
With Sheets(3).Range("A2")
.Value = Sheets(2).Range("A1")
.TextToColumns , DataType:=xlDelimited, ConsecutiveDelimiter:=True, Space:=True
End With
End Sub