'La c'est si les trois Combobox doivent être remplis
'si pas remplis on quitte la procédure
Private Sub CommandButton1_Click()
If CBxCreat ="" And CBxCalcium = "" And CBxAcox = "" Then Exit Sub 'mettre tous les combobox que tu souhaites rempli
'si tout est rempli, alors action
MsgBox ("Les dosages ne sont encore disponibles, merci d'imprimer la version sans dosage ou lecture immédiate") 'si tout n'est pas rempli, message