Numéro ligne variable

Résolu/Fermé

Numéro

a51432 Messages postés 37 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 20 octobre 2015 - 29 juil. 2015 à 10:05
a51432 Messages postés 37 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 20 octobre 2015 - 29 juil. 2015 à 11:34

Bonjour,

je dispose d'un fichier contenant des dates en colonne A. Je souhaite attribuer à une variable "p" une valeur égale au numéro de la ligne qui contient la date de la veille.

Pour cela j'ai essayé le code ci-dessous qui malheureusement ne fonctionne pas et me renvoit un message d'erreur lors de l'éxécution de ma macro.

Ajd = Now()
Ajd = Format(Now(), "dd/mm/yyyy")

p = 1

Do
    p = p + 1
Loop Until Sheets("Feuille").Cells(p, 1) = Ajd - 1

Auriez-vous une solution ?

A voir également:

Excel formule numéro de ligne variable
Aller à la ligne excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Formule excel si et - Guide
Formule excel moyenne - Guide
Formule excel - Guide

3 réponses

Réponse 1 / 3

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 29/07/2015 à 10:35

Bonjour,

Bon moi j'ai changé la méthode....

Voici le code :

Sub TEST()

Dim DL As Long, i As Long, p As Variant

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'A adapter, 1 étant la colonne de référence pour compter la dernière ligne.

For i = 1 To DL 'A adapter, 1 étant la ligne où commence le code.

If Range("A" & i) = DateAdd("d", -1, Date) Then
p = Rows(i).Row
End If
Next i

End Sub

a51432 Messages postés 37 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 20 octobre 2015 1
29 juil. 2015 à 11:16

Merci pour ta réactivité, le code fonctionne parfaitement !
Merci

Réponse 2 / 3

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
Modifié par ccm81 le 29/07/2015 à 10:47

Bonjour

Un exemple pour rechercher la date de la veille en colonne A

Public Sub OK()
Dim obj As Object, liobj As Long
Set obj = Columns("A").Find(Date - 1, , , xlWhole)
If obj Is Nothing Then
  MsgBox "date non trouvée"
Else
  liobj = obj.Row
  MsgBox liobj
End If
End Sub

Cdlmnt

a51432 Messages postés 37 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 20 octobre 2015 1
29 juil. 2015 à 11:18

Merci pour ta réactivité.
Malheureusement, le code ne fonctionne pas. Il me renvoit "date non trouvée" alors que la date est bien présente dans mon fichier.
obj est égale à 0.
Si j'enlève le Is Nothing, un message d'erreur apparaît :
"Erreur d'éxécution '91' Variable objet ou variable de bloc with non définie"

Réponse 3 / 3

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
Modifié par ccm81 le 29/07/2015 à 11:26

Bonjour

es tu sûr que tes dates sont bien numériques dans ta feuille ? A moins qu'elles contiennent à la fois la date et l'heure ?
mon exemple
http://www.cjoint.com/c/EGDjx5E3sVR

Cdlmnt

a51432 Messages postés 37 Date d'inscription lundi 13 juillet 2015 Statut Membre Dernière intervention 20 octobre 2015 1
29 juil. 2015 à 11:34

Je ne peux pas télécharger le fichier sur mon lieu de travail. Les dates sont au format date sans l'heure. Par exemple, la date d'hier est 28/07/2015

Discussions similaires

comment savoir si mon numero est bloque?

Que signifie "Correspondant occupé" sur un iPhone ?

je voudrais simplement un numéro de tel pour payer ma facture

Que veut dire "correspondant occupé" lors d'un appel ?

Vérification CNI

Remplacer le numéro de ligne d'une cellule par une variable