erreur macro

[Mitch]

Bonjour , a l'ouverture de mon fichier j'ai cette erreur ( la methode delete de la classe range a echoue ) voici le bout de code posant probleme
je demande que si la date en colonne E est passe de 15 jours , les cellules A,B,C,D,E,F,G sont supprime

With Sheets("planning")
imax = .Cells(Rows.Count, 1).End(xlUp).Row 'numéro de la dernière ligne saisie
For i = imax To 3 Step -1 'boucle en partant du bas
c = CDate(.Cells(i, 5)) 'date de la ligne en cours
'Pour supprimer les cellules
If c + 15 < Now Then .Range(.Cells(i, 1), .Cells(i, 7)).Delete Shift:=xlUp
Next i
End With

 

[Pierrot93]

Re : erreur macro

Bonjour,

A priori, code fonctionnel chez moi sous 2003... tu n'aurais pas des cellules fusionnées des fois ???

bonne journée
@+

 

[Staple1600]

Re : erreur macro

Bonjour à tous

A tout hasard, personnellement je rajouterai ceci

Dim i as Long, imax as Long ' en début de ton module

 

[Mitch]

Re : erreur macro

Bonjour Pierrot93 j'ai des cellules fusionnées et protégées mis sur le reste de mon tableau tu pense que c'est ça

 

[Pierrot93]

Re : erreur macro

Re,

Bonjour Pierrot93 j'ai des cellules fusionnées et protégées mis sur le reste de mon tableau tu pense que c'est ça

oui, tout à fait... pas top les cellules fusionnées et vba... quand à la protection, il faut déprotéger en début de procédure et reprotéger à la fin...

 

[Mitch]

Re : erreur macro

Merci je vais rectifier tous ça