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

[anthoYS]

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.

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. 🙂

 

[JNP]

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

Re 🙂,

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

un petit test

Selection.Interior.ColorIndex = 4000

donne bien cette erreur 😛...
Maintenant, ne me demande pas pourquoi le résultat tiré d'un ColorIndex pourrait donner un ColorIndex abérant, je n'en ai pas la moindre idée 😀!!!
Bonne journée 😎

 

[anthoYS]

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

Re les suiveurs du fil (Fo_rum, Caillou, JNP, mth),

Et bien voilà qui est résolu grâce à JNP 😎, et le code qu'il a posté au #12.

Quant à celui de Fo_rum au #10 n'a quand à lui, rien changé à l'erreur.

Merci à vous tous!