Discussion :

[maguizzz]

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 :

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

[Jean-Philippe André]

Bonjour,

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é

[maguizzz]

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é

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.Couper en 30 caractères(1).xlsm.

[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.Couper en 30 caractères(1).xlsm.

voici le 2ème fichier expliquant le résultat souhaités (des coupures avec des mots entiers)Couper en 30 caractères avec le résultat attendu.xlsm

[Invité]

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 :

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

[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!!!!

[maguizzz]

Le script est modifié. les mots sont toujours tronqués.Couper en 30 suppression coupe.xlsm

[Invité]

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.

[eriiic]

Bonjour,

Code :

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

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

[maguizzz]

Merci Eric pour ta réponse

Code :

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

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

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

Merci par avance