Numéro ligne variable Résolu

Question

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 = 1Do    p = p + 1Loop Until Sheets("Feuille").Cells(p, 1) = Ajd - 1

Auriez-vous une solution ?

Kuartz · Answer

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

ccm81 · Answer

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

ccm81 · Answer

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

Numéro ligne variable

3 réponses

Discussions similaires

Newsletters