Rajout colonne avec décallage de mois spécifique

Bonjour à tous,

Je souhaiterais rajouter dans la colonne B les mois avec un décalage un peu spécifique.

Tous les mois sont M+2 sauf pour juin, juillet, aout, septembre.

Exemple :

Colonne A Colonne B

Janvier Mars

Février Avril

Mars Mai

Avril Juin

Mai Juillet

Juin Octobre

Juillet Octobre

Aout Novembre

Septembre Novembre

Octobre Décembre

Novembre Janvier

Décembre Février

J'insère un fichier en PJ pour plus de compréhension.

En vous remerciant par avance de l'aide apportée.

Cordialement.

Bonjour

dyscus a écrit :

Tous les mois sont M+2 sauf pour juin, juillet, aout, septembre.

Septembre à bien M+2

dyscus a écrit :

Septembre Novembre

=MOIS.DECALER(A2;2+(MOIS(A2)=6)*2+(OU(MOIS(A2)=7;MOIS(A2)=8))*1)

Amicalement

Nad

Bonjour,

Bonjour Nad,

Proposition avec une fonction personnalisée.

Cdlt.

Option Explicit
Public Function Decaler_mois(D)

    If Not IsDate(D) Or D = vbNullString Or D = 0 Then
        Decaler_mois = "Date non valide"
        Exit Function
    End If

    Select Case Month(D)
        Case 6
            Decaler_mois = DateAdd("m", 4, D)
        Case 7 To 8
            Decaler_mois = DateAdd("m", 3, D)
        Case Else
            Decaler_mois = DateAdd("m", 2, D)
    End Select

End Function

Bonjour à tous les deux et merci pour vos participations.

En ce qui concerne la proposition de Nad, je l'ai reprise dans le fichier, mais j'ai une erreur valeur en début de tableau, je comprends pas pourquoi puisqu'il est correct part ailleurs. Je le joint en PJ.

En ce qui concerne la proposition de Jean-Eric, j'ai essayé de créer la macro, mais je ne sais pas quelle manip faire à l'issue de la création pour faire apparaitre les mois en décalé(je sais lancer une macro en manuel).

En fait je sais même pas si au final je vais pouvoir utiliser une rechercheV pour faire une correspondance dans la liste déroulante en case I18.

J'ai rajouté sur la droite le champ effectuées en ou le mois de la colonne A peut être choisi et en dessous le résultat de la colonne B doit apparaitre au cas ou si vous aviez une idée plus pertinente que mon rechercheV.

Veuillez m'excuser pour ces lacunes.

Cordialement.

Correctif, j'y suis parvenu avec le rechercheV , mais j'ai toujours l'erreur valeur dans la case B4

Re,

Voir fichier.

Cdlt.

Merci bien pour vos participations.

Cela fonctionne.

Bonne journée à vous.