Discussion :

[Marcc31]

Bonjour
Tout nouveau sur le forum, voici ma demande.
Je suis en train de créer un classeur de calcul pour afficher quelques secondes une phrase donnée (pour lecture rapide de mes élèves). Les phrases sont en col. A. [Ca, c'est fait]
Mais pour rentrer plus rapidement les phrases d'un texte dans la colonne A
Je cherche à créer un code VBA qui sépare le texte collé en A1 d'une seconde feuille, en phrases affichées dessous en A2,A3... Séparation en fonction de la ponctuation ".","?","!","..."
Merci de votre aide...

Personne...?

[patricktoulon]

Bonjour
c'est un cas d'ecole sans jeu de mot !oupsss!


tu fait un replace du texte sur tout les symbole que tu veux en jouant avec un split pour créer un tabeau en memoire


exemple

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
Option Base 1
Sub test()
Dim tablo, textecoupé
symbole = Array(".", ",", ":", ";", "?", "!") 'on créé un array avec chaque symbole que l'on desire
'voici le texte brut
texte = "Bonjour Mr le proff ! comment allez vous aujourd'hui? il semblerait que tous vos élèves soient la ,nous pouvons donc procéder a l'appel:et cela sans plus attendre"
'on va maintenant ajouter les saut de ligne dans le  le texte brut par les symboles en replacant chaques symbole par  lui meme + un saut de ligne
For i = 1 To UBound(symbole)
texte = Replace(texte, symbole(i), symbole(i) & vbCrLf)
Next
'maintenant que nous avons notre texte avec les saut de ligne  nous pouvons créer un tableau en memoire pour le placer ensuite dans la feulle excel
' on coupe donc le texte par  ses saut de ligne
textecoupé = Split(texte, vbCrLf)
'on créé le tablo en le dimentionnant par le nombre de saut de lignes
ReDim tablo(UBound(textecoupé), 1)
For i = 1 To UBound(textecoupé)
tablo(i, 1) = textecoupé(i)
Next
'on pose le tablo a partir de la cellule(1,1)'"A1"
Sheets(1).Cells(1, 1).Resize(UBound(tablo), 1) = tablo
End Sub

j'aurais mon image proff?????

[Marcc31]

Bonsoir,
C'est moi le mauvais élève...enfin encore débutant
Tu mets le texte dans la macro, je voudrais l'écrire en feuil2!A1 et que les phrases soient copiées en feuil1!A1, A2, A3...
Je n'ai rien qui s'affiche quand j’exécute ton code...
Désolé de te relancer

C'est vraiment moi le mauvais élève
Il fonctionne avec le texte dans la macro.

[patricktoulon]

Tu mets le texte dans la macro, je voudrais l'écrire en feuil2!A1 et que les phrases soient copiées en feuil1!A1, A2, A3...

en fait le texte est deja en feuil1 A1 et tu veux les phrase en feuil2 A1,A2,A3 .... C'EST CA ??

Je n'ai rien qui s'affiche quand j’exécute ton code...

hummm.... troublant

tu l'a mis ou ce code ?????
il faut quand meme lancer la sub test

hummm....ca sent les heures de colle et les cours de ratrapage extra scolaire ca

[Marcc31]

en fait le texte est deja en feuil1 A1 et tu veux les phrase en feuil2 A1,A2,A3 .... C'EST CA ??

Oui enfin, le contraire En inversant les feuilles
Merci Encore !

[patricktoulon]

dans ce cas la c'est tout simple
tu reprend le code et le modifie comme ceci:

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
Option Base 1
Sub test()
Dim tablo, textecoupé
symbole = Array(".", ",", ":", ";", "?", "!") 'on créé un array avec chaque symbole que l'on desire
'voici le texte brut
texte = Feuil2.cells(1,1)
'on va maintenant ajouter les saut de ligne dans le  le texte brut par les symboles en replacant chaques symbole par  lui meme + un saut de ligne
For i = 1 To UBound(symbole)
texte = Replace(texte, symbole(i), symbole(i) & vbCrLf)
Next
'maintenant que nous avons notre texte avec les saut de ligne  nous pouvons créer un tableau en memoire pour le placer ensuite dans la feulle excel
' on coupe donc le texte par  ses saut de ligne
textecoupé = Split(texte, vbCrLf)
'on créé le tablo en le dimentionnant par le nombre de saut de lignes
ReDim tablo(UBound(textecoupé), 1)
For i = 1 To UBound(textecoupé)
tablo(i, 1) = textecoupé(i)
Next
'on pose le tablo a partir de la cellule(1,1)'"A1"
Feuil1.Cells(1, 1).Resize(UBound(tablo), 1) = tablo
End Sub

[Marcc31]

Rebonsoir,

C'est génial. J'avais essayé, mais j'avais mis entre guillemets Text="feuil..."
Par contre il ne me prends pas la première phrase, il commence à la 2ème...
Je ne comprends pas pourquoi ????

Après c'est pas trop grave je peux écrire Texte : en premier.