Rebonjour Jean Eric,
Voici ce que j'ai fait pour protéger deux colonnes de cellules (5 et 6 à partir de la colonne 1 du tableau) et cela a l'air de fonctionner:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Me.ListObjects(1).ListColumns(5).DataBodyRange
If Not Intersect(Target, rng) Is Nothing Then
Target.Offset(, -1).Select
End If
Set rng = Nothing
Set rng = Me.ListObjects(1).ListColumns(6).DataBodyRange
If Not Intersect(Target, rng) Is Nothing Then
Target.Offset(, -1).Select
End If
Set rng = Nothing
End Sub
Tu peux me confirmer si c'est correct stp? si je peux je faire pour plusieurs colonnes?
Je comprends que l'instruction est lorsqu'on selectionne une cellule de la colonne, il sélection la précédente "Target.Offset(, -1).Select"
Merci de m'éclaircir