|
Cette macro permet d'extraire tous les mots d'une phrase et de placer chacun d'eux dans une cellule...Pour plus d'infos à ce sujet suivez ce fil
'************************************
'partie à coller dans un module
'************************************
Option Explicit
'auteur Michel septembre 2003
Sub TrierMots()
Dim cell As Range
Dim compteur As Integer
Dim val As String
Dim b As Byte
Sheets(2).Cells.Clear
For Each cell In Range("a1", Range("a65536").End(xlUp))
b = 1
For compteur = 1 To Len(cell)
val = Mid(cell, compteur, 1)
Select Case val
Case "a" To "z", "A" To "Z", 0 To 9, "à", "û", "é", "è", "ê", "ç", "ù", "É" ' etc..******* à adapter selon acentuations utilisée *********
Sheets("feuil2").Cells(cell.Row, b).Value = Sheets("feuil2").Cells(cell.Row, b).Value & val
Case Else
b = b + 1
End Select
Next
Next
Sheets("feuil2").Cells.HorizontalAlignment = xlCenter
Sheets("feuil2").Activate
Range("a1").Select
End Sub
Date de création : 24/05/2005 - 18:58
Dernière modification : 25/05/2005 - 22:51
Catégorie : Feuille
Page lue 342 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 55
Haut 
