Discussion :

[FCL31]

Un problème simple pour vous mais pas pour moi (je pense)

J'ai une colonne "J" dans laquelle il y a des dates.
Je voudrais simplement mettre dans la colonne "K" les dates de la colonne "J" + 1 an

Il faut savoir que en certaines date de la colonnes "J", il y a des cellules vide donc je voudrais quelles soit vide dans la colonnes "K"

Pour peut être mieux comprendre, en pièce joint se que j'ai et se que je voudrais

[jfontaine]

Bonjour,

Ci dessous une solution

Code :

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

=SI(B3<>"";DATE(ANNEE(B3)+1;MOIS(B3);JOUR(B3));"")

Bon courage

[FCL31]

J'ai fait

Code :

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

1
2
3
For i = 2 To WS.Range("J60000").End(xlUp).Row
        Range ("K" & i).Value = SI(("J" & i) <> "";DATE(ANNEE("J" & i) + 1;MOIS("J" & i);JOUR("J" & i));"")
Next i

Mais sa marche pas
Sa me met :
Erreur de compilation
Attendu : Séparateur de liste ou )
au niveau du ";"

[jfontaine]

Pour mettre une formule dans une cellule il faut utiliser FormulaLocal et non Value

Code :

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

Range("C3").FormulaLocal = "=SI(B3<>"""";DATE(ANNEE(B3)+1;MOIS(B3);JOUR(B3));"""")"

Si tu veux mettre a jour la cellule avec une macro tu peux aussi le faire sans formule avec l'instruction DateAdd

Code :

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

Range("D3").Value = DateAdd("y", 1, Range("B3").Text)

[FCL31]

Je ne comprend pas, je essayé et sa marche pas

J'ai aussi essayé avec DateSerial mais marche toujours pas

[Jean-Philippe André]

salut,
tu souhaites faire la mise à jour "juste une fois" ou bien est-ce récurrent ?

Une boucle comme celle que jfontaine propose devriat faire l'affaire :

Code :

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

Range("D3").Value = DateAdd("y", 1, Cdate(Range("B3").Text))

[jfontaine]

J'ai appliqué a ton code

Code :

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

1
2
3
4
 
For i = 2 To WS.Range("J60000").End(xlUp).Row
        Range ("K" & i).Value =  DateAdd("y", 1, Range("J" & i).Text)
Next i