Re : Besoin d’aide pour module de classe
Bonjour.
Tout de suite: Le petit bogue responsable du bouton qui reste bloqué quand on change le contenu des TextBox.
C'est dans le module de classe TextBoxAssociées, Public Sub TBM_KeyPress, la dernière instruction doit annuler l'effet de la 1ère.
Ça doit être: NePasExécuterChange =
False au lieu de
True
Continuons par d'autres corrections de programmation dans l'UsF_Fiche.
Dans la Sub Cmn_Effacer_Données_Click: remplacer HabiliterContrôles par GarnirChamps
Dans l'UserForm_Initialize, mettez derrière les 3 TA.Add Me.Tb_Téléphone, "S", Format:="00 00 00 00 00"
Dans votre 1ère Frame, c'est vous qui aviez mis des ComboBox au départ. Mais ça a l'intérêt de permettre deux choses :
1) Rechercher une personne seulement parmi celles qui ont un certain statut, emploi, affectation, coef ou cat,
2) À la modification, sélectionner un de ces renseignements à attribuer parmi tous ceux qui existent déjà dans la base.
Il me semble qu'aucune de ces deux n'a d'intérêt pour la deuxième Frame.
Après réparation du bogue, le principe général c'est de ne procéder à des modifications que sur une fiche ouverte. D'ailleurs dans HabiliterContrôles mettez derrière For I = 1 To TA.Count: With TA.Item(I)
Remarques secondaires: j'aimerais raccourcir les noms des contrôles. Et ne plus y utiliser de "_", réservé aux noms de procédures de gestion d'évènements comme séparateur entre le nom de l'objet et le nom de l'évènement.
J'aimerais aussi mettre à tout ça une police plus jolie que Courrier New.