Discussion :

[moimemessssssssss]

Bonsoir,

Je voudrais séparer les mots contenus dans les cellules pour pouvoir le 3ème mot et les 2 derniers
je pense qu'il faut faut utiliser la fonction Split en creant un tableau
mais le souci c'est que cette fonction sépare suivant les espaces blancs alors que dans mescellules les mots sont séparés par des points ou des espaces mots ou les 2 à la fois

est-il possible dans ce cas la d'extraire des mots?
et si les cellules contiennent des mots et des chiffres cela est il un probléme?.
merci

[Invité]

Bonsoir,

Vous avez écrit :

Je voudrais séparer les mots contenus dans les cellules pour pouvoir le 3ème mot et les 2 derniers

Pas très clair, il faudrait préciser.

dans mes cellules les mots sont séparés par des points ou des espaces mots ou les 2 à la fois

Vous voulez dire que les mots peuvent être séparés par des points, des espaces ou une suite point plus espace ?

[ucfoutu]

Bonsoir,

Je suis juste un peu désespéré de voir que l'on attend tout de la baguette magique informatique et que l'on se sert peu de sa jugeote :

On y va donc :

Exemple, hein ...

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
Private Sub Command1_Click()
 toto = "alors voilà: je suis allé, ce matin, au marché, acheter des oranges pour 18 euros les 20 kilogrammes."
 tata = toto
 messeps = " !,.:;"
 msg = ""
 i = 1
 While Len(tata) > 0
   titi = Mid(tata, i, 1)
   If InStr(messeps, titi) > 0 Then
     msg = msg & Left(tata, i - 1) & vbCrLf
     tata = Trim(Mid(tata, i + 1))
     i = 0
   End If
   i = i + 1
 Wend
 MsgBox "voilà mon éclatement " & vbCrLf & msg
 titi = Split(msg, vbCrLf)
MsgBox "voila mon 3ème mot : " & titi(2) & vbCrLf & _
" et mes 2 derniers : " & titi(UBound(titi) - 2) & "  et " & titi(UBound(titi) - 1)
End Sub

[Invité]

Bravo pour la (et même pour les démonstrations) Ucfoutu,

Mais j'ai du mal a comprendre.

Entre les questions de moimeme.....etc qui montre bien qu'il veut essayer de progresser en VBA ( et il a des progrès à faire, au vu du nombre de questions posées en peu de temps) et vos réponses, à mon avis un peu énigmatiques, qui montrent bien votre supériorité en la matière quel est le but ?

[ucfoutu]

Le but ? Parvenir à ce que l'on veut ...

Les moyens ? beaucoup plus de réflexion et peu d'utilisation de connaissances ....

C'est en général ce qui distingue l'un de l'autre, en matière de développement .... Une bonne réflexion et ===>>> un mécanisme d'application de cette réflexion... et pas plus !

Chaque problème est un problème particulier et appelle une solution particulière (après - et pas avant - arrêt d'un mécanisme de pensée). C'est en tout état de cause aqinsi (et pas autrement) que j'aborde personnellement chaque problème (et laisse très peu de place au reste : la syntaxe, qui n'est rien d'autre que la traduction de ma pensée ... et c'est très peu... juste une traduction)...
Bonne nuit.

[ouskel'n'or]

Un autre méthode ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim tablo as range, Result as string
Dim LeTroisieme, LavantDernier, LeDernier 
Result = Replace(Cells(1,10),".", " ") 'remplace le/s "." par un espace
Do while Result Like ("*  *") 'tant que deux espaces se suivent...
       Result = Replace(Result,"  ", " ") 'remplace deux espaces par un seul
loop
Tablo = Split(Result," ")
LeTroisieme = Tablo(2)
LeDernier = Tablo(Ubound(Tablo)-1)
LavantDernier = Tablo(Ubound(Tablo)-2)

[moimemessssssssss]

Bonsoir,

merci pour vos reponses rapides et très developpés.
je vais étudier tout cela calmement et ne manquerai pas de revenir vers vous.
je suis un débutant en vba et cherche à progresser et à apprendre d'où le nombre de questions élevées.

[ouskel'n'or]

Ne t'inquiète pas pour ton nombre de questions, pour ceux qui répondent il est sympa de voir avancer un projet et parallèlement celui qui le conduit.
Par contre, quand un problème est résolu, n'oublie pas de l'indiquer.

[Invité]

Bonsoir moimemessssssssss,

Vous avez écrit :

je suis un débutant en vba et cherche à progresser et à apprendre d'où le nombre de questions élevées.

J'espère que ce n'est pas ma question à Ucfoutu qui a motivé votre réponse, sinon cela voudrait dire que je me suis peut-être mal exprimé et que vous auriez compris le contraire de ce que je voulais dire.

[moimemessssssssss]

Bonsoir,

je crois que j'ai à peu près saisi le principe de vos codes , je les ai aussi testé et ça marche nikel, bravo

j'ai dû mal comprendre votre phrase jacques_jean..c'est pa grave