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

A voir également:

Selection a partir d'une variable cellule
Aller à la ligne dans une cellule excel - Guide
Recherche à partir d'une image - Guide
Trouver un nom à partir d'une adresse ✓ - Forum Loisirs / Divertissements
Excel si cellule contient partie texte ✓ - Forum Excel
Si cellule contient texte alors ✓ - Forum Excel

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
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...

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

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
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

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!!! :)

Discussions similaires

Annuaire portable gratuit à partir d'un nom

programme qui n'affiche pas le mot secret

"L'indice n'appartient à la sélection" + VBA

Comment trouver un numéro à partir du nom et prénom

Trouver un numero de portable a partir d'un nom svp

Discussions similaires

Newsletters