J'ai eu une erreure a l'ouverture, probleme de version selon une iA et impossible de fermer excel. Voici la proosition qui fonctionne : *** Bloc de remplissage de U8:AA13 avec gestion d'erreur ***
On Error Resume Next
ws_Home.Range("U8").Formula2R1C1 = "=SEQUENCE(6,7,R6C21-WEEKDAY(R6C21,2)+1,1)"
If Err.Number <> 0 Then
' Repli sur l’ancienne méthode pour les versions non compatibles
ws_Home.Range("U8:AA13").FormulaR1C1 = "=R6C21 + (ROW() - ROW(R8C21)) * 7 + (COLUMN() - COLUMN(R8C21)) - WEEKDAY(R6C21, 2) + 1"
Err.Clear
End If
On Error GoTo 0
' *** Fin du bloc ***
Merci pour cette info.
Content que dela fonctionne chez vous.
Cordialement,
Vincent