changement de couleurs successifs

[ya_v_ka]

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

 

[myDearFriend]

Bonsoir Ya'v ka,


Sachant que : Jaune = 6, Rouge = 3 et Vert = 4

Je te propose le code suivant :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim C
   If Not Application.Intersect(Target, Union(Range("A10:C14"), Range("D12:F13"))) Is Nothing Then
      Cancel = True
      C = Target.Interior.ColorIndex
      Target.Interior.ColorIndex = Switch(C = xlNone, 6, C = 6, 3, C = 3, 4, C = 4, xlNone)
   End If
End Sub


Cordialement.

Didier_mDF

 

[ya_v_ka]

salut tout le monde,

Monsieur Didier

Une fois encore je m'incline... j'étais loin de la solution, mais cette proposition fonctionne à merveille

Merci

et merci encore à ce forum en général

Ya'v

 

[ya_v_ka]

Suite et fin ...

salut tout le monde

voilà le code utilisé, maintenant la question du jour:

est-il possible en doublecliquant sur une cellule d'y ajuster le groupe déposé en exemple en haut à droite... comme sur l'exemple ?

merci d'avance

ya'v

 

[ya_v_ka]

re salut tout le monde

désolé pour cette question supplémentaire que j'ai réussi à solutionner personnellement en utilisant bêtement l'enregistreur de macro...

et oui !

ya'v