Bonjour
On doit ecrire un programme qui lit un mot et un nombre et affiche par exemple
"Les 3 lettres au milieu de productif sont duc"
"Les 4 lettes aux millieux de conjonctifs sont jonc "
Voila ce que j'ai fais:
Sub bab()
Dim s As string
Dim x As Integer
s=Inputbox("entrez un mot")
x=Inputbox("entrez un chiffre")
Msgbox("les" & x & "lettres au milieu de" & s & "sont" &mid(s,x,x))
End sub
c'est ca qui me pose probleme : &mid(s,x,x)) je ne vois pas quoi mettre a la place des x pour que cette formule marche a chaque fois
On doit ecrire un programme qui lit un mot et un nombre et affiche par exemple
"Les 3 lettres au milieu de productif sont duc"
"Les 4 lettes aux millieux de conjonctifs sont jonc "
Voila ce que j'ai fais:
Sub bab()
Dim s As string
Dim x As Integer
s=Inputbox("entrez un mot")
x=Inputbox("entrez un chiffre")
Msgbox("les" & x & "lettres au milieu de" & s & "sont" &mid(s,x,x))
End sub
c'est ca qui me pose probleme : &mid(s,x,x)) je ne vois pas quoi mettre a la place des x pour que cette formule marche a chaque fois