Excel -- Problème sur une mise en forme conditionnelle Résolu/Fermé

Question

Bonjour, 

J'utilise à mon travail Excel 2003.

J'ai récupéré le fichier situé sur cette page : https://www.commentcamarche.net/faq/16784-excel-mises-en-forme-conditionnelles-illimitees dans le but de créer un planning pour mon travail, qui permette qu'on puisse mettre semaine après semaine différents champs parmi une liste, tout en conservant la forme du tableau.

Ce planning comporte des couleurs différentes selon les choix sélectionnés, c'est pourquoi le fichier proposé sur cette page était parfait pour moi. Comme je n'y connais rien en Visual Basic, j'ai repris ce fichier, je l'ai renommé, et j'ai fait un copié-collé de mon planning en modifiant chaque champ pour pouvoir le faire fonctionner.

Et après avoir fait tout cela, ça marchait parfaitement.

Mais à un moment donné, je me suis rendue compte que, après quelques utilisations, tout d'un coup les changements de couleurs ne fonctionnaient plus sur mon fichier. Il semblerait qu'il y ait quelque chose qui affecte, peut-être, le fichier utilisé pour permettre la macro, car en rouvrant le fichier original trouvé sur la page de commentcamarche.net cité plus haut et en le réessayant, j'avais le même problème : plus de couleurs (le champ que je sélectionne se modifie bien selon mon choix, mais la couleur de la cellule reste celle qui était mise avant, au lieu d'avoir la nouvelle couleur correspondant au choix indiqué).

Si je ferme les fichiers et que je les rouvre, j'ai toujours ce problème. Par contre, si je ferme ma session et que je la redémarre, le fichier d'origine (cité plus haut) marche à nouveau correctement.

Pourriez-vous m'aider à résoudre ce problème ? 

Je vous mets des liens vers deux fichiers : 
- un fichier intitulé "Planning équipe - version forum", où j'ai enlevé toutes les autres pages de planning excepté celle de cette semaine, en exemple. Ce fichier marche au démarrage de la session.
http://www.fileden.com/files/2012/10/10/3355749/Plannings%20%C3%A9quipe%20-%20version%20forum.xls

- un fichier intitulé "PLANNING CVE 2012 - forum" : il s'agit à la base du même fichier, sauf qu'il a été renommé par une collègue. En principe elle n'a pas dû changer grand chose à part peut-être des plages de planning. C'est en ouvrant ce fichier ce matin que, du coup, les couleurs ne marchaient plus, et qu'après ça ne marchait pas non plus sur le fichier original (le premier que je mets en fichier joint).
Il semblerait que ce deuxième fichier ait une erreur quelque part dans le code, qui fasse que chaque fois qu'on l'ouvre le code ne fonctionne pas pour les couleurs, et du coup modifie également les actions utilisées pour l'autre fichier, si on l'ouvre après avoir ouvert celui-ci.
http://www.fileden.com/files/2012/10/10/3355749/PLANNING%20CVE%202012%20-%20forum.xls

J'espère que vous arriverez à comprendre mon problème, et que vous pourrez le constater également chez vous (à moins que ce problème ne soit lié à Excel 2003 ? Le fichier d'origine était prévu pour Excel 2007...).

Merci d'avance pour votre aide et bonne journée,

Judith

Configuration: Windows XP / Firefox 3.5.3

michel_m · Answer

bonjour,

sans trop avoir regardé copie cette macro et effectue la pour relancer les macros

sub depannage_events()
   Application.EnableEvents = True
end sub 

et je rerajouterais en fin du code

     ....

     End If
    Next i
    Application.EnableEvents = True
    Exit Sub
    
fin:
      Application.EnableEvents = True
    
End Sub

judithcle · Answer

Merci beaucoup Michel. Mais par contre, comme je n'y connais pas grand chose en programmation Excel, est-ce que je mets ça sur le fichier qui s'ouvre lorsque je vais dans Outils / Macro / Visual Basic Editor ?

Le fichier qui s'affiche s'appelle "Worksheet", et son contenu est : 

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub"

Est-ce que je rajoute ton code au milieu de ces deux lignes, ou bien dans un autre fichier que je trouverai ailleurs ?...

Merci d'avance pour ton aide,

Judith

michel_m · Answer

Non, absolument pas :o)

