prog macro baser

[CULIK]

Bonjour a tous,j'aurai aimer de l'aide sur mon programme initiatique voila la suite:
Option explicit
Sub Nom as string
nom=inputbox('quel est votre nom ?')
MsgBox('Alors,bonjour'&Nom)
end sub
apres ce prog je doit ajouter quelques lignes afin de demander l'age de la de l'utilisateur avec un test donnant un message d'erreur si l'age est negatif ou superieur a 140 ans.
Pour cela je devrais utiliser if..condition..then ...else end if
ensuite si la reponse est correcte,faire afficher l'annee de naissance de l'utilisateur.
ensuite je dois faire repeter la question jusqu'a ce que la reponse soit correcte.Ne pas accepter un mot a la place d'un nombre en utilisant la fonctiono...Loop until condition
m'ayant cassé la tete toute l'apres midi, pourriez vous me donner un coup de main,merci d'avance.

 

[Hervé]

BOnjour culik,

c'est pour un devoir scolaire ?

Sub Bouton1_QuandClic()
Dim nom As String
Dim age

nom = Application.InputBox('quel est votre nom ?', Type:=2)
If nom = 'Faux' Then Exit Sub

Do
        age = Application.InputBox('quel est votre age, ' & nom & ' ?', Type:=1)
        If age = 'Faux' Then Exit Sub
Loop Until age > 0 And age < 140
MsgBox nom & ', vous etes né(e) en : ' & Year(Date) - age
End Sub

salut

 

[CULIK]

Rerog macro baser merci herve

salut herve ,grand merci j'ai 35 ans j'ai repris les etudes un DUT , et je te promet que ce n'est pas de la tarte apres 12ans arret,merci encore.