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
les cellules sont au format date, la barre de formule affiche ce format 21/10/2013
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
dans les cellules l'affichage est par exemple : 21 octobre 2013
La méthode Find ne donne rien, j'ai aussi essayer Match sans plus de résultat
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 sheets("vierge").range("a44:i44").find(DateTacheDeb, lookat:=XlWhole)
j'en suis même arrivé là toujours sans succés
les variables DateTacheDeb et DateTacheFin sont elles aussi au format date et déclarées en .Date et affiche par exemple 21/10/2013
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
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
Partager