Y
ya_v_ka
Guest
salut tout le monde
est-ce que quelqu'un peut me traduire cela en VBA ? je sèche ... :-(
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
if target plage ("A10:C14" et "D12:F13") then
if cellule active.interiorindex = blanc alors cellule active.interiorindex = 2
elseif cellule active.interiorindex = 2 alors cellule active.interiorindex = 4
...
end if
end if
End Sub
en clair: si je clic droite dans une cellule des plages définies elle change du blanc au jaune, ou du jaune au rouge, ou du rouge au vert..... etc
je n'y arrive pas (XL me donne comme indication activecell.colorindex = -4142 ???)
merci d'avance pour vos propositions ou pour le renvoi sur un fil traitant de ce sujet (ai fait 5 recherches sans résultats !)
ya'v
est-ce que quelqu'un peut me traduire cela en VBA ? je sèche ... :-(
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
if target plage ("A10:C14" et "D12:F13") then
if cellule active.interiorindex = blanc alors cellule active.interiorindex = 2
elseif cellule active.interiorindex = 2 alors cellule active.interiorindex = 4
...
end if
end if
End Sub
en clair: si je clic droite dans une cellule des plages définies elle change du blanc au jaune, ou du jaune au rouge, ou du rouge au vert..... etc
je n'y arrive pas (XL me donne comme indication activecell.colorindex = -4142 ???)
merci d'avance pour vos propositions ou pour le renvoi sur un fil traitant de ce sujet (ai fait 5 recherches sans résultats !)
ya'v