Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long
'Worksheets("Base de donnee").Protect UserInterfaceOnly:=True
If Target.Count = 1 And Target.Column = Range("J3").Column And Target(1, 1) = "NON" Then
With MODIF_FICHE
.TextBox1 = Target.Offset(0, -8)
.TextBox2 = Target.Offset(0, -7)
.ComboBox1 = Target.Offset(0, -6)
.TextBox3 = Target.Offset(0, -5)
.TextBox4 = Target.Offset(0, -4)
.TextBox5 = Target.Offset(0, -3)
.TextBox6 = Target.Offset(0, -2)
.TextBox7 = Target.Offset(0, -1)
.TextBox8 = Target.Offset(0, 0)
.Tag = Target.Row
.Show 0
End With
End If
'If Target.Count = 1 And Target.Column = Range("J3").Column And Target(1, 1) = "OUI" Then
' With MODIF_FICHE
' .TextBox1 = Target.Offset(0, -8)
' .TextBox2 = Target.Offset(0, -7)
' .ComboBox1 = Target.Offset(0, -6)
' .TextBox3 = Target.Offset(0, -5)
' .TextBox4 = Target.Offset(0, -4)
' .TextBox5 = Target.Offset(0, -3)
' .TextBox6 = Target.Offset(0, -2)
' .TextBox7 = Target.Offset(0, -1)
' .TextBox8 = Target.Offset(0, 0)
' .Tag = Target.Row
' .Show 0
' End With
'End If
End Sub