Celedaaa! Elle st pas bonne ta formule, Celeda
hmy:
Si le jour est sup à mardi, on obtient le mercredi sem en cours.
Je l'ai donc rectifiée comme suit:
ActiveCell.NumberFormat = '0' pour ceux qui ont des pb de format
ActiveCell.FormulaR1C1 = _
'=IF(WEEKDAY(RC[-1],2)>2,RC[-1]-MOD(RC[-1]-4,7)-7,RC[-1]-MOD(RC[-1]-4,7))'
Pour les pb de format, je vous conseille d'essayer de mettre le format '0' avant de rentrer la formule.
et on peut rajouter:
ActiveCell.NumberFormat = 'dddd dd mmmm'
pour avoir un format de date (si on ne doit pas faire de tri après, sinon on tri, puis on met ce format pour éviter des erreurs éventuelles (ça arrive. si, si! je l'ai constaté. pourquoi?, mystère!))
A+