Private Sub GarnirChamps(ByVal L As Long): Récursif = True
If L > 0 Then LSrc = CBL.PlgTablo.Rows(L).Resize(, 17).Value Else ReDim LSrc(1 To 1, 1 To 17)
If ModeFiche Then Me.CB_AUTRECT = LSrc(1, 2): Me.CB_ATTENTE = LSrc(1, 5)
Me.TB_DEBCT = LSrc(1, 6): Me.TB_SERVICE = LSrc(1, 7)
Me.ChBox_OUTIL.Value = IIf(LSrc(1, 8) = "", False, LSrc(1, 8)) ': Me.OBNON_OUTIL = LSrc(1, 8) = "non" ' Même si ça peut être ni oui ni non il vaudrait mieux une ChekBox à 3 états
Me.ChBox_DROITS.Value = IIf(LSrc(1, 9) = "", False, LSrc(1, 9)) ': Me.OBNON_DROITS = LSrc(1, 9) = "non" ' idem
Me.TB_MONTANT1 = LSrc(1, 10): Me.TB_MONTANT2 = LSrc(1, 11)
Me.CB_STATUT = LSrc(1, 16): Me.TB_COM = LSrc(1, 17)
If L > 0 Then
Me.LBL_NAMEDATE.Caption = "Dossier créé le " & Format(LSrc(1, 12), "dddd d mmmm yyyy") & " par " & LSrc(1, 13) & "," _
& vbLf & "Modifié le " & Format(LSrc(1, 14), "dddd d mmmm yyyy") & " par " & LSrc(1, 15) & "."
Else
Me.LBL_NAMEDATE.Caption = "Aucun dossier existant n'est isolé."
End If
Fin: Récursif = False: End Sub