Discussion :

[ouioui_cmoi]

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?...

[Abed_H]

Bonjour
c'est le parametre xlValues de la methode find qui ne va pas,la méthode "Find" en utilisant le paramètre "LookIn?:=xlFormulas" trouvera facilement la date recherchée quel que soit le format de la date affichée dans la cellule.
essaie avec

Code :

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

Set b1 = .Find(CDate("7/01/2007"),LookIn:=xlFormulas)

Bonne journée

Abed_H

[ouioui_cmoi]

ok ca marche!!!
mais ca marche aussi avec xlvalues...c est le "Cdate()" qui permet de resoudre le pb


En tout cas merci!

[ouskel'n'or]

Ensuite, tu n'as pas besoin de faire tout ce cinéma pour récupérer la ligne, le code suivant suffit.

Code :

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

1
2
3
4
    If Not b1 Is Nothing Then
           bligne =b1.Row
           MsgBox (bligne)
      elseif...

Select ne sert qu'à alourdir le code, et donc le ralentir, et ajoute en outre des mvts de feuille inutiles qui imposent l'utilisation de "Application.ScreenUpdating = False" qui nécessite à son tour de mettre ensuite "Application.ScreenUpdating = True" etc.
Juste un petit conseil en passant

[ouioui_cmoi]

oui c est vrai...
Mais j'avais fait un code qui utilisait .Find, et ou b1.row directement ne marchait pas...