fonction Sub

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

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

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

Cliquez pour agrandir...

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