Microsoft 365 Couleur Police sur grand nombre de cellules

E

eric72

XLDnaute Accro
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
 

Pièces jointes

  • test couleur.xlsm
    331.9 KB · Affichages: 6
Solution
TooFatBoy
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 =...
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
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!!!
Cliquez pour agrandir...

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

Sur ce, bon après-midi
🖖
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
TooFatBoy à dit:
Sur ce, bon après-midi
🖖
Cliquez pour agrandir...
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...
Cliquez pour agrandir...
Le mieux est que j'essaie d'épurer un maximum mon fichier d'origine pour bien expliquer mon problème, je m'en occupe!!!
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
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.
Cliquez pour agrandir...
Voui, c'est ça qu'est-ce que j'dis en #12 et #14 !
D'où ma dernière proposition en #17...
 
Dernière édition:
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
TooFatBoy à dit:
Voui, c'est ça qu'est-ce que j'dis en #12 et #14 !
Cliquez pour agrandir...
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"
 

Pièces jointes

  • My Planning SAV.xlsm
    933 KB · Affichages: 2
Vote positif 0 Vote négatif

Discussions similaires

T
  • Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
303
Tophe2
T
lfacq34
  • Question
XL 2016 Reproduction de cellule avec format (couleur, police...)
Réponses
6
Affichages
259
lfacq34
lfacq34
Yann71
  • Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
624
job75
job75
poipoi
  • Question
XL 2010 MFC sur couleur texte
2 3
Réponses
34
Affichages
1 K
Dranreb
Dranreb
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
235
pvander
P
D
  • Question
Microsoft 365 Code VBA police de couleur
2
Réponses
17
Affichages
1 K
sylvanu
sylvanu
M
  • Résolu(e)
XL 2013 Planning perpétuel Excel
2
Réponses
17
Affichages
466
Manutela
M
J
  • Résolu(e)
Autres nombre de jours travaillés Nominativement dans une semaine concernée.
Réponses
6
Affichages
299
jdrc
J
M
  • Question
XL 2013 changement de couleur de police qd cellule modifiée
Réponses
10
Affichages
490
michel.dupont
M
C
  • Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
182
CS49
C

Membres actuellement en ligne

10 membres et 107 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 705
Messages
2 112 081
Membres
111 411
dernier inscrit
NIMY