XL 2010 Faire défiler les couleurs une cellule à chaque clic

SSIAP2 · 3 Septembre 2016

Bonjour à tous

j’espère vous avez tous passer de bonne vacance

je viens vous demander un petit peu d'aide sur un nouveau projet

sur une ma feuil1

en A5 a L34 j'ai des noms de collègues de travail qui si trouvent importer à l'aide de formule.

je souhaiterais une macro que quand je clique sur une cellule de cette plage la cellule cliquez change de couleur:
1 fois la couleur soit jaune colorindex=2
une seconde fois elle deviens rouge colorindex=3
une troisième fois elle deviens verte colorindex=10
une quatrième fois elle redeviens blanche colorindex=2

petite précision le top serait que ce soit en un seul clic car en double clic sa risque de faire apparaitre les formules qui ci trouvent merci d'avance.

Lone-wolf · 3 Septembre 2016

Bonjour SSIAP2

un essai avec ceci peut-être?!

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A5:L34")) Is Nothing Then
If Target.Interior.Color = vbWhite Then: Target.Interior.Color = vbYellow: Range("a1").Activate: Exit Sub
If Target.Interior.Color = vbYellow Then: Target.Interior.Color = vbRed: Range("a1").Activate: Exit Sub
If Target.Interior.Color = vbRed Then: Target.Interior.Color = vbGreen: Range("a1").Activate: Exit Sub
If Target.Interior.Color = vbGreen Then: Target.Interior.Color = vbWhite: Range("a1").Activate: Exit Sub
End If
End Sub

SSIAP2 · 3 Septembre 2016

bonjour lone wolf merci pour ton aide j'ai essayer ta solution le soucis sa m'oblige à ressortir de la cellule pour faire defiler la couleur du coup je colorie celui d'a coter

DoubleZero · 3 Septembre 2016

Bonjour, SSIAP2, Lone-wolf , le Forum,

Comme ceci ?

VB:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    Dim plage As Range: Set plage = Range("a5:l34")
    If c.Count > 1 Then Exit Sub
    If Not Intersect(c, plage) Is Nothing Then
        Select Case c.Interior.ColorIndex
        Case xlNone: c.Interior.ColorIndex = 6
        Case 6: c.Interior.ColorIndex = 3
        Case 3: c.Interior.ColorIndex = 10
        Case 10: c.Interior.ColorIndex = xlNone
        End Select
        Application.EnableEvents = False
        c.Offset(, 1).Select
        Application.EnableEvents = True
    End If
End Sub

Nota : une réponse, ici, serait appréciée.

A bientôt

Lone-wolf · 3 Septembre 2016

Bonjour DoubleZero

Par DoubleZero: Nota : une réponse, ici, serait appréciée.

Et ... FEL...ICI AUSSI!

SSIAP2 · 4 Septembre 2016

bonjour à vous tous merci à double zero sa fonctionne parfaitement je suis désoler de pas avoir répondu sur l'autre poste c'est surment que je ne l'ai pas vue mais je m'en vais de ce pas rectifier cette oublie merci encore

DoubleZero · 4 Septembre 2016

Bonjour à toutes et à tous,

SSIAP2 à dit:
... je suis désoler de pas avoir répondu sur l'autre poste c'est surment que je ne l'ai pas vue mais je m'en vais de ce pas rectifier cette oublie merci encore

Merci, SSIAP2, pour ce double retour.

A bientôt

XL 2010 Faire défiler les couleurs une cellule à chaque clic

SSIAP2

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

SSIAP2

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

SSIAP2

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Discussions similaires