Coloration après double clic (1 des 3 cases seulement)

anthoYS · 4 Mai 2010

Bonjour,

J'ai un fichier avec le niveau de maîtrise de tâches, le but est d'améliorer le code existant qui permet de colorer une ou les trois cases d'une même ligne soit en rouge, soit ou et en jaune, et soit ou et une autre en vert.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cells(Target.Row, 2).Interior.ColorIndex = 3
End If
If Target.Column = 3 Then
Cells(Target.Row, 3).Interior.ColorIndex = 6
End If
If Target.Column = 4 Then
Cells(Target.Row, 4).Interior.ColorIndex = 4
End If
End Sub

Merci à vous par avance,

référez-vous au fichier joint, si après lecture, ça n'est pas suffisant. 🙂

mth · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Bonjour,

Pour remettre à blanc, un essai ci-dessous (mais on doit pouvoir écrire mieux que ça ... 😱)

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
    If Cells(Target.Row, 2).Interior.ColorIndex = 3 Then
        Cells(Target.Row, 2).Interior.ColorIndex = 0
        Else
        Cells(Target.Row, 2).Interior.ColorIndex = 3
    End If
End If
If Target.Column = 3 Then
    If Cells(Target.Row, 3).Interior.ColorIndex = 6 Then
        Cells(Target.Row, 3).Interior.ColorIndex = 0
        Else
        Cells(Target.Row, 3).Interior.ColorIndex = 6
    End If
End If
If Target.Column = 4 Then
    If Cells(Target.Row, 4).Interior.ColorIndex = 4 Then
        Cells(Target.Row, 4).Interior.ColorIndex = 0
        Else
        Cells(Target.Row, 4).Interior.ColorIndex = 4
    End If
End If
End Sub

Bonne journée,

mth

Caillou · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Bonjour à tous,

Essayes ceci :
Pour colorier, j'utilise les couleurs de remplissage des cellules de la ligne 2 !

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column >= 2 And Target.Column <= 4 Then
    If Target.Interior.ColorIndex = xlNone Then
      Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone
      Target.Interior.ColorIndex = Cells(2, Target.Column).Interior.ColorIndex
    Else
      Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone
    End If
  End If
  Cancel = True
End Sub

Caillou

anthoYS · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Re,

Merci mth, bien que tu a saisi, ça n'est pas exactement ce que je souhaite...
Ici, il faut un clic pour colorer et un autre pour décolorer, en plus, ça rentre dans la cellule, mon souhait c'est de colorer sans rentrer dans le cellule comme pour saisir, perte de temps.

Mais merci c'est un début, en espérant mieux.

Bonne journée à toi egalement.

anthoYS · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Re,

Merci Caillou, tout semble bon (rouge et jaune, en B et C), sauf que le problème est le suivant :
-Lorsque l'on clique en D.

Voici le débogage :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column >= 2 And Target.Column <= 4 Then
    If Target.Interior.ColorIndex = xlNone Then
      Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone
     [COLOR="Red"] Target.Interior.ColorIndex = Cells(2, Target.Column).Interior.ColorIndex[/COLOR]
    Else
      Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone
    End If
  End If
  Cancel = True
End Sub

@+

Caillou · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Désolé, je ne comprend pas, chez moi tout semble ok

Qu'entends tu pas quand on clique en D ?

Caillou

anthoYS · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Re,

C'est exact, j'ai testé sur le fichier que j'ai posté.
Parce qu'en fait, je m'explique, j'ai transposé le code dans une feuille ou les cases sont disposés de la même manière...
Je pensait, que l'execution serait la même, ... en fait ... non!

Pourquoi? Je me le demande toujours...

Voilà

anthoYS · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Re,

Voici le message d'erreur :
Uniquement quand je clique en D uniquement, B et C étant fonctionnels (rouge et jaune)

Microsoft VB
Erreur d'execution '9'
L'indice n'appartient pas à la selection

Puis une image du débogage :

Merci et @+!

mth · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

re 🙂

Testé sur Excel 2007 donc comme toi anthoYS, le code proposé par Caillou fonctionne parfaitement chez moi 😕

@ +

m

Fo_rum · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Salut

erreur vraiment bizarre !
essaie cette proposition (2 cas).

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Li As Integer, Col As Byte, Coul
  Li = Target.Row: Col = Target.Column
  Coul = Target.Interior.ColorIndex
  [COLOR="DarkGreen"]'B, C et D[/COLOR]
  If Col > 1 And Col < 5 And Li > 2 Then
    Range("B" & Li & ":D" & Li).Interior.ColorIndex = xlNone
    If Coul = xlNone Then Target.Interior.ColorIndex = Cells(2, Col).Interior.ColorIndex
  End If
  '[COLOR="DarkGreen"]E et F[/COLOR]
  If Col > 4 And Col < 7 And Li > 2 Then
    Range("E" & Li & ":F" & Li).Interior.ColorIndex = xlNone
    If Coul = xlNone Then Target.Interior.ColorIndex = Cells(2, Col).Interior.ColorIndex
  End If
  Cancel = True
End Sub

anthoYS · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

re,

Merci Fo_rum,

Je te cite :

erreur vraiment bizarre !

à qui le dit tu!?!!
Je sais mais je n'y peut rien. C'est parfois curieux.

J'essaierai quand j'aurais le fichier source sous la main. Car là, je ne suis plus chez moi.

@+

JNP · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Bonjour le fil 🙂,
Peut-être un soucis avec une couleur qui ne correspond pas exactement à un ColorIndex.
A essayer

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column >= 2 And Target.Column <= 4 Then
    If Target.Interior.ColorIndex = xlNone Then
      Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone
[COLOR=red][B]      Target.Interior.Color = Cells(2, Target.Column).Interior.Color
[/B][/COLOR]    Else
      Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone
    End If
  End If
  Cancel = True
End Sub

Bonne journée 😎

anthoYS · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Re,

oK JNP, merci.

Bonne fin de journée à toi aussi.

Fo_rum · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

Re

JNP à dit:
Peut-être un soucis avec une couleur qui ne correspond pas exactement à un ColorIndex.

pas avec Erreur d'execution '9' L'indice n'appartient pas à la selection me semble-t-il !

Caillou · 4 Mai 2010

Re : Coloration après double clic (1 des 3 cases seulement)

JNP,

Peut-être un soucis avec une couleur qui ne correspond pas exactement à un ColorIndex.

à mon avis le pb ne vient pas de là !
Par contre tu as raison, la propriété Color est plus adapté que ColorIndex. Je viens de faire un essai avec 2007 et avec ColorIndex, si le colorindex n'exite pas, Excel choisit une couleur différente, tandis-qu'avec Color cela fonctionne parfaitement.

Caillou

Coloration après double clic (1 des 3 cases seulement)

anthoYS

XLDnaute Barbatruc

Pièces jointes

mth

XLDnaute Barbatruc

Caillou

XLDnaute Impliqué

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Caillou

XLDnaute Impliqué

anthoYS

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

mth

XLDnaute Barbatruc

Fo_rum

XLDnaute Accro

anthoYS

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Fo_rum

XLDnaute Accro

Caillou

XLDnaute Impliqué

Discussions similaires

Coloration après double clic (1 des 3 cases seulement)

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency