Script pour scinder les caractères mais les mots sont tronqués

Version imprimable

Bonjour,

J'utilise le script suivant qui fonctionne plutôt bien (merci au développeur).
en revanche, les mots sont tronqués dans chaque ligne.
Quelqu'un pourrait -il m'aider ?
Merci beaucoup.

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
Sub Coupichonner()
Dim coupe%, tablo, i&, num%, x, s, j%, k%, n&, t(), rest()
coupe = 30 'longueur à adapter
tablo = [A1].CurrentRegion.Offset(1).Resize(, 2) 'à adapter
For i = 1 To UBound(tablo)
  num = 0
  x = tablo(i, 1)
  s = Split(tablo(i, 2), vbLf)
  For j = 0 To UBound(s)
    For k = 1 To Len(s(j)) Step coupe
      n = n + 1: num = num + 1
      ReDim Preserve t(1 To 3, 1 To n)
      t(1, n) = x
      t(2, n) = Mid(s(j), k, coupe)
      t(3, n) = num
Next k, j, i
'---transposition---
ReDim rest(1 To n, 1 To 3)
For i = 1 To n
  rest(i, 1) = t(1, i)
  rest(i, 2) = t(2, i)
  rest(i, 3) = t(3, i)
Next i
'---restitution---
[A2].Resize(n, 3) = rest
End Sub

16/05/2018, 18h53
Jean-Philippe André

Bonjour,

Citation:

J'utilise le script suivant qui fonctionne plutôt bien (merci au développeur).

il est sensé faire quoi le script en question ? :)

Sans un exemple de ta part, ca nous est bien trop obscur pour considérer que le code est bancal ou parfaitement adapté :)

:cristal:
16/05/2018, 19h28
maguizzz

1 pièce(s) jointe(s)

Citation:

Envoyé par Jean-Philippe André

Bonjour,

il est sensé faire quoi le script en question ? :)

Sans un exemple de ta part, ca nous est bien trop obscur pour considérer que le code est bancal ou parfaitement adapté :)

:cristal:

cette macro me permet de scinder le contenu d'un cellule d'Excel contenant X caractères en plusieurs lignes avec un nombre de caractères précis par ligne.
Le problème c'est que le contenu des nouvelles lignes est tronqué sur le dernier mot.
Il faudrait que la coupure se fasse au dernier mot complet et toujours en respectant une maximum de caractères par lignes.
J'ai 1500 lignes de texte à revoir car les phrases ne veulent rien dire avec des mots tronqués.Pièce jointe 381082.
16/05/2018, 19h34
maguizzz

2 pièce(s) jointe(s)

Citation:

Envoyé par maguizzz

cette macro me permet de scinder le contenu d'un cellule d'Excel contenant X caractères en plusieurs lignes avec un nombre de caractères précis par ligne.
Le problème c'est que le contenu des nouvelles lignes est tronqué sur le dernier mot.
Il faudrait que la coupure se fasse au dernier mot complet et toujours en respectant une maximum de caractères par lignes.
J'ai 1500 lignes de texte à revoir car les phrases ne veulent rien dire avec des mots tronqués.Pièce jointe 381082.

voici le 2ème fichier expliquant le résultat souhaités (des coupures avec des mots entiers)Pièce jointe 381095

Bonsoir,

For k = 1 To Len(s(j)) Step coupe

Il y a de forte chance que ta boucle s'arrêtera avant la fin de ta phrase avec un step de 30.

C'est comme si tu faisais une division entière,donc tu oublie la virgule.

Il faut faire une boucle de 1 et retaille ton tableau a chaque modulo de coupe
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 For k = 1 To Len(s(j)) Tx=Tx & Mid(s(j), k, 1) If k mod coupe =0 tnen n = n + 1: num = num + 1 ReDim Preserve t(1 To 3, 1 To n) t(1, n) = x t(2, n) = tx t(3, n) = num Tx="" End if Next k, j, i If tx<>"" then 'on regarde si reste! n = n + 1: num = num + 1 ReDim Preserve t(1 To 3, 1 To n) t(1, n) = x t(2, n) = tx t(3, n) = num Tx="" End if

16/05/2018, 20h57
maguizzz

Merci pour la précision.
J'utilise les scripts mais je ne développe pas :(.
J'ai essayé de rajouter la boucle dans le script initial mais sans succès.
Pourriez vous svp me donner le script complet après correction.
Merci beaucoup!!!!
16/05/2018, 21h41
maguizzz

1 pièce(s) jointe(s)

Le script est modifié. les mots sont toujours tronqués.Pièce jointe 381147
16/05/2018, 21h52
Invité

Citation:

Envoyé par maguizzz

Merci pour la précision.
J'utilise les scripts mais je ne développe pas :(.

Même chose pour moi. Mon développeur locos a été ce couché! On trouve plus de petit personnel.
17/05/2018, 09h25
eriiic

Bonjour,

Code:

pos = InStrRev(s(j), " ", coupe)

te donne la position du 1er espace avant coupe.
Sert-toi de Left() pour récupérer la 1ère partie, et tu continues avec le reste (la partie retournée par Right()).

Ta restitution après toutes les boucles est mal placée.
Tu as Application.Transpose() pour transposer un tableau.
eric
17/05/2018, 13h19
maguizzz

Merci Eric pour ta réponse

Code:

pos = InStrRev(s(j), " ", coupe)

Ce code, je le mets à quel niveau du script initial ?

Merci par avance
17/05/2018, 13h24
eriiic

tu es sérieux là ?
Quand tu dois découper la phrase, ça te dis où la couper.