Discussion :

[NoodleDS]

Bonjour,

Je souhaite votre aide pour la réalisation de code VBA pour colorier des cellules à partir de 3 critères sélectionnés dans un formulaire. Les cellules à colorier sont celles qui correspondent au jour RTT choisi par une personne pour l'année dans un calendrier. Voir le fichier ci-joint en exemple représentant les 4 premières semaines de l'année.
Pour que ma demande soit un peu plus compréhensible je vais prendre un exemple. Par exemple, Toto va prendre cette année :

Tous les Lundis des semaines impaires.

Donc tous les lundis des semaines impaires doivent se colorier en face du nom Toto dans le Calendrier.
Un bouton dans le formulaire permettrait, si l'on se trompe, d'effacer toutes les cellules coloriées pour un nom. Une fois que des cellules sont coloriées pour un nom, on ne pourra plus faire d'autres choix pour ce nom (on ne peut pas prendre un autre jour RTT, si un est déjà choisi pour une personne).

Je vous remercie par avance pour votre aide.

Cordialement,
NoodleDS

[EngueEngue]

Soit tu fais une mise en forme conditionnelle soit tu boucles sur tes cellules avec un if avec trois condition AND et un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.cells(i,j).interior.color = RGB(100,0,0)

Rien de plus simple

[illight]

Pour faire un complément de réponse, pour connaitre la couleur (si jamais tu ne connais pas le code), je te conseille de faire un enregistrement de macro, avec la couleur voulue,e t après tu vas dans le VBA pour trouver le code couleur

[EngueEngue]

Sinon tu cliques droit sur ta cellules format remplissage autres couleurs, personnalisées et tu vois le RGB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RGB(255,204,153)

[NoodleDS]

Bonjour et merci pour vos réponses,
Je sais que cela peu paraitre simple pour des experts mais pour un novice comme moi cela n'est pas du tout évident. Pouvez-vous m'aider un peu plus, en me donnant un morceau de programme avec un peu plus d'explication sur le fonctionnement. Je souhaite me diriger vers une boucle sur les cellules avec un if avec trois conditions AND et un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.cells(i,j).interior.color = RGB(100,0,0)

Je vous remercie par avance pour votre aide.

Cordialement,
NoodleDS