Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
une fois de plus j'ai un souci avec excel. Une macro ne réagit pas comme je l'ai prévu.
Je vous explique
J'ai une feuille (appelons là "stock") dans laquelle j'ai une colonne "stock actuel", et une autre colonne "valeur planché".
Je veux que lorsque le stock actuel est inferieur à la valeur planché ma cellule devienne rouge.
le souci, c'est que la seule cellule qui varie est la cellule stock actuel. Or ce stock actuel est lié à d'autre feuille. Donc, cette cellule ne se modifie que si je la fait bouger pas une autre feuille.
Donc, si je ne touche à rien sur ma feuille stock, mais que je modifie une cellule sur une autre feuille, ma cellule "stock actuel" de ma feuille stock sera modifier.
le souci, c'est que ma cellule ne deviendra pas rouge. Elle ne deviens rouge que si je change physiquement n'importe quelle cellule de la feuille stock (c'est à dire si je double clik au moins sur une des cellules de la feuille stock).
Ma macro est la suivante :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
For i = 8 To 300
If Cells(i, 21).Value < Cells(i, 22) And Cells(i, 21).Value <> "0" Then
With Cells(i, 21).Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Else
With Cells(i, 21).Interior
.ColorIndex = 15
End With
End If
Next i
ActiveSheet.Protect
End Sub
Comment puis je faire pour obliger le changement de couleur meme si la changement sur la feuille n'intervient que par un changement via une autre feuille ?
Je sais que j'y avais pensé au moment où j'ai fais le fichier et je me souviens qu'il y avait un souci en passant par cette methode... Je m'en souviens plus.
En tout cas aujourdhui ca semble fonctionner, donc merci du coup de pouce :d
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.