- Dim i, j, compt As Integer
- Dim chaine As String
- Dim t1(5) As String
- compt = 0
- t1(0) = "a"
- t1(1) = "e"
- t1(2) = "h"
- t1(3) = "i"
- t1(4) = "o"
- t1(5) = "u"
- chaine = InputBox("taper votre chaine ici")
- For i = 1 To Len(chaine)
- For j = 0 To 5
- If LCase((Mid(chaine, i, 1)) = t1(j)) Then compt = compt + 1
- Next
- Next
- MsgBox ("le nombre de voyelles est:") & compt
Dim i, j, compt As Integer
Dim chaine As String
Dim t1(5) As String
compt = 0
t1(0) = "a"
t1(1) = "e"
t1(2) = "h"
t1(3) = "i"
t1(4) = "o"
t1(5) = "u"
chaine = InputBox("taper votre chaine ici")
For i = 1 To Len(chaine)
For j = 0 To 5
If LCase((Mid(chaine, i, 1)) = t1(j)) Then compt = compt + 1
Next
Next
MsgBox ("le nombre de voyelles est:") & compt