Planning couleur selon saisie

T

Thri

Guest
Bonjour à tous
J'ai un tableau, dans ce tableau j'ai la possibilité de saisir 5 valeurs.(Planning de travail) et + par la suite
Je désirerai créer une macro, qui me change automatiquement la couleur de fond en fonction de ma saisie.
Ex
1 couleur de fond violet
2 couleur de fond jaune
3 couleur de fond bleu
Etc…….
Merci à tous
 
T

Thri

Guest
Petites précisions
Jai la macro CPplus 30 conditions, le fichier rame avec les nouveaux formats et il ne copie pas les formats de la même façon que le format 3 conditions.ça marche cellule par cellule pour copier........
Et j'en ai pas mal............
Et après chaque nouvelle cellule formatée le fichier met beaucoup de temps à enregistrer. Mon ordi est pourtant performant.......
J'ai essayé aussi dans les sujets traités, j'ai pas trouvé mon bonheur
J'espère que la nouvelle version excel intégrera un format conditionnel avec + de 3 conditions, j'ai remarqué qu'il y avait de la demande sur le forum et ailleurs!!!!!!!!!!!!
Merci à tous :silly:
 
B

bebere

Guest
bonjour à tous

MyDearFriend a fait cela il n'y a pas longtemps
MFCmultiples
à bientôt [file name=MFCmultiples.zip size=14325]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MFCmultiples.zip[/file]
 

Fichiers joints

myDearFriend!

XLDnaute Barbatruc
Bonjour Thri, brunocean, bebere,

Merci bebere :)

Effectivement vous trouverez ci-joint un classeur exemple (réactualisé) pouvant peut-être vous servir de base pour tenter d'apporter une solution (parmi d'autres) à ce type de problème...

Cordialement,
[file name=mDF_MFCmultiples.zip size=16453]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_MFCmultiples.zip[/file]
 

Fichiers joints

T

thri

Guest
Merci pour vos réponses si rapide
c'est vraiment ce que je désire
impressionnant!!!!
Je vais ce soir regarder ça de plus près, pour l'application
Je vous tiens au courant
Et encore merci :)
 
T

Thri

Guest
Si je comprends bien
Je copie le code dans mon fichier dans thisworkbook est saisie la formule mDF dans le format conditionnel
Pour la création de la feuille des format définis, il faut la nommer
par le même nom dans mon fichier ???
Et merci encore A+
 

myDearFriend!

XLDnaute Barbatruc
Re

Oui Thri, il te faut :[ol][ul][li]Copier la procédure Private Sub Workbook_SheetChange() dans le ThisWorkbook de ton classeur.[/li]
[li]Créer un onglet dans lequel tu mettras en Colonne A --> les valeurs et en Colonne B --> les formats correspondants souhaités (prévoir une ligne de titre). Dans mon exemple, j'ai nommé cet onglet 'MFC', mais tu peux lui donner le nom que tu veux dès lors ou tu modifies la ligne With Sheets('MFC') en conséquence. Je te conseille de masquer par la suite cette feuille, cela ne nuit pas au bon déroulement de la macro.[/li][/ul][/ol]
Pour chaque cellule à gérer dans ton classeur, il faut lui appliquer une Mise en Forme Conditionnelle avec l'unique condition :
'La formule est', puis la formule '=mDF' (sans les guillemets !).

Comme je le précisais dans le fil d'origine, j'ai choisi cette façon de faire afin de permettre à l'utilisateur d'une part, de gérer plus de 3 formats conditionnels, et d'autre part, de mettre à jour facilement les formats prédéfinis sans avoir à intervenir dans le code VBA...

Cordialement,
 
T

Thri

Guest
Merci à brunocean, bebere et Bravo à DidierMDF
Génial le fichier fonctionne parfaitement et du 1° coup
La macro est exactement ce que je cherchais.
ça doit intéréser pas mal de monde cet outil.
Merci à tous Bonne soirée :)
 

myDearFriend!

XLDnaute Barbatruc
Bonjour,

Je viens d'adapter le fichier exemple mDF_MFCmultiples afin qu'il puisse fonctionner aussi bien avec des valeurs numériques qu'avec des chaînes de caratères... j'en profite donc pour le poster ici.

Cordialement, [file name=mDF_MFCmultiples_v2.zip size=19538]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_MFCmultiples_v2.zip[/file]
 

Fichiers joints

J

jeff

Guest
Merci pour cette version qui corespond pilpoil à ce que j'avais besoin
Super et bravo.
 
V

Velsheda

