Fonction convertir en VBA

Version imprimable

30/09/2016, 14h32
cagouille65

Fonction convertir en VBA

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
30/09/2016, 14h38
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
30/09/2016, 14h49
cagouille65

Plus de précision

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.....
30/09/2016, 14h55
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
30/09/2016, 14h56
Marc-L

Bonjour,

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

:fleche: 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, …

Résultat

Voici le résultat :

Code:

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....

30/09/2016, 15h43
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é
30/09/2016, 15h49
cagouille65

explication

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.....
30/09/2016, 16h11
RyuAutodidacte

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") … …

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:

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

30/09/2016, 17h15
RyuAutodidacte

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
30/09/2016, 17h23
cagouille65

1 pièce(s) jointe(s)

RE

Voici le fichier commenté et détaillé. Si vous pouvez m'apporter vos lumières....Pièce jointe 221611
02/10/2016, 14h31
RyuAutodidacte

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é :

Citation:

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 :

Citation:

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 ??

Bonjour,

un autre outil possible : Split()

Code:

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

02/10/2016, 15h19
RyuAutodidacte

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 :

Citation:

Envoyé par cagouille65

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

PS : @cagouille65 merci d'uliser :tagcode: - utiliser le bouton # et mettre le code entre les 2 balises
03/10/2016, 18h52
cagouille65

Ma réponse

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

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:

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

Bonsoir

Code:

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

03/10/2016, 23h34
RyuAutodidacte

Bonsoir cagouille65,

Citation:

Envoyé par cagouille65

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

Cela aurait été judicieux de le préciser dans le post du fichier joint

là tu as le choix ente le code @joe.levrai ou @patricktoulon