Tout est dans le titre en fait.
Code très simple, juste parceque l'ont me l'a déjà demandé.
Source / Exemple :
Public Function CountVoyCons(ByVal Prm_strBuffer As String) As Boolean
' Commence par déclarer 2 tableaux qui vont contenir les résultats
' T'aura plus qu'a faire un Ubound(tblCons) + 1 ou Ubound(tblVoy) + 1 pour avoir le nombre
' +1 parceque les tableaux commence à 0 !
Dim tblCons() As String
Dim tblVoy() As String
' On les redim dynamiquement
ReDim tblCons(0)
ReDim tblVoy(0)
' Maintenant la constante string contenant les consonnes
Const strCons As String = "bcdfghjklmnpqrstvwxz"
Const strVoy As String = "aeiouy"
' Autres variables diverses
Dim lngBcl As Long
For lngBcl = 1 To Len(Prm_strBuffer)
If (InStr(1, strCons, Mid$(Prm_strBuffer, lngBcl, 1), vbTextCompare)) Then
ReDim Preserve tblCons(UBound(tblCons) + 1)
tblCons(UBound(tblCons)) = Mid$(Prm_strBuffer, lngBcl, 1)
ElseIf (InStr(1, strVoy, Mid$(Prm_strBuffer, lngBcl, 1), vbTextCompare)) Then
ReDim Preserve tblVoy(UBound(tblVoy) + 1)
tblVoy(UBound(tblVoy)) = Mid$(Prm_strBuffer, lngBcl, 1)
End If
Next lngBcl
Stop
' Voila, les tableaux contiennent maintenant les voyelles / consonnes
' Pour compter les consonnes : Ubound(tblCons)
' les voyelles : Ubound(tblVoy)
End Function
Conclusion :
En +, il stocke les ettres trouvée, donc c bon.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.