Double click et couleur
M
Bonsoir à tous,
Dans mon fichier j'ai une formule par double click me permettant afficher 3 couleurs différentes pour mon produits A colonnes I à L
et la même chose pour mon produit B colonnes N à R.
Par contre pour mon produit C colonnes T à V, j'ai une couleur ou rien.
Cela fonctionne mais je penses qu'il y un beug.
comment l'améliorer pour ne pas dépendre de la condition des 3 couleurs pour les produits A et B
Merci pour votre Aide
Dans mon fichier j'ai une formule par double click me permettant afficher 3 couleurs différentes pour mon produits A colonnes I à L
et la même chose pour mon produit B colonnes N à R.
Par contre pour mon produit C colonnes T à V, j'ai une couleur ou rien.
Cela fonctionne mais je penses qu'il y un beug.
comment l'améliorer pour ne pas dépendre de la condition des 3 couleurs pour les produits A et B
Merci pour votre Aide
b
boss_68Membre impliqué
- Messages
- 1'089
- Excel
- 2021 FR
- Inscrit
- 17/12/2018
- Emploi
- Technicien maintenance robot Retraité
Bonsoir,
Peut-être comme ça
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' A)==> Mettre 2 couleurs différentes ou rien par un double click Ressource aux Platines colonnes I a L et Ressources au Montage colonnes N a W
If Intersect(Target, Union([I:L], [N:R], [T:V])) Is Nothing Then Exit Sub
Application.EditDirectlyInCell = False
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'Rien
Target.Interior.ColorIndex = 43 'vert
Case Is = 43 'si la cellule est verte
Target.Interior.ColorIndex = 27 'si en Vert mettre Jaune
Case Is = 27 ' jaune
Target.Interior.ColorIndex = 44 ' si en Jaune mettre Orange
Case Else
Target.Interior.ColorIndex = xlNone
End Select
Target.Offset(1, 0).Select ' decale la cellule vers le Bas
End SubSlts
M
Bonjour et merci pour ta réponse
l'objectif est de faire tourner 3 même couleurs dans les colonnes I,J,K,l et N,O,P,Q,R
et faire une formule indépendante avec 2 couleurs pour les colonnes T,U et V
Est-ce possible ?
Salut Man,
Salut Boss,
comme j'ai compris l'affaire, il te faut les 3 couleurs pour A et B et seulement les 2 premières (vert et jaune) pour C ?!?
À voir, donc...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
' A)==> Mettre 2 couleurs différentes ou rien par un double click Ressource aux Platines colonnes I a L et Ressources au Montage colonnes N a W
If Not Intersect(Target, Union([I1:L1], [N1:R1], [T1:V1])) Is Nothing Then
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'rien
Target.Interior.ColorIndex = 43 'vert
Case Is = 43 'si la cellule est verte
Target.Interior.ColorIndex = 27 'si en Vert mettre Jaune
Case Is = 27 ' jaune
Target.Interior.ColorIndex = IIf(Target.Column < 20, 44, xlNone) ' si en Jaune mettre Orange ou rien pour [T:U:V]
Case 44
Target.Interior.ColorIndex = xlNone 'rien
End Select
Target.Offset(1, 0).Select ' decale la cellule vers le Bas
End If
'
End Sub
Joyeux Noël !
A+