récupéré le numéro de la ligne d'une cellule Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
juju28561
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 août 2017
Version d'Excel : 2013

Message par juju28561 » 11 août 2017, 15:25

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
l
leconatadroite
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 11 août 2017
Version d'Excel : 2013

Message par leconatadroite » 11 août 2017, 15:37

T'es bidon c'est tout
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'645
Appréciations reçues : 106
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 11 août 2017, 15:53

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é
j
juju28561
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 août 2017
Version d'Excel : 2013

Message par juju28561 » 11 août 2017, 15:57

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
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'462
Appréciations reçues : 207
Inscrit le : 13 juin 2016
Version d'Excel : 2013 FR 64 bits

Message par thev » 11 août 2017, 16:04

Bonjour,

D'après ton code Date_5 = Nothing , donc la propriété Date_5.row génère une erreur.
j
juju28561
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 11 août 2017
Version d'Excel : 2013

Message par juju28561 » 11 août 2017, 16:12

merci Andre13
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message