Discussion :

[nono63]

Bonjour,

Malgré les nombreux exemples je ne trouve pas d'explication au non fonctionnement de ma macro !!
Je souhaite rechercher des dates à l'aide de la fonction "Find".
J'ai bien noté qu'à priori il fallait utiliser "LookIn:=xlFormulas" au lieu de "LookIn:=xlValues" mais rien n'y fait.
Le code reste muet !!
Il n'est pas complet puisque j'en suis qu'au module de recherche.
Cette macro est sensée rechercher une date de la feuille "Recup1" dans la feuille "Tampon"

Je suis sec
@+
Nono
Voici le code en question (fichier exemple joint également):

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Maj()
 
' Mise à jour de la feuille
' Fait une boucle de tout les jours de l'année, créer autant de ligne qu'il y a d'entrées par date
 
 
    Dim oSht As Worksheet
    Dim lastRow As Long, i As Long
    Dim strSearch As String
    Dim t As Long
    Dim aCell As Range
 
Set oSht = Worksheets("Tampon")
 
    lastRow = oSht.Range("B" & Rows.Count).End(xlUp).Row
 
For x = 2 To 250
 
    On Error GoTo Err
 
    strSearch = Worksheets("Recup1").Cells(157, "A") ' met la date référence calendrier en mémoire (05/06/05/06/2013)
 
    Set aCell = oSht.Range("B4:B" & lastRow).Find(What:=strSearch, LookIn:=xlValues)
    'Set aCell = oSht.Range("B4:B1000").Find(What:="05/06/2013", LookIn:=xlFormulas, lookat:=xlWhole)
 
    If Not aCell Is Nothing Then
        Debug.Print "Trouvé !! " & vbCrLf & "Value Found in Cell " & aCell.Address
        Exit Sub
    End If
 
Next x
Exit Sub
 
Err:
    MsgBox Err.Description
 
End Sub