bonjour à tous

J'ai les dates des jours de la semaine sur une ligne; il n'y a pas de formules dans les cellules car elles sont inscrites par une macro

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
 
Private Sub ListBox23_Change()
 
 If ListBox23 <> "" And ListBox22 <> "" Then
 
Range("D2") = lundiSemaine(CLng(ListBox22.Text), CLng(ListBox23.Text)) 'fonction qui trouve la date grace à l'année et au N° de semaine
' début de la semaine en D2
Range("g2") = Range("D2") + 4 'fin de la semaine en g2
 
' je calcul les jour à partir de D2 pour les inscrire dans la ligne concernée par la recherche
Range("a44") = Range("d2")
Range("c44") = Range("d2") + 1
Range("e44") = Range("d2") + 2
Range("g44") = Range("d2") + 3
Range("i44") = Range("d2") + 4
 
    End If
End Sub
les cellules sont au format date, la barre de formule affiche ce format 21/10/2013

dans les cellules l'affichage est par exemple : 21 octobre 2013

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
sheets("vierge").range("a44:i44").find(DateTacheDeb, lookat:=XlWhole)
La méthode Find ne donne rien, j'ai aussi essayer Match sans plus de résultat

j'en suis même arrivé là toujours sans succés

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
 
Dim Cljour As Integer 'recherche colonne départ et fin
 
                            For Cljour = 1 To 10
                                 If DateTacheDeb = .Cells(44, Cljour) Then
                                    CLD = .Cells(44, Cljour).Column
                                 End If
 
                                If DateTacheFin = .Cells(44, Cljour) Then
                                    CLF = .Cells(44, Cljour).Column
                                End If
 
                                Cljour = Cljour + 1 ' saute une colonne car la cellule est vide
 
                            Next Cljour
les variables DateTacheDeb et DateTacheFin sont elles aussi au format date et déclarées en .Date et affiche par exemple 21/10/2013

je n'y comprend plus rien et tous mon code est bloqué à cause de cette recherche, alors si quelqu'un a une idée ce serait super

merci d'avance pour votre aide