Bonjour, j'essaye de coder une fonction appelée qui permet de compter les consonnes avec en entrée la phrase à traiter et en sortie le nombre de consonnes, j'ai préalablement codé une fonction permettant de compter les voyelles mais je bloque pour les consonnes. Pourriez vous m'aider.

Merci d'avance !

Code vb.net : 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
Function CompteVoyelles(ByVal Phrase As String) As Integer
        Dim NombreVoyelle As Integer
        Dim i As Integer
        Dim j As Integer
        Dim voyelles(100) As String
        Dim tabvoyelle() = New Char() {"a", "e", "i", "o", "u", "y", "é", "è", "ê", "à", "ï", "ù", "ô", "A", "E", "I", "O", "U", "Y"}
 
        NombreVoyelle = 0
 
        For i = 0 To Phrase.Length - 1
            'Si on ajoute des voyelles à tester on augmente le nombre de j
            For j = 0 To 18
                If Phrase(i) = voyelles(j) Then
                    NombreVoyelle = NombreVoyelle + 1
                End If
            Next
        Next
        Return NombreVoyelle
    End Function

Function CompteConsonnes(ByVal Prase As String) As Integer

........ JE BLOQUE .........

End Function