je n'ai pas 2003 et pas beaucoup de temps cet après midi et serait absent jusqu'à lundi...

Je demande à un contributeur ayant 2003 de venir t'aider

ccm81 · Answer

bonjour 

michel vient de me contacter,
j'ai vaguement compris qu'il s'agit d'une histoire de couleur mais, peux tu m'expliquer en quelques mots ce que tu souhaites obtenir dans la feuille 08-12 oct.

bonne suite

ccm81 · Answer

re

une tentative plus simple (sans utiliser de MFC) avec ce que j'ai compris
https://www.cjoint.com/?3JkqwarJooU

bonne suite

ccm81 · Answer

ou ceci qui évite de colorer une cellule qui n'est pas dans le plannig
https://www.cjoint.com/?3JkqWk3Io9i

judithcle · Answer

Super, ça marche !

Merci beaucoup d'avoir pris le temps de faire ça pour moi.

Trois questions cependant :

- Quelle est la différence entre le premier et le deuxième fichiers que tu as faits ? (Tu as mis que ça évitait de colorer une cellule qui n'est pas dans le planning : que veux-tu dire exactement par là ??)

- J'ai voulu allonger le tableau des couleurs en mettant deux lignes de plus (dans l'onglet "Couleurs"), mais après l'avoir fait, je ne vois pas ces choix dans la liste de sélection de mon planning, lorsque je veux choisir comment remplir une case. Faut-il que je modifie le code en conséquence ?? Ou que dois-je faire d'autre ?

- A priori, seule la couleur de la cellule est reprise, pas celle du texte (j'avais mis du blanc et du bleu sur les deux cellules de couleurs violettes).
Bon, ce n'est pas franchement grave. Je suppose qu'il y aurait un moyen de rajouter ça, tu n'as sans doute simplement pas vu qu'il y avait des différences dans mes choix ? Enfin bon, si jamais ça te prenait très peu de temps pour rajouter ce paramètre, n'hésite pas. Sinon, ça n'est pas grave.

En tout cas merci d'avoir fait tout ça.

Et puis encore bravo pour le résultat correspondant à mon besoin !!

Bonne soirée (ou journée selon l'heure),

Judith

ccm81 · Answer

bonjour

1. l'instruction (version F4)
If Not Intersect(Target, Sh.Range(planning)) Is Nothing Then
limitera l'exécution de la procedure à la plage planning définie par la constante planning en début de code
si tu mets un 5 en K13 (hors planning) le format de K13 ne sera pas modifié
2. je n'ai effectivement pas pensé à redéfinir la plage lst_noms. Il faut la rendre "dynamique" de façon qu'un ajout/retrait soit automatiquement pris en compte
(voir insertion/nom/definir)
=DECALER(Couleurs!$A$2;0;0;NBVAL(Couleurs!$A$2:$A$200);1)
3. je n'avais pas remarqué les couleurs de police
https://www.cjoint.com/?3JlkhzOjcBO 

bonne journée

ccm81 · Answer

1. Pour ajouter un nom dans le planning, 
 je suppose que tu as compris qu'il fallait ensuite modifier la constante planning du code 

2. tu n'as pas bien lu le point 2.  
Pas besoin de toucher au code,  
C'est simplement la définition de la plage lst_noms (celle qui est reprise dans la liste déroulante  des feuilles "date") qu'il faut rendre dynamique 
Pour voir les noms de plage de la feuille : 
Tu te mets dans la feuille Couleurs 
Insertion/Nom/Définir  
clic sur DECALER 
ça doit te montrer la plage des couleurs 

RQ1. dans le code j'aurais pu reprendre cette plage (lst_noms) et éviter le calcul de lifin et de plage  
RQ2. =DECALER(Couleurs!$A$2;0;0;NBVAL(Couleurs!$A$2:$A$200);1)  
signifie que la plage lst_noms se définit 
- à partir de la cellule A2 
- dont la première cellule est décalée de 0 lignes, 0 colonnes (par raooprt à A2) 
- dont le nombre de lignes est égal au nombre de valeurs de la plage A2:A200 (on taille large!) 
- dont le nombre de colonnes est 1 
RQ3. pour ajouter une couleur, tu l'ajoutes simplement à la fin du tableau (tu n'as pas à toucher à la définition de lst_noms

bonne journée

Excel -- Problème sur une mise en forme conditionnelle

9 réponses

Discussions similaires