Découpe d'une cellule en mots (hors VBA)

[marmotte18]

Bonjour,

Supposons : A1 = "Je mange tous les jours"

Je souhaiterais trouver des formules de calcul (hors VBA) simples qui me découperaient le contenu de la cellule A1 en mots.

Mes 3 formules fonctionnent si j'ai plus de 3 mots, mais elles sont horriblement complexes. Imaginez la formule qu'il faudrait pour avoir le 20ème mot.

1er mot : (je)
A3=GAUCHE(A1;CHERCHE(" ";A1)-1)

2ème mot : (mange)
B3=STXT(A1;CHERCHE(" ";A1)+1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)-CHERCHE(" ";A1)-1)

3ème mot : (tous)
C3=STXT(A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1;CHERCHE(" ";A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)+1)-CHERCHE(" ";A1;CHERCHE(" ";A1)+1)-1)

 

[Catrice]

Re : Découpe d'une cellule en mots (hors VBA)

bonjour,

Tu peux aussi faire :
- Données/Convertir (Délimité)
- Cocher espace à l'etape 2
- Terminer

 

[Staple1600]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour

J'ai ca quelquepart

Une formule qui utilise STXT et COLONNE
et qui scinde le contenu d'une cellule dans les cellules adjacentes

pour info
cette formule a été publié dans Windows News

Peut-etre d'autres ici (lecteurs du magazine) s'en souviendront.

Mais autrement comme dit Catrice Données/Convertir est plus convivial à utiliser (et plus rapide)


Voila je l'ai retrouvé

=STXT($A10;COLONNE()-COLONNE($C10)+1;1)   formule matricielle

Et pour me faire plaisir (en vba) bien que tu n'en veuilles pas

Sub permutation()
'SOURCE:http://wiki.ittoolbox.com/index.php/Code:Split_a_word_letter_by_letter_into_the_corresponding_cells
Dim temp As String
Dim tempword As String
Dim word As String
Dim wordlen As Integer
Dim darray() As String

    word = ActiveCell
    wordlen = Len(ActiveCell)

    For i = 1 To wordlen
        temp = Mid(word, i, 1)
        
        ReDim Preserve darray(i)
        darray(i) = temp

        For j = i To i
            temp = Mid(word, i, 2)
            ReDim Preserve darray(i + i)
            darray(i + i) = temp
        Next j
    Next i

    For i = 1 To UBound(darray)
        ActiveCell.Offset(0, i) = darray(i)
    Next i

End Sub

 

[wilfried_42]

Re : Découpe d'une cellule en mots (hors VBA)

bonjour marmotte

voici un fichier, avec je crois ce que tu demandes, il est limité à un certain nombre de mots (15) par phrase

les colonnes masques :
B-> Suppression des espaces (Substitue)
C-> Difference de longueur : ---> nombre d'espaces dans la phrase
D-> Posiion de départ : 0
E à R --> recherche des position des espaces
S à AF -> Découpage de la phrase en fonction des positions trouvées

edit: je suis toujours trop lent, pas de rafraichissement "d'écran" : bonjour catrice, staple

 

[marmotte18]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour tout le monde,

Catrice :

Merci pour ce rappel intéressant, je le note dans le coin de mon cerveau. Cela me sera sûrement utile !

C'est une fonctionalité que j'utilise pour importer des fichiers texte mais je n'y avais pas pensé pour l'utilisation directe dans un fichier Excel !

wilfried_42 et Staple1600 :

Merci également pour vos réponses que je vais analysées. Je vous tiendrai au courant.

 

[marmotte18]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour Staple1600,

Ta formule matricielle est intéressante, de même que ta solution VBA, mais elle découpe la cellule A1 en lettres. Je conserve également ces systèmes dans ma mémoire.

Je pense qu'avec tout ce que vous me donnez, c'est une mémoire externe d'importante capacité qu'il me faudra !

Permets moi de rappeler cependant que je souhaite obtenir un découpage en mots par formules.

 

[Staple1600]

Re : Découpe d'une cellule en mots (hors VBA)

Re



Trop compliqué pour moi

J'abandonne

 

[marmotte18]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour wilfried_42,

Ta solution est très intéressante et elle approche du but.

J'ai trouvé 2 problèmes :

• S'il n'y a qu'un mot, le décodage ne ramène pas ce mot
• s'il y a des espaces multiples, le décodage ne fonctionne pas

J'ai adapté ta solution pour corriger ces 2 problèmes :

http://cjoint.com/?eglJXrIEjQ

De toute façon un grand merci pour le temps que tu as passé avec moi et pour la solution qui a finalement été trouvée grâce à toi

 

[marmotte18]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour Staple1600,

C'est sympa également le travail que tu as effectué. Merci pour tout !

 

[marmotte18]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour tout le monde,

Entre temps, j'ai trouvé une autre façon de procéder :

http://cjoint.com/?eglXtGCO83

 

[wilfried_42]

Re : Découpe d'une cellule en mots (hors VBA)

re:

regarde si cela te convient ?

 

[marmotte18]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour wilfried_42,

Je n'ai rien à reprocher à ta nouvelle proposition. Elle me paraît tout à fait convenable !

Merci pour tout

 

[Monique]

Re : Découpe d'une cellule en mots (hors VBA)

Bonjour,

Par formule, avec les fonctions SommeProd et Colonnes().

La question a déjà été posée sur le forum XLD.
En octobre 2006 (je ne trouve pas le fil)
Une autre fois avant, en mai 2006, je crois (je ne trouve pas non plus)
Et une autre fois encore avant (pas cherché)

Dans le fichier joint, les données ont :
un espace entre les mots
ou bien un / entre les mots
ou bien 1 ou plusieurs espaces

 

[wilfried_42]

Re : Découpe d'une cellule en mots (hors VBA)

re:

bonjour Monique, je ne crois pas que ca interresse marmotte d'etre decoupé lol (Nom d fichier) je suis mort de rire

 

[Staple1600]

Re : Découpe d'une cellule en mots (hors VBA)

Re

et rechapeau bas Monique

Je vais finir par croire que les formules surpassent VBA (ou presque...)

J'en reste coi

Encore bravo