Discussion :

[Hahiwa]

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 :

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

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 !!