Bonjour
J'essaie d'écrire un code qui me renvoie le numero de la ligne contenant une date...(sachant que la date que j'ai écrite est en B8)

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
Sub fdhjok()
 
b = Format(DateAdd("yyyy", -1, Now), "dd/mm/yyyy")
 
With Worksheets("2007").Range("B2:B500")
    Set b1 = .Find("17/01/2007", LookIn:=xlValues)
    If Not b1 Is Nothing Then
           Range(b1.Address).Select
           bligne = ActiveCell.Row
           MsgBox (bligne)
    ElseIf b1 Is Nothing Then
    MsgBox ("nfskpf")
    End If
 
End With
 
End Sub
Le probleme c est que ca ne me trouve pas la date (il me renvoie ma Msgbox "nfskpf"), et je ne comprend pas ce qui ne va pas dans mon code?...