Ajouter 1 mois à une date

Bonjour,

je me permets car j'ai un soucis pour ajouter 1 mois à une date dans plusieurs lignes

Exemple date de la cellule : 01/01/2022 devient 01/02/2022

le soucis est le code Month(Feuil2.Cells(i, 26).Value) + 1 qui n'est pas correcte que je n'arrive pas à recrifier

merci pour vos aides précieuses

Sub ajout()
Dim i As Long

For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Feuil2.Cells(i, 53).Value = "NON CADRE" And Feuil2.Cells(i, 48).Value <> "" Then
Feuil2.Cells(i, 50).Value = Month(Feuil2.Cells(i, 48).Value) + 1
End If
Next
End sub

Bonjour Ghazi, bonjour le forum,

Peut-être comme ça :

Sub ajout()
Dim i As Long

For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    If Feuil2.Cells(i, 53).Value = "NON CADRE" And Feuil2.Cells(i, 48).Value <> "" Then
        Feuil2.Cells(i, 50).Value = DateSerial(Year(Feuil2.Cells(i, 48).Value), Month(Feuil2.Cells(i, 48).Value) + 1, Day(Feuil2.Cells(i, 48).Value))
    End If
Next
End Sub

Bonjour,

Bonjour Robert

Autre solution:

Feuil2.Cells(i, 50).Value = CDate(Application.EDate(Feuil2.Cells(i, 48).Value, 1))

Bonne fin d'apm

Re,

il est Diiiingue ce CousinHub !... Je ne connaissais même pas EDate...

Re-,

Rien de bien Diiiingue, juste la traduction de la fonction "Mois.Decaler" de la feuille...

la réponse de tautheme est bonne ( soucis résolu)

par contre pour cousinhub n'est pas bonne ( exécution d'erreur 13)

merci tous les deux