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 27
| Sub test()
Dim Mot as variant, tablo as variant
Dim i as integer, NoLig as long
'Tableau des ponctuations possibles
Pontuation = array(",", ".", ";", "?", "!", ":")
'Parcours de la colonne contenant les cellules (ici la colonne A)
For NoLig = 1 to Range("A65536").end(xlup).row
'test pour savoir si la cellule est vide
if cells(NoLigne, 1) <> "" then
mot = cells(NoLigne, 1)
'on retire toutes les ponctuations de la liste
For i = 1 to Ubound(Ponctuation)
Mot = Replace(Mot,Ponctuation(i), " ")
Next
'on crée un tableau des mots contenus dans la cellule
Tablo = Split(Mot, " ")
'on écrit le tableau dans la ligne, un mot par colonne
For i = 0 to Ubound(Tablo)
Cells(NoLig, i + 1) = Tablo(i)
Next
endif
Next
End sub |
Partager