Récupéré le numéro de la ligne d'une cellule

Bonjour, j'ai besoin de votre aide

Dans une cellule (C1) j'ai la date du jour qui change tous le temps. J'ai fait un bout de code qui me permet de trouver cette date dans la colonne A (qui vas de A5 à A70). Une fois trouver la date j'ai encore fait un bout de code pour avoir la date du jour d'avant et la coller dans la feuille J-1.

Cependant je dois obtenir le numero de ligne de la date-1 (date du jour -1)

et j'ai une erreur qui me bloque qui es

Erreur 91 : Variable objet ou variable de bloc With non définie.

donc voici mon bout de code :

' On doit chercher la date grâce à la formule en dessous
Set celluleatrouverRan = Sheets("Data").Range("A5:A70").Find(what:=CDate(Sheets("Data").Range("C1").Value), LookAt:=xlWhole)
' Une fois la cellule trouvée (il se passe rien si elle est vide = ce qui est une erreur) autrement la cellule date sélectionne la date qui est la même que la cellule C1.
    If Not celluleatrouverRan Is Nothing Then

    Else

' La date des feuilles suivante sont égale à la date C1-1,2,3,4 et 5
        Sheets("J-5").Range("A1") = Sheets("Data").Range("C1") - 5
        Sheets("J-4").Range("A1") = Sheets("Data").Range("C1") - 4
        Sheets("J-3").Range("A1") = Sheets("Data").Range("C1") - 3
        Sheets("J-2").Range("A1") = Sheets("Data").Range("C1") - 2
        Sheets("J-1").Range("A1") = Sheets("Data").Range("C1") - 1

    End If

'''''''''''''''''''''''''''''''''''''' Variables pour J-5

' Onherche a copier les valeurs pour les mettre dans le tableau
' On doit chercher la date grâce à la formule en dessous
    Set Date_5 = Sheets("Data").Range("A5:A70").Find(what:=CDate(Sheets("J-5").Range("A1").Value), LookAt:=xlWhole)
' Une fois la cellule trouvée (il se passe rien si elle est vide = ce qui est une erreur) autrement la cellule date sélectionne la date qui est la même que la cellule A1.
    If Not Date_5 Is Nothing Then

    Else
'On copie la ligne de la date_5

    [b]Sheets("Data").Range("D1") = Date_5.Row[/b]
    X = Sheets("Data").Range("D1")

'On copie les valeurs dans la feuille J-5 Impasse du moulin
   Sheets("J-5").Range("B2:E2") = Sheets("Data").Range("D" & Sheets("Data").Range("D1").Value & ":G" & Sheets("Data").Range("D1").Value).Value
   'code pour la valeur du volume de refoulement
   Sheets("J-5").Range("N2") = Sheets("Data").Range("H" & Sheets("Data").Range("D1").Value).Value

    End If

T'es bidon c'est tout

Bonjour

regarde sur ta formule que tu as mis ici:

 <span style="font-weight: bold">Sheets("Data").Range("D1") = Date_5.Row</span>
Sheets("Data").Range("D1") = Date_5.Row

cordialement,

André

leconatadroite a écrit :

T'es bidon c'est tout

Mdr t'es trop con Max et travail un peu


leconatadroite a écrit :

T'es bidon c'est tout

Mdr t'es trop con Max et travail un peu


Andre13 a écrit :

Bonjour

regarde sur ta formule que tu as mis ici:

 <span style="font-weight: bold">Sheets("Data").Range("D1") = Date_5.Row</span>
Sheets("Data").Range("D1") = Date_5.Row

cordialement,

André

Oui je sais que c'est sur cette ligne mais je sais pas quoi mettre ou changer pour que cela fonctionne

Bonjour,

D'après ton code Date_5 = Nothing , donc la propriété Date_5.row génère une erreur.

merci Andre13

Rechercher des sujets similaires à "recupere numero ligne"