Bonjour,
Je doit effectué un planning de maintenance pour mon stage sur excel. J'ai déjà écrit des lignes de codes (ci-dessous) qui lorsqu'on clique sur les cellules désigné elle se remplisse en vert et écrit un message.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D3,D4,D5,GE3,GE4,GE5,ND3,ND4,ND5,J6,BT6,GL6,LA6,PT6,EE6,IT6,NJ6,SE6,P7,CA7,EL7,GW7,JH7,LS7,OD7,QO7,SZ7")) Is Nothing Then
ActiveCell.Interior.ColorIndex = 4
MsgBox "Opération effectuée"
End If
End Sub
Mon problème commence maintenant: J'ai de plus en plus de case a désigné et donc j'aimerai savoir s'il était possible de remplacer la phrase:
"If Not Intersect(Target, Range("D3,D4,D5,GE3,GE4,GE5,ND3,ND4,ND5,J6,BT6,GL6,LA6,PT6,EE6,IT6,NJ6,SE6,P7,CA7,EL7,GW7,JH7,LS7,OD7,QO7,SZ7")) Is Nothing Then"
Par une phrase qui dirait "Lorsqu'on double clic sur une cellule avec un remplissage rouge" (indexcolor 3 il me semble (rouge foncé)
Merci pour votre aide. Max