Discussion :

[mathou mata]

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 !)...

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

Merci d'avance pour votre aide !!

[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

[BENNASR]

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:

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

Bonjour
Pourquoi VBA ?
cette formule en B1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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.

[mathou mata]

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

Bonjour,

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

Voici mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mathou mata]

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!

[BENNASR]

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