Rechercher une date dans un classeur Excel

Bonjour tout le monde,

Je souhaiterais retrouver une date dans mon fichier Excel.

je suis débutant en VBA. J'ai crée une macro, mais rien ne se passe quand je la mets en route.

je souhaite retrouver la date (de la cellule C6, de la feuille facturier) dans d'autres feuilles.

Pouvez-vous m'aider ?

Je vous joins le code que j'ai écrit.

Sub selectiondate()

Dim RechNom As String
Dim i As Byte, derlign As Long
Dim c As Range, trouve As Range

    RechNom = Sheets("Facturier").[C6]

    For i = 3 To 8

        derlign = Sheets(i).Range("E65536").End(xlUp).Row
        With Sheets(i).Range("E3:E" & derlign)
            Set c = .Find(RechNom, LookIn:=xlValues, LookAt:=xlWhole)

            If Not c Is Nothing Then
               trouve = c.Address

                Range("trouve").Select

            End If
         End With
    Next i

End Sub

Bonour,

le souci c'est que tu nous dis chercher une date, mais tu la stockes dans une variable String faite pour stocker du texte, donc d'un côté tu cherches par exemple "01/02/2003" alors que de l'autre côté tu as 01/02/2003, qui sont 2 valeurs différentes, soit de l'autre côté tes dates sont stockées au format texte et ça peut fonctionner, soit il faut déclarer RechNom en tant que variable Date et non String.

Merci beaucoup,

je n'avais pas pensé ça.

je vais le corriger.

Bonjour,

Ci-joint ton fichier corrigé.

Tu as une mauvaise déclaration de variable.

Par contre que comptes tu faire des sélections ? Car au final, si ta valeur est trouvée a i=4 tu la sélectionnes sur la feuille mais n'en fait rien et passe directement a i = 5, etc ... Donc à moins d'avoir des valeurs uniques par pages, je ne vois pas l'intérêt final ..

Bonne journée.

Bonjour,

Il n'y a en effet qu'une seule valeur à trouver.

Le but est d'intégrer après les ventes directement dans une caisse au jour trouvé.

Mais je n'arrivais pas à retrouver la date.