Analyser une colonne de série

Tu peux utiliser la fonction MATCH : MATCH(A1,{"A";"E";"I";"O";"U"},0)) ou alors écrire une macro utilisant un test de ce style : voyelle = InStr(1, "aeiou", Lettre, vbTextCompare) > 0. Malheureusement il n'y a pas de support des expressions régulières en VBA, sinon ça aurait été très simple.

Salut le Forum

Une fonction VBA utilisant les expressions régulières

Function ConVoy(Valeur As String)
Dim regEx As Object, C As Object, V As Object
Set regEx = CreateObject("VBScript.RegExp")
With regEx
    .IgnoreCase = False
    .Global = True
    .Pattern = ","
    Valeur = .Replace(Valeur, "")
    .Pattern = "[0-9]"
    Valeur = .Replace(Valeur, "")
    .Pattern = "[^aeiou]"
    Valeur = .Replace(Valeur, "C")
    .Pattern = "[aeiou]"
    Valeur = .Replace(Valeur, "V")
    .Pattern = "C"
    Set C = regEx.Execute(Valeur)
    .Pattern = "V"
    Set V = regEx.Execute(Valeur)
End With
If C.Count > 0 And V.Count = 0 Then ConVoy = "Consonne"
If C.Count = 0 And V.Count > 0 Then ConVoy = "Voyelle"
If C.Count > 0 And V.Count > 0 Then ConVoy = "Mix"
Set V = Nothing
Set C = Nothing
Set regEx = Nothing
End Function

Re le Forum

Version légèrement simplifié

Function ConVoy(Valeur As String)
Dim regEx As Object, C As Object, V As Object
Set regEx = CreateObject("VBScript.RegExp")
With regEx
    .IgnoreCase = False
    .Global = True
    .Pattern = ","
    Valeur = .Replace(Valeur, "")
    .Pattern = "[0-9]"
    Valeur = .Replace(Valeur, "")
    .Pattern = "[^aeiou]"
    Set C = regEx.Execute(Valeur)
    .Pattern = "[aeiou]"
    Set V = regEx.Execute(Valeur)
End With
If C.Count > 0 And V.Count = 0 Then ConVoy = "Consonne"
If C.Count = 0 And V.Count > 0 Then ConVoy = "Voyelle"
If C.Count > 0 And V.Count > 0 Then ConVoy = "Mix"
Set V = Nothing
Set C = Nothing
Set regEx = Nothing
End Function

Mytå

Bravo Mya, dommage que le demandeur ne t'ai pas remercié.

Bonjour,

Probablement trop tard mais voici une autre solution SANS MACRO.

Elle nécessite toutefois l'usage d'une matrice à installer dans un coin de la feuille et que l'on peut masquer pour éviter les problèmes à l'impression.  Ici j'ai choisi de l'installer en AA1 et jusque AZ25.  Il es évident que l'on peut l'allonger sans problème au delà de 25.

http://www.cjoint.com/c/EHyjqtNcfPi

Merci de confirmer si cela a aider

A+