Guest
Salut Didier
Excellent boulot qui facilite pas mal les difficultés des débutants dont je fais parti.
J'aimerai appliquer également aux cellules concernées par mDF la fonction majuscule automatique
J'ai appliqué cette formule, directement dans le code VBA de ma page, ca fonctionne, mais ca rame.
Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub
Est-il possible de modifier mdf, afin qu'il prenne en compte directement mon désir.
D'avance merci
 

myDearFriend!

XLDnaute Barbatruc
Bonjour Velsheda, le fil, le Forum.

Tout d'abord, merci du compliment.

Si tu veux obtenir des majuscules automatiquement dans chaque cellule 'marquée' par cette mise en forme conditionnelle spéciale, il te faut, en remplacement de ta procédure Worksheet_Change(), modifier une ligne de la procédure Workbook_SheetChange() (de objet ThisWorkbook) comme suit :

Remplace :
Target.Formula = V
par
Target.Formula = UCase(V)

Il y avait une autre possibilité en maintenant ta procédure et en utilisant Application.EnableEvents = False/True, mais je te déconseille cette manière de faire (en cas de plantage, tu perdrais toute gestion des évènements dans VBA)...

Cordialement,
 
V

Velsheda

Guest
Merci de cette réponse rapide. J'adore ce site et je commence à aimer excel
Oups, ca doit être presque ca...
Il met bien en majuscules, mais supprime le Gras, bizarre...
 
V

Velsheda

Guest
J'ai oublié de préciser :
En fait le format de mDF, n'est pas repris puisque même les couleurs de fond n'y sont pas ! Donc pas mieux
Merci myDearFriend
 

myDearFriend!

XLDnaute Barbatruc
Re Velsheda,

Arf, si tu m'avais informé que la macro reprenait la couleur de fond mais pas l'attribut gras de la police, j'aurais été le premier étonné !
A te lire, cette macro semblait bien fonctionner avant, et je peux te certifier que ce n'est pas la simple modification de V en UCase(V) qui peut remettre en cause ce fonctionnement... tu as dû faire une erreur Velsheda.

Et comme je n'ai aucune idée de ce que tu as fait ou n'as pas fait, je ne peux donc te dire ce qui ne va pas dans ton classeur... (n'aurais-tu pas fait un essai à base d'Application.EnableEvents par hasard ?).

Cordialement,
 
V

Velsheda

Guest
Bon didier, c'est mes débuts, et je ne sais plus ou j'en suis, ce que j'ai fais, j'ai pas fais, ces fenêtres VBA qui s'ouvrent les unes après les autres sans savoir si elles appartiennent vraiment au programme en cours. Bref panique à bord...
Je joins donc mon fichier pour que tu trouves cette erreur.
Par la même occasion, si je peux me permettre dans la barre jaune j'aimerai appliquer une fonction toute bête des mises en forme conditionnelles, qui lorsque la valeur de la cellule est supérieur ou égale à 6 devienne rouge et gras. Tout bête, mais même là ca fonctionne pas.
:eek: [file name=essai1_20051009235311.zip size=21161]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai1_20051009235311.zip[/file]
 

Fichiers joints

myDearFriend!

XLDnaute Barbatruc
Re Velsheda,

Dans mon post du 26/09/2005 11:36 (ci-dessus), je fournissais le fichier mDF_MFCmultiples_v2 permettant de gérer les critères chaines de caractères (en plus des valeurs numériques). Bien que tes critères soient effectivement du type alphanumérique (RTT, CF, CA et CAS), tu n'as pas utilisé le code de cette nouvelle version mais le code de l'ancienne...

Par ailleurs, la macro que j'ai présentée (et qui permet donc autant de formats que souhaités) n'est normalement pas compatible avec une autre MFC 'classique' en même temps. Cette MFC 'classique' restant prioritaire, elle annihile tout bonnement l'effet de la macro...

Tu trouveras donc ci-joint ton fichier modifié avec le bon code à appliquer d'une part et une modification de la MFC d'autre part. J'ai passé ta MFC 'classique' en 2ème position dans l'ordre des formats conditionnels applicables ce qui permet tout de même de tenir l'objectif sur les cellules 'hors week-end'. Les samedi et dimanche conserveront donc le format de couleur imposé par ta MFC 'classique'...

J'ai également appliqué la MFC que tu souhaitais pour la 'barre jaune' (ligne 42). Pour que ça puisse fonctionner, j'ai supprimé l'expression ' '' &' qui ne semblait correspondre à rien devant chacune de tes formules sur cette même ligne...

Bon courage pour la suite.

Cordialement, [file name=PourVelsheda.zip size=18773]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourVelsheda.zip[/file]
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas