Ajouter des semaines à une date

Bonjour je souhaite ajouter un nombre de semaines à une date et reporter le résultat en dates dans une autre cellule. Mais cela ne fonctionne pas.

Voici mon code

Sub Test()

Dim Duree As Integer
Dim DebutDate As Date, FinDate As Date

Duree = Range("O10")
If IsDate(Range("U10")) Then
Range("V10") = FinDate = DateAdd("ww", Duree, DebutDate)

 End Sub

Merci par avance de votre aide.

Cordialement

Bonjour,

Tu déclares des variables que tu n'utilises pas !

DébutDate et FinDate ne sont pas initialisées, donc quand tu les utilises,leur valeur est 0.

Tu mets un If, l'instruction n'étant pas sur une seule ligne, il manque une End If (erreur !)

Une fois complétée ce End If, si U10 non reconnu comme date, tu n'auras rien bien sûr,

mais si reconnu tu devrais avoir FAUX dans V10 ! (à moins que VBA renâcle...)

Car avec tes 2 = sur la ligne : le premier indique que l'expression qui suit définit la valeur que doit prendre V10,

mais l'expression incluant un =, si elle est évaluée le sera comme valeur boolénne, soit VRAI ou FAUX que FinDate (=0) soit égal à DébutDate (=0) augmenté de Durée jours *7. Si Durée = 0, c'est VRAI, sinon c'est FAUX.

Cordialement.

Bonjour,

Oui je confirme je suis allé un peu vite sur celle la.

En modifiant mon code, voilà ce à quoi j'arrive.

Sub Test()

Dim Duree As Integer
Dim DebutDate As Date, FinDate As Date

DebutDate = Range("U10")
FinDate = Range("V10")
Duree = Range("O10")
If IsDate(Range("U10")) Then
FinDate = DateAdd("ww", Duree, DebutDate)

End If

 End Sub

Mais ca ne fonctionne toujours pas..

Qu'est-ce qui ne fonctionne pas ? Tu affectes FinDate, puis plus rien !

Si tu ne l'affiches pas dans un MsgBox ou si tu ne l'affectes pas à une cellule, tu ne verras rien !