Bonjour andré, le fil, le forum
André, pour revenir à voyelles/consonnes, un programme qui considère
les voyelles majuscules, miniscules et avec accents :
En A1 ton mot, en A2 le résultat.
Sub LesLettres ()
Interdits = "AEIOUYaeiouyŒœÀÁÂÃÄÅÆÈÉÊËÒÓÔÕÖÙÚÛÜÝàáâãäåæèéêëìíîïðñòóôõöùúûüýÿ"
Mot = Right(Cells(1, 1), Len(Cells(1, 1)) - 1)
Sortie = Left(Cells(1, 1), 1)
For i = 1 To Len(Mot)
Test = 0
k = Mid(Mot, i, 1)
For j = 1 To Len(Interdits)
If k = Mid(Interdits, j, 1) Then Test = 1
Next j
If Test = 0 Then Sortie = Sortie & k
Next i
Cells(2, 1) = Left(Sortie, 4)
End Sub
@+
PhiBou