modif macro

[Mitch]

Bonjour j'ai cette macro qui supprime la ligne une fois la date passée de 15 jours je voudrais quelle ne supprime que les cellules A,B,C,D,E,F,G sans modifier le reste

Application.ScreenUpdating = False 'accélère l'éxecution et évite le scintillement de l'écran
Dim c As Date, i As Integer, imax As Integer 'déclarations
With Sheets("planning")
imax = .Cells(Rows.Count, 2).End(xlUp).Row 'numéro de la dernière ligne saisie
For i = imax To 2 Step -1 'boucle en partant du bas
c = CDate(.Cells(i, 5)) 'date de la ligne en cours
If c + 15 < Now Then .Rows(i).EntireRow.Delete 'suppression de la ligne complète
Next i

 

[Efgé]

Re : modif macro

Bonjour Mitch,

'Pour vider le contenu des cellules
If c + 15 < Now Then .Range(.Cells(i, 1), .Cells(i, 7)).ClearContents
'Pour supprimer les cellules
If c + 15 < Now Then .Range(.Cells(i, 1), .Cells(i, 7)).Delete Shift:=xlUp

Cordialement

 

[Mitch]

Re : modif macro

Merci Efgé j'essaie de suite