Déterminer les mois suivants sur VBA
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:
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 :P
Bonne soirée,
