Création d'un planning VBA

Bonjour Messieurs Dame,

Je suis en train de m'arracher les cheveux à la création d'un planning sous excel.
La formule VBA m'apparaissait pourtant claire mais j'ai un souci avec ce qui peut s'apparenter à une recherche verticale. J'avais créé le planning sans formule VBA mais le fichier s'agrandissant le fichier devient beaucoup trop lourd.

Exemple simple:
Pour une date (en colonne A) X, ou X = 15/01/2012 (par exemple)
Je souhaite que la case se situant dans la même ligne que X et dans la colonne ou figure la date dans mon planning change de couleur.

Je joins le fichier exemple et la formulation qui ne doit pas être trop loin du compte.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub planning() Dim Cel As Range, C As Range   For Each Cel In Range("A8:A" & Cells(Rows.Count, 1).End(xlUp).Row) 'l'opération doit pouvoir se répéter indéfiniment Set C = Range("$B$5:$JT$5").Find(Cel) ' Je prévois à terme un calendrier sur un an With C 'le but est de changer la couleur de la cellule ciblée (comme une une recherche verticale) .Range(Cel.Row, C.Column).Font.ColorIndex = 6 .Range(Cel.Row, C.Column).Interior.ColorIndex = 7   End With Next End Sub

---

Merci d'avance pour votre aide !!

Bonjour,

Il y a plusieurs problèmes :
1) il faut tester si C existe bien
2) le code d'accès à la cellule n'est pas bon

Peut-être que cela va mieux marcher :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub planning() Dim Cel As Range, C As Range   For Each Cel In Range("A8:A" & Cells(Rows.Count, 1).End(xlUp).Row) 'l'opération doit pouvoir se répéter indéfiniment Set C = Range("$B$5:$JT$5").Find(Cel) ' Je prévois à terme un calendrier sur un an If Not C Is Nothing Then Cells(Cel.Row, C.Column).Font.ColorIndex = 6 Cells(Cel.Row, C.Column).Interior.ColorIndex = 7 End If Next End Sub

---

Ca marche en effet beaucoup mieux !!
C'est donc à cela que sert le test...

Bon il va falloir que je rentre le calendrier (il ne reconnait pas les formules avec les dates) mais vu l'avancée je ne vais pas pleurer.

Impec !! :ccool: