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