Mettre format à une cellule adjacente en VBA

Bonjour,

En cellule A1, j'ai une date
J'aimerais que les cellules A2, A3, A4 et A5 change de format en fonction de conditions à définir par rapport à la cellule A1.
Ex. si la date est un samedi, les 4 cellules suivantes seront en jaune

Merci pour votre aide

bonsoir,

Sans VBA tu peu utiliser une mise en forme conditionnelle en utilisant la condition :

Code:

---

=JOURSEM($A$1;1)=7

---

C'est gentil, oui j'y avais pensé mais le but ici est de le faire uniquement en VBA..

car l'objectif après sera d'étendre la fonction sur une plage de donnée entière

cela donnerait quelque chose du genre :

Code:

---

1 2 3 4 5

If MyWeekDay = [1] Or MyWeekDay = [7] Then Range(Target, Target(0, 5)).Interior.Color = vbBlack End if

---

target serait A1 par exemple et le reste dans le but d'étendre la sélection de 5 cases vers la droite..

mais évidemment, cela ne fonctionne pas (la ligne rouge) :(

Bonjour,
Toujours sans VBA, il est possible de nommer une plage et de la rendre dynamique soit avec la formule DECALER soit en transformant la plage de cellules en tableau.
Dans la Mise en forme Conditionnelle on fait alors référence à cette plage nommée.
Il est également possible de faire en sorte que dans la MFC on fasse en sorte que la formule qui compare le jour de la semaine soit elle même dynamique.
Il faudrait en savoir un peu plus sur la manière dont sont organisées tes données.
Maintenant si tu veux absolument le faire en VBA, c'est possible bien entendu mais ccela me semble plus simple d'utiliser en priorité les fonctionnalités natives du produit.

Le problème avec les MFC est que l'on est limiter après dans la feuille de calcul.
Ex. je mets en forme une colonne (janvier) et je voudrais en faisant un simple copier-coller reproduire cette MFC pour tous les autres mois, et bien cela ne fonctionne pas ou alors après un assez lourd travail.
De même que par après, dans 6 mois par exemple, il me faudra toujours faire attention à ces changements dans mon fichier.. assez ennuyeux quoi. J'ai déjà expérimenté cela et c'est embêtant plus qu'autre chose.

Donc j'essaye de mettre TOUT en VBA pour éviter ce genre de problèmes à l'avenir.

Merci pour ton aide

Pour info, voici ce que je recherchais :

Code:

---

1 2 3

NumCol = Range(Cellule.Address).Column ColFin = Split(Cells(8, NumCol + 5).Address, "$")(1) Range(Cellule.Address & ":" & ColFin & Cellule.Row).Interior.Color = vbBlack

---

Ce code m'a été donné sur un autre forum.

Merci quand même