Discussion :

[douwapp]

Bonjour à tous,
J'ai un petit problème sur ma macro VBA:

Sur mon fichier j'ai une première colonne avec des dates de commande au format DD/MM/YYYY. (colonne A)
J'ai ensuite une autre colonne avec uniquement le mois en chiffre correspondant à chacune de ces dates. (colonne B)
Je souhaite que sur une troisième colonne (colonne C) il soit indiqué M pour les cellules avec une date au mois actuel (novembre à ce jour) , M+1 pour les commandes du mois suivant (décembre), M+2 pour les commandes du mois de janvier et m+3 pour celles de février.

Afin de pouvoir utiliser ce fichier peu importe le mois, j'utilise sur vba la fonction month().

C'est à dire :

Code :

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

1
2
3
4
if Range("B2").value=Month(Date) Then 
Range("C2").value="M" Else
if Range("B2").value=Month(Date)+1 Then 
Range("C2").value="M+1" Else

Et ainsi de suite,

Pour M et M+1 aucun soucis, le problème apparait pour M+2 car la fonction month(Date)+2 donne comme résultat 13 et non 1.
J'ai cherché toute la journée sur les sites d'aides, je n'ai pas trouvé ma réponse.
Merci d'avance pour votre aide
Bonne soirée,

[Thumb down]

Bonsoir,
M2=month(DateSerial(year(date), month(date)+2,day(date)))

[douwapp]

Bonsoir Thumb down,
Merci bcp, je me suis cassé la tête pour rien!
Bonne soirée!