Microsoft 365 Couleur Police sur grand nombre de cellules

eric72 · 25 Avril 2024

Bonjour à tous,
Je rencontre un souci pour changer la couleur de la police d'un grand nombre de cellules en fonction de la valeur d'un grand nombre de cellules également, je m'explique:
- j'ai un planning avec huit equipes et huit tranche d'heures par équipe, j'ai des cellules (exemple e13) dans lesquelles je mets un "x" pour changer la couleur de police d'une plage (exemple h8:m14), jusque là pas de souci ou avec une MFC ou avec une macro qui se déclenche avec le
Private Sub Worksheet_Change(ByVal Target As Range), le problème est que, compte tenu du nombre de plages concernées cela devient lourd mais j'imagine qu'il y a une solution générique pour traiter toutes les cellules avec un "x" (exemple e13,q13,ac13) et cela pour toutes les tranches d'heures mais je ne trouve pas mon bonheur, l'un d'entre vous a-t-il la solution magique?
Merci beaucoup

TooFatBoy · 25 Avril 2024

Proposition :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim MaCellule As Range
Dim MaValeur As Integer

    If Target.Cells.Count <> 1 Then Exit Sub                    ' Si plus d'une cellule modifiée, on sort
    If Target.Row < 13 Or Target.Column > 65 Then Exit Sub      ' Si on est au-dessus ou à droite du tableau, on sort
    If Target.Column Mod 12 <> 5 Then Exit Sub                  ' Si on n'est pas dans la bonne colonne, on sort
    If (Target.Row + 1) Mod 7 > 1 Then Exit Sub                 ' Si on n'est pas sur la bonne ligne, on sort

    Set MaCellule = Target.Offset(-((Target.Row + 1) Mod 7), 0) ' On détermine la première des deux cellules (exemple : E13 pour la plage E13:14)

    MaValeur =...

TooFatBoy · 25 Avril 2024

eric72 à dit:
par contre je viens de m'apercevoir d'un autre problème, lorsque je saisie une semaine en aa4, je récupère le planning qui a été archivé auparavant, du coup les "X" apparaissent bien mais les couleurs ne sont plus adaptées, l'événement Change ne se déclenche pas, aie!!!

TooFatBoy à dit:
Il faudrait définir tes besoins complets.

Sur ce, bon après-midi

TooFatBoy · 25 Avril 2024

Une autre proposition...

eric72 · 25 Avril 2024

TooFatBoy à dit:
Sur ce, bon après-midi

En fait, quand j'efface mon tableau avec une macro, avec ton code il garde en mémoire la dernière couleur attribuée, il faudrait que les plages (exemple h8:m14) reprenne la couleur de police d'origine soit, le rouge à chaque fois que j'efface mes données.

TooFatBoy à dit:
Une autre proposition...

Le mieux est que j'essaie d'épurer un maximum mon fichier d'origine pour bien expliquer mon problème, je m'en occupe!!!

TooFatBoy · 25 Avril 2024

eric72 à dit:
En fait, quand j'efface mon tableau avec une macro, avec ton code il garde en mémoire la dernière couleur attribuée, il faudrait que les plages (exemple h8:m14) reprenne la couleur de police d'origine soit, le rouge à chaque fois que j'efface mes données.

Voui, c'est ça qu'est-ce que j'dis en #12 et #14 !
D'où ma dernière proposition en #17...

eric72 · 25 Avril 2024

TooFatBoy à dit:
Voui, c'est ça qu'est-ce que j'dis en #12 et #14 !

Voilà mon fichier d'origine, si on choisit une semaine 1 2024
-on choisit un nom en h8
- on coche e13
- on click sur save pour archiver, jusque là tout va bien
- on choisit la semaine 02 2024
- on choisit un nom en h8 et là, la couleur n'est pas bonne, elle devrait etre rouge (couleur de départ quand il n'y a pas de "X"

TooFatBoy · 25 Avril 2024

eric72 à dit:
on choisit un nom en h8 et là, la couleur n'est pas bonne, elle devrait etre rouge (couleur de départ quand il n'y a pas de "X"

Comment veux-tu que les MFC puissent s'appliquer, elles ne sont même pas présentes dans ton fichier !?!...

J'espère que quelqu'un d'autre pourra t'aider.
Bonne chance pour la suite.
@+

eric72 · 25 Avril 2024

TooFatBoy à dit:
Comment veux-tu que les MFC puissent s'appliquer, elles ne sont même pas présentes dans ton fichier !?!...

J'espère que quelqu'un d'autre pourra t'aider.
Bonne chance pour la suite.
@+

Je n'ai rien dit sur les MFC, je disais juste que cela paraissait un peu lourd de cette manière.

TooFatBoy · 25 Avril 2024

eric72 à dit:
Je n'ai rien dit sur les MFC

Oui, et c'est bien dommage. Mais ce n'est pas bien grave.

@+ camarade

Microsoft 365 Couleur Police sur grand nombre de cellules

eric72

XLDnaute Accro

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Discussions similaires