Copiez et collez le code suivant dans le module:
Alors que Summary_Date_Col lt; = "JE"
Pour Row_No = 11 à 13Summary_Sheet.Range (Summary_Date_Col & Row_No) .Value = ""
Suivant Row_No
Summary_Date_Col = Chr (Asc (Summary_Date_Col) + 1)
Wend
Si vous prévoyez d'utiliser la variable dans une autre partie de votre code, couper et coller ce code à la place:
Alors que Work_Log.Range (c_project & Row_No) .Value lt; gt; ""
Duration_Cell = c_Duration & Row_NoDay_Cell = C_DATE & Row_No
Select Case Weekday (Work_Log.Range (Day_Cell) .Value)