Comment dialoguer avec un userform

Bonjour j essaye tant bien que mal (en tant que novice) de faire fonctionner un userform, mais je n arrive pas a récupérer les valeurs associées.

Private Sub Workbook_BeforePrint(cancel As Boolean)

ans = impression(UserForm)

impression.Show

If ans = Annuler Then cancel = True 'ici Annuler ainsi que Bouton_ok sont des commandbuttons'

If ans = Bouton_OK Then cancel = False

end sub

Mon problème est surement très simple mais je n y arrive pas. Je n ai pas de blocage mais ca ne fonctionne quand même pas.

Merci d avance.

PS: je n utilise pas de msgbox car pour débloquer le bouton OK il y a un choix multiple.

Bonjour

Un p'tit fichier ?

J ai trouvé il suffi uniquement que je nome ma variable dans un module et que je la rende public ainsi j affecte toutes mes possibilités par une valeur.