Code VBA (très court) qui rame (fichier court)

Bonjour,

J'ai un fichier excel sur lequel j'ai apposé un code qui permet de toujours mettre à jour la "deadline actualisée" par rapport à la "deadline dénonciation". Ce code devrait pouvoir une année si l'actualisée est inférieur à la dénonciation

Le soucis, c'est que lorsque je lance le code, Excel se fige/bloque et je suis obligé de forcer l'arrêt à chaque tentative

Sub DateEx()

 maDate = Range("E2")

    ajout = Range("C2")

    Do While Range("E2").Value <= Range("D2").Value

If Range("E2").Value <= Range("D2").Value Then
Range("E2").Value = DateAdd("m", ajout, maDate)

End If

Loop

End Sub

Pourriez-vous m'aider svp?

Merci

Bonjour,

Tu n'actualises pas la valeur de la variable madate une fois la mise à jour effectuée. Donc lors de l'itération suivante de la boucle, il reste sur les mêmes valeurs.

Sub DateEx()

 maDate = Range("E2")

    ajout = Range("C2")

    Do While Range("E2").Value <= Range("D2").Value

If Range("E2").Value <= Range("D2").Value Then
Range("E2").Value = DateAdd("m", ajout, maDate)
maDate = Range("E2")

End If

Loop

End Sub

bonjour,

edit : Salut Fred

voici ton code corrigé

Sub DateEx()
    ajout = Range("C2")
    Do While Range("E2").Value <= Range("D2").Value
        Range("E2").Value = DateAdd("m", ajout, Range("E2").Value)
    Loop
End Sub

mais il est possible de se passer de faire une boucle.

Bonjour à vous 2,

Merci beaucoup ! Je me suis en effet précipité et je suis resté bloquer sur mon code..

Au début, il sera nécessaire de mettre la boucle parce qu'il y a des dates de 2014

Merci à vous encore une fois, les 2 codes marchent

Bonne journée à vous