Mise en forme conditionnelle

[José31]

Bonjour à tous,
Je coince un peu ou je ne sais comment peut on intégrer plus de 3 possibilitées dans une mise en forme conditionnelle. Dans le tableau ci-joint je souhaite avoir le choix dans chaque cellule de la légende du dessous du tableau, y a t'il une solution?
merci à tous [file name=PlanningMartine.zip size=8342]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningMartine.zip[/file]

 

[chris]

Bonjour
Une petite recharche sur le forum t'aurait permis de voir que ce n'est possible qu'avec du VBA.
Il y a un code de MDF dans la zone téléchargement.

 

[Dan]

Bonsoir,

Voilà un début de code macro (pour T1, T2 et vide) que tu peux utiliser dans ton fichier.
Il te reste à le compléter en fonction des couleur et des valeurs que tu souhaites.

Sub couleur()
' Macro par Dan pour José31 - 17/04/06
'Macro pour [B]Lien supprimé[/B]
'-mise-en-forme-conditionnelle.htm
Dim c As Range
For Each c In Range('B3:AF3')
Select Case c.Value
Case Is = 't1'
c.Interior.ColorIndex = 50
Case Is = 't2'
c.Interior.ColorIndex = 6
Case Is = ''
c.Interior.ColorIndex = -4142
End Select
Next c
End Sub

😉

 

[José31]

Chris, je découvre se site et j'ai du mal à trouver le type de fichier dont tu parles.

Merci Dan je suis pas sur d'arriver à mon but connaissant peu VBA mais je vais essayer de continuer ta macro.

merci à vous et à ce site même à mon niveau je découvre des infos intéressantes.

 

[Dan]

José,

Tu ajoutes autant de

Case Is = 'la condition' (T1, T2, AT, Etc ....)
c.Interior.ColorIndex = 6 (le code couleur)
que tu as de condition
et tu finis ta macro par ce que j'ai mis
Case is = ''
c.Interior.ColorIndex = -4142

😉

Message édité par: Dan, à: 17/04/2006 21:27

 

[Bcar]

En piece jointe une version qui repond je crois à la demande.
Bonne utilisation,
Bcar.

 

[Bcar]

 

[Bcar]

fais moi suivre ton adress e-mail le fichier depasse 50K.

 

[Bcar]

Voir ton fichier en piece jointe
Slts,
Bcar [file name=PlanningMartine_Vbcar.zip size=19121]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningMartine_Vbcar.zip[/file]

 

[José31]

Bcar,
Je te joints le fichier un peu plus complet que celui du modèle, comme tu me le demande sur la page d'accueil tu trouveras mon adresse email.
J'ai commencé à regarder dans visual basic mais je dois reconnaître que j'utilise seulement les macros faites en automatique ne sachant pas les écrires directement.
Je te remercie beaucoup de ton aide [file name=PlanningVbcar.zip size=44662]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningVbcar.zip[/file]

 

[José31]

Bcar,
J'ai modifié un des sigles de légende étant inscrit 2 fois pour une notification différante, par contre quelquefois j'ai une fenétre qui annonce une annomalie dans le VBA et qui demande un débogage
Merci si tu a le temps de le regarder [file name=PlanningVbcar_20060418171842.zip size=45373]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningVbcar_20060418171842.zip[/file]

 

[Bcar]

J'ai esayé le fichier tout me semble OK.Si le msg que tu obtiens est 'opération non definie dans la legende' c'est que ta saisie est incorrecte. J'ai eu moi aussi un pb avec le code J 0 car dans la legende il s'agit de J et de zéro et moi je saisissais J et la lettre O.
J' en ai profité pour mettre le code sur les autres mois.
Slts,
Bcar. [file name=PlanningVbcar_20060418220610.zip size=47223]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningVbcar_20060418220610.zip[/file]

 

[José31]

J'ai modifié J0 le zéro par un o, mais le probléme que je rencontre c'est pour valider le personnel: une fenêtre indiquant une erreur s'ouvre. les agents ne sont pas toujours les mêmes tous les mois aussi j'ai lié par une formule les cellules de personnels de chaque mois à la page d'accueil. La macro valider nom copie et colle les cellules des noms en supprimant les formules cela permet de pouvoir changer le nom dans la feuille accueil et d'actualiser le personnel pour le mois en cours sans modifier ceux des mois précedants. C'est en utilisant cette macros que la fenêtre indiquant 'non définie dans la légende s'affiche, même si j'essaie d'écrire le nom de la personne je retrouve cette fenetre. comment on modifie le nom d'un module dans Visual basic. merci de votre aide [file name=PlanningVbcar_20060419211218.zip size=47739]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningVbcar_20060419211218.zip[/file]

 

[Bcar]

J'ai vu le pb! En fait pour chaque feuille la procedure delimite le champ d'action:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Z_Cell
If Target.Row < 7 Or Target.Column < 2 Then
Exit Sub
End If

For Each Z_Cell In Range(Target.Address)
Z_Cell.Interior.ColorIndex = Fct_Color(Z_Cell.Value)
Next Z_Cell

End Sub
Cela veut dire:
Row<7 = si la ligne est inferieure à 7
Column < 2 = si la colonne est inferieure à 2
ne pas effectuer la fonction mettre en couleur.
Le fichier joint est corrigé.
Pour modifier le nom du module doublecliquer sur le module, menu Affichage,fenetre proprietes,le nom du module s'affiche à coté de name et on peut le modifier.
Slts,
Bcar [file name=PlanningVbcar_20060419224503.zip size=46706]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlanningVbcar_20060419224503.zip[/file]

 

[José31]

Je te remercie particuliérement de t'être penché sur mon fichier. Je connais que trés peu le VBA et je vois que j'ai beaucoup à apprendre j'ai déja imprimé toute la manip que tu as transcrite et maintenant j'essai de comprendre. Merci
ce site est génial.