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

[EngueEngue]

Que dirais tu d'un:

Code :

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

.Find(cdate(tadate), LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False)

[mercatog]

Remplace les lignes correspondantes par

Code :

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

Dim strSearch As Date

Et

Code :

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

    Set aCell = oSht.Range("A4:A" & LastRow).Find(What:=strSearch, LookIn:=xlFormulas, lookat:=xlWhole)

Find avec les dates est à prendre avec précautions

[Theze]

Bonsoir,

Pour le typage de la variable "strSearch", pas en String mais en Date :

Code :

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

1
2
 
Dim strSearch As Date

Pour la conversion des String en Date :

Code :

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

1
2
 
strSearch = CDate(Worksheets("Recup1").Cells(157, "A"))

Normalement, la date devrait être trouvée si elle existe.

Hervé.

Bonsoir mercatog (et tous le forum bien sûr !),

Désolé, je n'ai pas rafraîchi :-(

Hervé.

[nono63]

RE,

Merci à vous tous, ça fonctionne à merveille !!!
Bon sang que l'on peut s'embêter pour des conn*** !
Bien vu aussi pour la colonne "A" au lieu de "B"
(En fait j'ai ressorti les feuilles d'un classeur plus gros et je n'ai pas fait attention qu'il y avait un décalage !!)

Je retiendrai la leçon pour cette satanée fonction !!

Encore merci !!

@+

Nono