Discussion :

[nicolav]

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

[LeForestier]

Bonjour,
Une idée ?

Code :

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

1
2
3
4
5
6
7
8
9
Sub ColorDateLigne()
Dim lig As Long
Dim cel As Range
    For lig = 5 To Range(Cells(5, 8), Cells(Cells(65536, 8).End(xlUp).Row, 8))
        For Each cel In Range("A4:A25") ' à adapter
            If cel = Cells(lig, 8) Then cel.Interior.ColorIndex = 6
        Next cel
    Next lig
End Sub

A+

[nicolav]

re :

Le code me renvoit une incompatibilité de type sur la ligne :

Code :

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

For lig = 5 To Range(Cells(5, 8), Cells(Cells(65536, 8).End(xlUp).Row, 8))

[LeForestier]

Excuse, j'étais parti sur un Each

Code :

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

   For lig = 5 To Range("H65536").End(xlUp).Row

A+
edit :
mais si tu veux garder la décomposition du range tu peu ajouter Row

Code :

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

    For lig = 5 To Range(Cells(5, 8), Cells(Cells(65536, 8).End(xlUp).Row, 8)).Row

et plus simple

Code :

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

    For lig = 5 To cells(65536,8).end(xlup).row

[nicolav]

Merci de ton aide, j'ai pu radapter.

Cependant j'ai un probleme puisque rien ne s'est coloré, j'ai donc passé au debugger le code et j'arrive a un instant ou j'ai ;

Code :

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

cel = Cells(lig, 8)

avec cel = "22/07/09" et Cells(lig, 8)=22/07/09

il y a les guillemets qui diffèrent donc on ne rentre pas dans le If Then et rien ne se colore...

Vous avez une idée d'ou ça peut venir ? problème de date ...???

[aalex_38]

Et avec

Code :

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

Cells(lig, 8).value

ça change quelque chose ?

[LeForestier]

essaye avec..

Code :

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

            If cel = Cstr(Cells(lig, 8)) Then cel.Interior.ColorIndex = 6

ou les 2 en string.

Code :

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

            If Cstr(cel) = Cstr(Cells(lig, 8)) Then cel.Interior.ColorIndex = 6