Discussion :

[Bemirdor]

Bonjour tout le monde, je travaille actuellement sur une base de données clients et j'aimerai, pour être conforme au RGPD, supprimer les clients qui sont dans le fichier depuis plus de 2 ans.

J'ai donc fait un code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 2 To derniereLigne2
    If Feuil1.Cells(3, 22) - Feuil1.Cells(i, 2) > 730 Then
        Sheets("Clients").Range("A" & i, "Q" & i).Delete shift:=xlUp
    End If
Next

La cellule(3,22) correspond à la cellule où j'ai mis une fonction AUJOURD'HUI pour avoir la date à l'instant t. Ma colonne 2 regroupant la date d'incorporation des clients est au format date.
Malgré ça, quand je le lance, j'ai un message d'erreur m'indiquant une incompatibilité de type (sur la ligne du IF).

Avez-vous une solution à mon problème ?
Merci d'avance.

Cordialement, Bemirdor.

[BENNASR]

bonjour
le principe de suppression est de la dernière ligne vers la première ligne STEP -1
Tu teste sur feuil1 et tu supprime onglet client !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Feuil1.Cells(3, 22) - Feuil1.Cells(i, 2) > 730 Then
        Sheets("Clients").Range("A" & i, "Q" & i).Delete shift:=xlUp
    End If

à tester (nb dans ce code la date d'aujourd'hui se trouve en A1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
derniereLigne2 = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For I = derniereLigne2 To 2 Step -1
    If Sheets("Feuil1").Cells(1, 1) - Sheets("Feuil1").Cells(I, 2) > 730 Then
        Sheets("Feuil1").Rows(I).Delete
    End If
Next I
End Sub

[Bemirdor]

Merci de cette réponse rapide. J'ai repris donc ton code en l'adaptant à mon classeur, mais le problème d'incompatibilité de type persiste...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = derniereLigne2 To 2 Step -1
    If Sheets("Clients").Cells(3, 22) - Sheets("Clients").Cells(i, 2) > 730 Then
        Sheets("Clients").Rows(i).Delete
    End If
Next i

Le problème vient encore de la ligne avec le IF.

[BENNASR]

un fichier exemple avec 10 lignes de données fictives et sans macro svp

[Bemirdor]

Pas de problème.

[BENNASR]

fais attention au nom des onglets , le code fonctionne

[Igloobel]

Merci de cette réponse rapide. J'ai repris donc ton code en l'adaptant à mon classeur, mais le problème d'incompatibilité de type persiste...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = derniereLigne2 To 2 Step -1
    If Sheets("Clients").Cells(3, 22) - Sheets("Clients").Cells(i, 2) > 730 Then
        Sheets("Clients").Rows(i).Delete
    End If
Next i

Le problème vient encore de la ligne avec le IF.

Peut-être avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets("Clients").Cells(3, 22).Value - Sheets("Clients").Cells(i, 2).Value > 730 Then

de plus c'est la colonne 23 où tu as ta date


et dans VBA "=AUJOUDHUI()" ==> c'est la instruction : Date