Bonjour Le Forum
Pouvez-vous me trouver une correction ad hoc à la macro ci-après ?
Je bloque sur la ligne .ColorIndex = 4
(pas mieux avec Target.Cells.Interior.Color = 4 ou avec Cells(, x).Interior.Color.ColorIndex = 4)
Merci à l'avance
Webperegrino
Pouvez-vous me trouver une correction ad hoc à la macro ci-après ?
Je bloque sur la ligne .ColorIndex = 4
(pas mieux avec Target.Cells.Interior.Color = 4 ou avec Cells(, x).Interior.Color.ColorIndex = 4)
Merci à l'avance
Webperegrino
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("TB")
Dim derli As Integer
Dim x
derli = Range("A109").End(xlUp).Row
'dans columns 15,18,21,23,25,27,29,31,33,35,37,39 (entre lignes 3 et derli)
'je voudrais donc que cela agisse entre Columns(15) et Columns(39) notamment avec un pas de x + 3
For x = 15 To 39
If Not Intersect(Target, Columns(x)) Is Nothing Then
If Target = "" Then Target = "þ" Else Target = ""
With Selection.Interior
If Target = "þ" Then
.ColorIndex = 4
.PatternColorIndex = xlAutomatic
End If
End With
End If
x = x + 3
Next x
'solution de Pierrot 93 dans un précédent FIL que j’essaie d’adapter ci-dessus :
If Not Intersect(Target, Range("K3:K" & derli & ",M3:AM" & derli)) Is Nothing Then
If Target = "" Then Target = "þ" Else Target = ""
Range("A" & Target.Row).Select
End If
End With
End Sub
Dernière édition: