VBA : Retourner une date limite

Bonjour à tous,

Je dispose d'un fichier sur lequel je dois renseigner les dates à laquelle sont faites N tâches (identifiées par des numéros) et chaque tâche devra être reproduite périodiquement ainsi pour chaque tâche (ou numéro) j'aurai plus ou moins de dates succesives.

J'aimerai donc programmer sous VBA, un code qui me retourne la dernière date écrite + 90 jours (étant ma date limite ) sur chaque ligne. Pouvez-vous m'aider pour ça?

Voici mon fichier en pièce jointe. Et mon code ici même :

Private Sub CommandButton1_Click()
Dim I As Integer
Dim J As Integer
Dim Dercolo As Long

ThisWorkbook.Sheets("Date").Cells(1, 2) = Now() 'definir date du jour'

For I = 2 To 101 'Boucle pour balayer le fichier horizontalement'

Dercolo = ThisWorkbook.Sheets("1").Range("IV1").End(xlToLeft).Column

ThisWorkbook.Sheets("1").Cells(I, 2) = CDate(ThisWorkbook.Sheets("1").Cells(I, Dercolo) + 90)

ThisWorkbook.Sheets("1").Cells(I, 3) = CDate(ThisWorkbook.Sheets("Date").Cells(I, 2) - ThisWorkbook.Sheets("1").Cells(1, 2))

Next

End Sub

Merci d'avance.

Personne pour m'aider? Je bloque totalement

Bonjour,

à voir si cela te convient

A+

Super ! Un grand merci