selection a partir d'une variable cellule Résolu/Fermé

Question

Bonjour, 

j'ai un code vba qui me permet de trouver dans la colonne (K) les dates qui anciennes de plus de un mois à partir de la date d'aujourd'hui.
je voudrais ensuite que s'il trouve cette valeur il me la supprime dans la colonne (k) mais aussi celle qui est juste a coté dans la colonne (j) et là ca coince!!
Voici mon code:
Workbooks("bv chilly-mazarin.xls").Activate
Dim ladate As Date
Dim plusun As Date
ladate = Format(Now, ("dd/mm/yyyy"))
plusun = DateAdd("m", -1, ladate)
Dim rng As Range, cell As Range
Set rng = Workbooks("feuil1.xls").Sheets("traductions").Range("k2:k65000")
For Each cell In rng
    If cell.Value <> "" Then
    Dim valdate As Date
    valdate = cell.Value
    If valdate < plusun Then
     Range(cell.Address, cell.Offset(0, -1).Address).Delete
       End If
        End If
        Next cell
    Workbooks("feuil1").Activate
    ActiveWorkbook.Save
Workbooks("TAGUEUR BV.xls").Activate


Configuration: Windows 7 / Internet Explorer 8.0

pijaku · Answer

Le fait que tu ne répondes pas sur tes anciens sujets (cf ICI) n'incite pas les bénévoles à t'aider...

pijaku · Answer

Pour ton souci présent, il convient de ne pas utiliser cell, il s'agit là d'un mot réservé par VBA. Remplace donc par Cel, par exemple.
 
Workbooks("bv chilly-mazarin.xls").Activate
Dim ladate As Date
Dim plusun As Date
ladate = Format(Now, ("dd/mm/yyyy"))
plusun = DateAdd("m", -1, ladate)
Dim rng As Range, Cel As Range
Set rng = Workbooks("feuil1.xls").Sheets("traductions").Range("k2:k65000")
For Each Cel In rng
    If Cel.Value <> "" Then
       Dim valdate As Date
       valdate = Cel.Value
       If valdate < plusun Then
          Range(Cel.Address, Cel.Offset(0, -1).Address).Delete
       End If
    End If
Next Cel
Workbooks("feuil1").Activate
ActiveWorkbook.Save
Workbooks("TAGUEUR BV.xls").Activate

Selection a partir d'une variable cellule

2 réponses