Bonjour,

voici mon probleme
j'ai des dates type jj/mm/aaaa (on va dire d1 à dn) qui sont dans une colonne (la B dans cet exemple) et des dates dans une ligne et je voudrais colorier le point de rencontre

exemple : si la date d1 est en b6 ainsi qu'en s4, je voudrais colorer en s6.


En fait j'ai essayé de parcourir la colonne puis pour chaque valeur trouvée, je cherche dans la ligne la date correspondante, cependant il ne trouve jamais la date et ne colorie rien

Voici mon code : dans mon exemple reel c'est la colonne 8 qui contient mes dates et la ligne 4 qui contient les autres dates

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Sub ColorieCaseDate()
 
Dim Plage As Range
Dim X As Integer
X = 5
Do While Not Cells(X, 8) = ""
	Set Plage = Sheets("Feuil1").Cells.Find(What:=Cells(X, 8).Value)
	'Set Plage = Sheets("Feuil1").Cells.Rows(4).Find(What:=Cells(X, 8).Value)
	'Set Plage = Sheets("Feuil1").Rows(4).Find(What:=Cells(X, 8).Value)
	If Not Plage Is Nothing And Plage.Column > 17 Then
		'je rajoute la condition superieure a 17 nécessaire dans mon exemple
		Cells(X, Plage.Column).Select
		Selection.Interior.ColorIndex = 6
	End If
X = X + 1
Loop
 
 
End Sub
si il y a des meilleures solutions,...
merci de votre aide