[résolu : sujet fermé] Colorer la cellule A suivant le stock dispo...

[anthoYS]

Bonjour,

Dans mon fichier, le stock de divers produits.

Le but, colorer A si double clic en C (stock suffisant), D (moyen, limite), et E (insuffisant, épuisé à réapprovisionner).
​

​

• 
  [*=1]A en vert si double clic en C,
  [*=1]A en jaune si double clic en D,
  [*=1]A en rouge si double clic en E.

voilà, j'illustre ma demande d'un fichier.

Merci si vous savez, sinon ce n'est pas grave, je continuerai mes recherches d'anciennes discussions et finierai par y parvenir en trouvant un sujet qui m'aidera.​

à+ 😀

 

[anthoYS]

Re : Colorer la cellule A suivant le stock disponible indiqué par double clic en C, D

re,


comment adapter ce code pour qu'en B ça se colore en jaune ou orange après le double cllic en D et en rouge pour B si double clic en E ?

[/FONT][/COLOR]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  li = Target.Row
  If Not Intersect(Target, [C:C]) Is Nothing Then
    With Range("B" & li)
      .Interior.Pattern = 0
      .Interior.ColorIndex = 4
    End With
  End If
  If Not Intersect(Target, [D: D]) Is Nothing Then
    With Range("B" & li)
      .Interior.ColorIndex = xlNone
      .Interior.Pattern = 14
      .Interior.PatternColorIndex = 11
    End With
  End If
  If Not Intersect(Target, [E:E]) Is Nothing Then
    With Range("B" & li)
      .Interior.Pattern = 0
      .Interior.ColorIndex = 15
    End With
  End If
  Cancel = True
End Sub[COLOR=#333333][FONT=Verdana]

je ne connaît pas par coeur les colorIndex. 😱


merci
à+ 🙂

 

[anthoYS]

Re : Colorer la cellule A suivant le stock disponible indiqué par double clic en C, D

re,

le fil.

pas merci pour les pas réponse ! 3 affichages et toujours personne. Tant pis...
Je me débrouillerai seul. J'ai bientôt trouver d'ailleurs, je suis en passe d'y parvenir !


😀

 

[anthoYS]

Re : Colorer la cellule A suivant le stock disponible indiqué par double clic en C, D

[HIGHLIGHT=VBA/]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
li = Target.Row
If Not Intersect(Target, [C:C]) Is Nothing Then
With Range("B" & li)
.Interior.Pattern = 0
.Interior.ColorIndex = 4
End With
End If
If Not Intersect(Target, [D😀]) Is Nothing Then
With Range("B" & li)
.Interior.Pattern = 0
.Interior.ColorIndex = 6
End With
End If
If Not Intersect(Target, [E:E]) Is Nothing Then
With Range("B" & li)
.Interior.Pattern = 0
.Interior.ColorIndex = 3
End With
End If
Cancel = True
End Sub[/code]