probleme trouver une date

Version imprimable

30/04/2013, 11h45
Ashireon

probleme trouver une date
Bien le bonjour,

J'ai un problème je recherche une date dans une feuille et j'aimerai lorsque cette dernière est trouvée , me retourner le N° de Ligne de l'occurence.

Bien que toute les dates existent dans le range il ne me renvoi jamais de N° de Ligne donc la condition if n'est pas accomplie.
Newdate est variable au format tel que 22/04/2013
Le FOrmat des cellules son bien date 22/04/2013 également (jj/mm/aaaa)
Code:

1 2 3 4 5 Dim o As Variant For Each o In Sheets("Suivi par demi journée Q2").Range("D8:D" & LastLigne) If o.Value2 = Newdate Then LigneNewdate = o.Row Next
Merci
30/04/2013, 11h51
SfJ5Rpw8

je vois pas dans ton code comment tu déclare et affecte une valeur à la variable NewDate ?

J'ajoute le code en entier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim DLundi As Date
DLundi = LPAP(Date)
Dim NbJour As Integer
 
NbJour = DateDiff("d", DLundi, Date)
 
Dim X As Integer
Dim LastLigne As Integer
Dim DerniereLigne As Integer
LastLigne = Sheets("Suivi par demi journée Q2").Range("D" & Rows.Count).End(xlUp).Row
DerniereLigne = Sheets("Rappel").Range("A" & Rows.Count).End(xlUp).Row
Dim Newdate As Date
 
For X = 0 To NbJour - 1
    Newdate = DateAdd("d", X, DLundi)
    ' recherche de la ligne de la nouvelle date
 
    Dim A As Integer
    Dim LigneNewdate As Integer
    Dim o As Variant
 
    For Each o In Sheets("Suivi par demi journée Q2").Range("D8:D" & LastLigne)
        If o.Value2 = Newdate Then LigneNewdate = o.Row
    Next
 
 
    Call RetourAbsent(LigneNewdate, Newdate)
    DerniereLigne = Sheets("Rappel").Range("A" & Rows.Count).End(xlUp).Row
Next

La fonction LPAP trouve by net qui me renvoi le lundi precedent ( j ai du corriger kk peu car ca me retournais le MArdi...)

Code:

1
2
3
4
5
6
7
8
Function LPAP(ByVal Dte As Date) As Date
Dim MaDate As Date
 
MaDate = DateAdd("ww", -1, Dte)
MaDate = DateAdd("d", 0 - Weekday(MaDate, vbMonday), MaDate)
MaDate = DateAdd("yyyy", -1, MaDate) + 1
LPAP = MaDate
End Function

Trouver la fonction LPAP ne me renvoyait pas une date correcte du coup normale que cette derniere ne soit pas trouver.

j'ai modifié juste ainsi
Code:

1 2 3 4 5 6 7 8 Function LPAP(ByVal Dte As Date) As Date Dim MaDate As Date MaDate = DateAdd("ww", -1, Dte) MaDate = DateAdd("d", 1 - Weekday(MaDate, vbMonday), MaDate) ' MaDate = DateAdd("yyyy", -1, MaDate) + 1 LPAP = MaDate End Function
du coup je recupere la bonne date.

Je mets en RESOLU