Supprimer ligne avec date d'aujourd'hui

Question

Bonjour, 

J'aimerais pouvoir supprimer les lignes qui contiennent la date d'aujourd'hui dans une certaine colonne,

voici mon code

Sub Macro1()
 
 Dim i As Integer
 Dim today As Date
 today = Date
 For i = 1 To 256
 If Cells(i, 1) = "=today()" Then
 Rows(i).Delete
 i = i - 1
 End If
  Next
 End Sub

cs_casy · Answer

essaye plutot avec 

If Cells(i, 1) =   today Then

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

jrivet · Answer

Salut,
J'aurais plutot essayer, 

If Cells(i, 1).Value = Date Then 

NOTE: pour tes questions FUTURES pense à utiliser la section dédié au VBA:
[infomsg.aspx Thèmes]

 / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBA_244.aspx VBA]

@+: Ju£i?n
Pensez: Réponse acceptée

PCPT · Answer

(salut à tous)

Vous êtiez ici : [infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_DIVERS_220.aspx Divers] / [infomsgt_DEBUTANTS_226.aspx Débutants] / Supprimer ligne avec date d'aujourd'hui

cs_MPi · Answer

Et moi j'essaierais comme ceci

Sub Macro1()
    Dim I As Long
    
    For I = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If CLng(Range("A" & I)) = CLng(Date) Then
            Rows(I).Delete
        End If
    Next
 End Sub

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Supprimer ligne avec date d'aujourd'hui

4 réponses

Votre réponse

Discussions similaires