Sub conjugueur()
'
' conjugueur Macro
' Macro créée le 16/04/2006 par JuLy
'
Open "C:/dossier_fac/verbe.txt" For Output As 1
vb$ = InputBox$("entrez un verbe du 1er groupe", "Conjugueur", "manger")
Dim pp$(6)
pp$(1) = "je"
pp$(2) = "tu"
pp$(3) = "il / elle"
pp$(4) = "nous"
pp$(5) = "vous"
pp$(6) = "ils / elles"
Dim flex$(6)
flex$(1) = "e"
flex$(2) = "es"
flex$(3) = "e"
flex$(4) = "ons"
flex$(5) = "ez"
flex$(6) = "ent"
rad$ = Left$(vb$, Len(vb$) - 2)
k = InStr("aeiouyé", Left$(rad$, 1))
If k > 0 Then
pp$(1) = "j'"
End If
k2 = InStr("g", Right$(rad$, 1))
If k2 > 0 Then
flex$(4) = "eons"
End If
For i = 1 To 6
conj$ = pp$(i) + " " + rad$ + flex$(i)
Print #1, conj$
Next i
Close (1)
End Sub

     

     

Ce programme permet de conjuguer un  verbe du premier groupe et écrit le résultat dans un fichier.
On commence par crée un fichier, on le nomme, on décide de son emplacement, on utilise la commande "Output" qui va nous permettre d'écrire dedans et on le renomme 1 pour simplifier.
Ensuite on crée une boîte de dialogue pour demander à l'utlisateur de rentrer un verbe du premier groupe. Puis, on rentre les pronoms personnels, les terminaisons qui leurs correspondent. On determine ensuite la manière dont le verbe va etre conjugué, à savoir que l'on prend le verbe rentrer, on retire les 2 dernières lettres (ER) pour ne garder que le radical.
k = InStr("aeiouyé", Left$(rad$, 1)) signifie qu'il existe des exceptions : les pronoms personnels peuvent changer suivant la première lettre du verbe ( si la première lettre est une voyelle, alors le pronom "je" deviendra "j'". Il en est de même pour certaines terminaisons.
On ferme le fichier.