Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> "8" Then Exit Sub
If Target.Row Mod 2 = 1 Then
rep = MsgBox("voulez-vous effacer la couleur ?", vbYesNo, "couleur")
If rep = vbYes Then
Range("a" & Target.Row & ": h" & (Target.Row - 1)).Interior.ColorIndex = xlNone
Else
Exit Sub
End If
Else
Range("a" & Target.Row & ": h" & (Target.Row + 1)).Interior.ColorIndex = 36
End If
End Sub
bonsoir,
merci beaucoup, la couleur c'étais le vert mais bon je sais faire.
je l'avais mis dans l'onglet 'attendu pour exemple.
à+
ce n'est pas le plus important
mais pour le fun
remplacer colorindex = 36 par color = 65280