listbox numeric en serie

P

PERE NOEL

Guest
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
 

Statistiques des forums

Discussions
312 428
Messages
2 088 330
Membres
103 814
dernier inscrit
Lolo280277