Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
[COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target.Cells(1, 1), Range("C16:C26")) Is Nothing Then [C2].Value = Target.Cells(1, 1).Value
End Sub[/B][/COLOR][COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target.Cells(1, 1), Range("C16:C26")) Is Nothing Then [C2].Value = Target.Cells(1, 1).Value
Set champ = Range("C16:F35")
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
champ.Interior.ColorIndex = xlNone
col1 = champ.Column
col2 = col1 + champ.Columns.Count - 1
Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = 36
End If
End Sub[/B][/COLOR][COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plg
Set plg = Intersect(Rows(Target.Row), Range("C16:C26"))
If Target.Rows.Count = 1 And Not plg Is Nothing Then [C2].Value = plg.Value
End Sub[/B][/COLOR]
