Macro suppression
Bonjour, je recherche une macro avec pour objectif de supprimer un tableau en fonction de la date du jour -7 jours.
La plage de référence des dates : vas de C17 a jusqu'a l'infini de la ligne
Le tableau a effacer (se situe 2 ligne en dessous) commence a C20 et fait 5 lignes (s'entend jusqu'à la fin) lui aussi planning a l'année.
Mon algorithme devrait parcourir la plage de date, lorsqu'il trouve la date du jours il supprime le tableau du dessous avec 7 jours en moins.Lorsque la date du jours change alors on decale d'un jours la suppresion.J'ai commencer a écrire 2 mais je n'arrive pas a trouver la solution
Sub suppr_algo_tableau_abs()
Sheets(1).Select
colonne = 3
While Range(Cells(17, colonne)) <> Date 'je parcours ma plage de date
colonne = colonne + 1
Wend
Range(Cells(17, colonne)).Select 'une fois ma date trouver je la selectionne
Range(Cel.Offset(4, 14), Cel.Offset(8, 14)).ClearContents ' par rapport a la date trouver je supprime la tableau en dessous-7jours
End Sub
SOIT le deuxieme
Sub suppri_tableauabs()
Dim Cel As Range
Maplage = Range([C17], [AE17]).Value
For Each Cel In Range([C16], [AE17])
If Int(Cel) <= Int(Date - 7) Then _
Range(Cel.Offset(4, 14), Cel.Offset(8, 14)).ClearContents
end if
end sub
Merci d'avance si quelqu'un peu d'aider.
par exemple si la si aujourd'hui nous sommes le 07/08/2022 il devra supprimer le tableau jaune
Re,
J'ai répondu à un post précédent mais là je ne comprends pas pourquoi tu te bornes à envoyer des images et pas le fichier excel. On n'est pas sur un forum PhotoChope ici !...