listbox numeric en serie

[PERE NOEL]

Bonjour,

Et Joyeux Noel. Ici le pere noel, j'ai un listing de client avec des cadeaux à livrer et j'ai besoin d'aide.

J'ai 16 listbox ds un userfrom Multipages
Multipage 1 è REV_MF, MARGIN_MF, COST_MF
Multipage 2 è REV_RETAIL, MARGIN_RETAIL, COST_RETAIL
Multipage 3 è REV_OTHER, MARGIN_OTHER, COST_OTHER

Alors j'ai la fonction

If IsNumeric(REV_MF.Value)=False then
REV_MF.Value =''
MSGBOX 'Saisissez un Nombre'
Exit sub
End if

Mais comment je peux adapter ce code à mon ensemble de textbox pour m'éviter de répéter 16 fois cette fonction et gagner en lisibilité niveau code??

Merci pour votre aide


pere noel