Sujet Précédent Sujet Suivant

Format Date Comparaison

Résolu/Fermé
Mathilde - Modifié par pijaku le 11/08/2015 à 10:30
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 11 août 2015 à 11:25
Bonjour,

je voulais savoir s'il était possible de comparer deux dates du type "mmmm yyyy".
J'ai fais une macro qui consiste à écrire "prévision" quand la date est supérieure à la date d'aujourd'hui et sinon écrire "Réel".
voici mon bout de code 

Sub ColDate()

    'Compte le nombre de mois entre la date de début et la date de fin
   Sheets("Inputs012").Activate
   Dat1 = Range("D2")
   Dat2 = Range("E2")
   Nbre_mois = (Year(Dat2) - Year(Dat1)) * 12 + Month(Dat2) - Month(Dat1)
   If Day(Dat2) - Day(Dat1) <> 0 Then
    Nbre_mois = Nbre_mois + 1
   End If
   Annee = Year(Range("D2").Value)
   Sheets("Feuil1").Activate
   Range("A1") = Format(Date, "mmmm yyyy")

      For c = 2 To Nbre_mois + 1
         Cells(2, c).Value = DateSerial(Annee, c, 1)
         Cells(2, c).Value = Format(Cells(2, c).Value, "mmmm yyyy")
      Next 
      
    ' Précise si c'est des prévisions ou du réel
    Sheets("Feuil1").Activate
      For c = 2 To Nbre_mois + 1
            If Cells(2, c).Value > Cells(1, 1).Value Then
                Cells(1, c).Value = "Prévision"
            Else: Cells(1, c).Value = "Réel"
            End If
      Next c
        
End Sub



Quand je fais tourner cette macro, elle m'affiche réel que pour le mois d'août. Par exemple j'ai février 2013, elle m'affiche prévision mais pour août 2013 elle m'affiche Réel! Quelq'un à une idée de comment je dois procéder?
Merci d'avance, bonne journée!

2 réponses

Réponse 1 / 2
Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 303
11 août 2015 à 10:33
Bonjour,

Fichier excel je suppose.

Plutôt qu'une macro une formule type =SI() serait plus facile à mettre en oeuvre.
0
Mathilde
11 août 2015 à 10:41
Bonjour,

en faite dans "A1" je mets la date d'aujourd'hui. Ensuite j'ai fait une macro qui va prendre dans un autre fichier une date de début et une date de fin et par la suite, cette macro va afficher tous les mois de la date du début jusuq'à la date de fin sur ma ligne 2. Par la suite, donc, j'aimerai comparer toutes ces dates avec la date d'aujourd'hui. Et donc écrire soit prévision ou Réel. Je voulais faire par macro parce que mes dates de début et de fin peuvent changer donc du coup le nombre de dates sur ma ligne 2 n'est pas fixe aussi. Je sais pas si claire ou pas.
0
Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 303
11 août 2015 à 10:47
Si j'ai bien compris
une fois la macro lancée, les dates de début et de fin sont copiées sur la ligne 2.
Mais vous voulez écrire Prévision ou Réel où ?
0

Discussions similaires

Dates capricieuses
Viking58 -
Gyrus -

12 réponses
Convertir une date en chaîne de caractère
lilou -
liloutte5 -

15 réponses
Comment savoir la date d'un site?
Mots croisés -
Mots croisés -

6 réponses
Saison 3 de Angel's friends
Neily -
Raf -

46 réponses
Enlever la date sur les photos - WB560
FOGGIA2010 -
transat -

5 réponses
Retrouver une personne sur Facebook sans rien connaître d'elle?
Teob -
phenetas -

15 réponses