Selection a partir d'une variable cellule
Résolu
Sormick
Messages postés
163
Statut
Membre
-
Sormick Messages postés 163 Statut Membre -
Sormick Messages postés 163 Statut Membre -
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:
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
2 réponses
-
Le fait que tu ne répondes pas sur tes anciens sujets (cf ICI) n'incite pas les bénévoles à t'aider...
-
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
