Selection a partir d'une variable cellule

Résolu/Fermé
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024 - Modifié par pijaku le 29/05/2015 à 14:27
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024 - 29 mai 2015 à 16:00
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



2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
29 mai 2015 à 15:19
Le fait que tu ne répondes pas sur tes anciens sujets (cf ICI) n'incite pas les bénévoles à t'aider...
0
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024
29 mai 2015 à 15:22
je suis désolé mais j'ai pas encore eu le temps de tester la macro qu'on m'a donné tout à l'heure.mais promis je répondrais dés que possible. je suis vraiment navré. je suis parfaitement conscient du travail formidable que vous faites
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
29 mai 2015 à 15:56
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
0
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024
29 mai 2015 à 16:00
Merci beaucoup!!!!
tgénial!!
très bonne journée à toute l'équipe de commentcamarche!!! :)
0