VBA - Calcul date

Bonjour à tous,

Dans ma colonne H, que j'ai renommée "DateOK", j'ai des dates.
A partir de ces dates, je voudrais insérer dans ma colonne I que j'ai renommée "DateFin", une nouvelle date calculée à partir de DateOK. DateFin = DateOK + 2 ans

Il me semble que je dois utiliser la formule DateAdd("yyyy", 2, DateOK) mais ça ne fonctionne pas.

Etant novice dans VBA je ne sais pas trop comment déclarer mes variables (entre autre !)... :calim2:

J'espère que mon explication est à peu près claire ;)

Merci d'avance pour votre aide !!

Salut,

un peu de lecture
http://mhubiche.developpez.com/vba/f...tetime/#LIII-D

Il nous manque ton code actuel pour essayer de comprendre exactement ce qu'il en est
:cristal:

Bonsoir
Voir ça : peut être c'est intéressent
https://support.office.com/fr-fr/art...1-757345f7e926
Pour voir une année En colonne I et à partir de ton colonne H:

Citation:

---

DATE(ANNEE(H2)+2;MOIS(H2);JOUR(H2))

---

Pour avoir un code VBA tu as l'enregistreur Auto qui donne ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub datefin() Dim i As Long With Sheets("feuil1") ' à adapter si nécessaire i = .Range("H" & Rows.Count).End(xlUp).Row Range("I2").Select ' si le code commence à partir de I2 si non à adapter ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-1])+1,MONTH(RC[-1]),DAY(RC[-1]))" Range("I2").Select Selection.AutoFill Destination:=Range("I2:I" & i), Type:=xlFillDefault End With End Sub

---

Bonne continuation

Bonjour
Pourquoi VBA ?
cette formule en B1

Code:

---

=DATE(ANNEE(A1)+2;MOIS(A1);JOUR(A1))

---

y mettre la date de A1 + 2 ans
Tirer cette formule vers le bas et voilà tout.

Citation:

---

Envoyé par Jean-Philippe André

Salut,

un peu de lecture
http://mhubiche.developpez.com/vba/f...tetime/#LIII-D

Il nous manque ton code actuel pour essayer de comprendre exactement ce qu'il en est
:cristal:

---

Bonjour,

Merci pour le lien mais je k'ai déjà parcouru sans succès !

Voici mon code actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub DateFin()   Dim DateOK As Range Dim DateFin As Range   Set DateOK = Range("DateLVDok") Set DateFin = Range("DateFinLVDok")   Nb = DateOK.Rows.Count   For n = 1 To Nb   If Not IsEmpty(DateOK(n, 1)) Then DateFin(n, 1) = DateAdd("yyyy", 2, DateOK) End If   Next n   End Sub

---

Bonjour,

Merci pour ton retour, pour ce qui est de la formule XL, en effet je la connait mais elle ne me convient pas ! C'est pour beaucoup de lignes donc c'est un peu trop lourd et je voudrais associer ma macro a un bouton qui me les recalcule automatiquement.

Pour ce qui est de ton code j'ai essayé mais ça ne marche pas, dans quasiment toutes les cases de ma colonne XL me met l'erreur #VALEUR!

Bonjour
et ma réponse ci haut ?? qu'est ce que ça donne??