Option Explicit
Private WithEvents CL As ComboBoxLiées, TLgn() As Long, TV(), LL As Long, LCou As Long
Private Sub UserForm_Initialize()
Set CL = Création.ComboBoxLiées
CL.Plage [A10:H10], True
CL.Add Me.CBxEMAT8, 1
CL.Add Me.CBxAISM, 4
CL.CouleurSympa
CL.Actualiser
End Sub
Private Sub CBnEffacer_Click()
CL.Nettoyer
End Sub
Private Sub CBnPrécédent_Click()
If LL <= 1 Then Beep: Exit Sub
LL = LL - 1: LCou = TLgn(LL): TV = CL.PlgTablo.Rows(LCou).Value
CL.ValeursDepuis TV
GarnirAutresContrôles
End Sub
Private Sub CBnSuivant_Click()
If LL >= UBound(TLgn) Then Beep: Exit Sub
LL = LL + 1: LCou = TLgn(LL): TV = CL.PlgTablo.Rows(LCou).Value
CL.ValeursDepuis TV
GarnirAutresContrôles
End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn > 0 Then Exit Sub
ReDim TLgn(0 To 0), TV(1 To 1, 1 To 10): LL = 1: LCou = 0
GarnirAutresContrôles
End Sub
Private Sub CL_Résultat(Lignes() As Long)
TLgn = Lignes: LL = 1
LCou = TLgn(LL): TV = CL.PlgTablo.Rows(LCou).Value
GarnirAutresContrôles
End Sub
Private Sub GarnirAutresContrôles()
'EMAT8.Text = TV(L, 1) ' déjà en ComboBox CBxEMAT8
NomdeBapteme.Text = TV(1, 2)
ASM.Text = TV(1, 3)
'AISM.Text = TV(L, 4) ' déjà en ComboBox CBxAISM
SGL.Text = TV(1, 5)
CIE.Text = TV(1, 6)
Observation.Text = TV(1, 7)
GQGN.Text = TV(1, 8)
End Sub