'--------
----
Par exemple
'-------
Sub jj()
rib = InputBox("Entrez le numéros de RIB", Application.UserName)
If rib = "" Then Exit Sub
[a1] = rib
End Sub
'---------
voir ici:
http://cjoint.com/?gsvcMvQf3u

--
Salutations
JJ


"cedric broy" <cedric.broy***9online.fr> a écrit dans le message de news:
%236DkyrW0IHA.4964***TK2MSFTNGP02.phx.gbl...
> Voila je voulais comment creer des questions dont la reponse serait
> automatiquement mis dans une case
>
> Par exemple:
> RIB de l'Entreprise? reponse:30001 .... reponse qui apparaitra dans une
> case
> en particulier
>
> Je sais c pas tres clair
>
> Merci de votre aide
>
> Cedric
>