fonction Sub

[weby]

bonjour, comment a partir d'une fonction sub réaliser cela :

a partir d'un bouton DEPART lancer une procédure demandant le nom, l'âge, et le sexe et qui suivantles données entrées écrit 'Bonjour Monsieur (ou Madame) untel, vous êtes né en 19...

???

merci

 

[justine]

dim nom as string
dim age as integer
dim civil as string
nom=inputbox(' entrez votre nom')
civil=inputbox('entrez votre civilité: mr ou mme')
age=inputbox('entrez votre age')
age=2005-age
msgbox'bonjour ' & civil & ' ' & nom & ' vous etes ne(e) en ' & age

 

[justine]

dim nom as string
dim age as integer
dim civil as string
nom=inputbox(' entrez votre nom')
civil=inputbox('entrez votre civilité: mr ou mme')
age=inputbox('entrez votre age')
age=2005-age
msgbox'bonjour ' & civil & ' ' & nom & ' vous etes ne(e) en ' & age

 

[Hervé]

Bonsoir weby, BONSOIR justine


la meme chose que justine, mais avec gestion des annulées ou des alphatiques en inputbox age :

Dim nom As String
Dim age As Integer
Dim civil As String

nom = InputBox(' entrez votre nom')
If nom = '' Then Exit Sub
civil = InputBox('entrez votre civilité: mr ou mme')
If civil = '' Then Exit Sub
age = Application.InputBox('entrez votre age', Type:=1)
If age = 0 Then Exit Sub
age = 2005 - age
MsgBox 'bonjour ' & civil & ' ' & nom & ' vous etes ne(e) en ' & age

salut

edition :

Justine, sur ce forum, on fait la chasse aux personnes qui pourraient manquer de politesse lors de leur question, on en attend pas moins des personnes susceptibles de répondre.

de plus, il existe une règle d'or sur ce forum (qui fait que ce forum devient de plus en plus fréquenté) c'est répondre aux personnes qui nous on aidé.

Ce lien n'existe plus

re salut

Message édité par: Hervé, à: 02/12/2005 21:56