Bonjour à tous,Bonjour
je cherche comment faire pour que lors des inscriptions un simple clic inscrive un x dans la cellule adjacente pour valider comme EX
Merci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage
If Target.Count > 1 Then Exit Sub
Set Plage = Range("d4:d" & Cells(Rows.Count, "A").End(xlUp).Row)
If Not Intersect(Target, Plage) Is Nothing Then
If Target.Offset(, -1) <> "" Then
Target = IIf(Target = "X", "", "X")
Target.Offset(, -3).Activate
End If
End If
End Sub
Target.Value = String((Target.Offset(, -1).Value <> "" And Target.Value = "") * -1, "X")
Bonjour jmfmarques,et ainsi éviter 3 If (1 if et un iif)
Je n'ai pas suggéré de changer quoi que ce soit à cette condition-là !Certes, mais plantage si count >1
If Target.Offset(, -1) <> "" Then ' -->> = 1 if
Target = IIf(Target = "X", "", "X") ' -->> = 1 iif = 2 If
Target.Offset(, -3).Activate
End If