@Xmenpl ou comme ça ?
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2019/11/13
Sheets("test").Unprotect Password:="123"
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, xRng) Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or _
InStr(1, xValue1, ", " & xValue2) Or _
InStr(1, xValue1, xValue2 & ",") Then
Target.Value = xValue1
Else
Target.Value = xValue1 & ", " & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
With [F6:F482]
.EntireRow.AutoFit
End With
Sheets("test").Protect Password:="123", UserInterfaceOnly:=True
End Sub
Je comprends pas trop, la différence c'est quoi avec ou sans
UserInterfaceOnly:=True
?
Si ce n'est que Excel verrouille automatiquement la feuille quand je clique sur la cellule à choix multiple...