........
.............
Admin.TextBox12.Value = Sheets("CTRF").Cells(LigneActive, "J").Value
[B][COLOR=#ff0000][COLOR=blue]If TextBox10.Value = "ARCHOS" Then
Set CCdeArchos = Workbooks("ARCHOS_table de correspondance.xls").Sheets(1).Columns(3).Find(TextBox13.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not CCdeArchos Is Nothing Then
TextBox13.Value = CCdeArchos.Offset(0, -2).Value
TextBox14.Value = CCdeArchos.Offset(0, 1).Value
Else: MsgBox "Code perso " & TextBox13.Value & " non trouvé dans la correspondance.", vbExclamation
End If
Else
Admin.TextBox13.Value = Sheets("CTRF").Cells(LigneActive, "K").Value
Admin.TextBox14.Value = Sheets("CTRF").Cells(LigneActive, "L").Value
End If[/COLOR]
[/COLOR][/B]
[B][COLOR=blue][/COLOR][/B]
[COLOR=red][B]Admin.TextBox13.Value = Sheets("CTRF").Cells(LigneActive, "K").Value[/B][/COLOR]
[COLOR=red][B]Admin.TextBox14.Value = Sheets("CTRF").Cells(LigneActive, "L").Value[/B][/COLOR]
Admin.TextBox15.Value = Sheets("CTRF").Cells(LigneActive, "M").Value
...
........
.....