Comparer deux dates en lettre

Bonjour,
Ceci va être un poste rapide puisque je veux faire quelque chose de tout simple mais je n'ai pas trouvé comment sur les différents forums (je cherche peut etre mal)

Je veux juste faire un

Code:

---

If Mois1 < Mois2 then

---

Sachant que les mois sont écrit en lettre, soit

Code:

---

if Janvier < Février then

---

Merci pour votre aide
Julien

Bonjour,

Je ne sais pas dans quel contexte tu as cette problématique mais ce n'est pas possible en lettres.
Peux-tu détailler un peu ton soucis ?

Cordialement,

bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function MoisInteger(M As String) As Integer Dim MS(), I As Integer MS = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre") For I = 1 To 12 If UCase(M) = UCase(MS(I)) Then MoisInteger = I: Exit Function Next End Function Sub Test() Dim M1 As Integer, M2 As Integer M1 = MoisInteger("Février") M2 = MoisInteger("Mars") If M1 < M2 Then MsgBox "Ok" End Sub

---

Bonjour,

ou bien :

Code:

---

1 2 3

M1 = "Février" M2 = "Mars" If DateValue("01 " & M1 & " 2015") < DateValue("01 " & M2 & " 2015") Then MsgBox "Ok"

---

eric

Bonjour,

Ou tu te convertis à VB.net et tu utilises un type Enum

Re,

Citation:

---

Ou tu te convertis à VB.net et tu utilises un type Enum

---

Pas bête, mais excel connais Enum
eric

Enum affecte des variables

Code:

---

1 2 3 4 5

enum mois Janvier=1 Février =2 End enum M1="jenvier"

---

enum je vois pas!
Alors que ma fonction retourne le numéro du mois!

Bonjour
comme te l'a fair remarquer Durupt exel est largement pourvu d'outils de gestion de date

apres comparer 2 date avec le mois en lettre n'est pas un soucis excel l'integre pas la peine de chercher le format numerique

maintenant si tu y tiens au format numeric il y a fromat et month
qui peuvent de donner le mois en numeric

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() moislettre = "janvier" moisnumeric = Format("01/" & moislettre & "/2015", "mm") MsgBox moisnumeric End Sub Sub test2() moislettre = "janvier" moisnumeric = Month("01/" & moislettre & "/2015") MsgBox moisnumeric End Sub

---

Salut, comme signalé par Clément voir : VBA : Énumération

Bonjour,
Ici il n'est pas question d'énumérer des constantes, mais de trouver le numéro du mois a partir d'un string!

Enum ne résout rien!

Moi je préfère utiliser un array pour garder la métrise de ma langue, mais comme l'ont dit eriiic et Patrick on peut reconstitué une date

Edite: message privé de kiki29:

Citation:

---

Envoyé par kiki29

Salut, maitrise ton orthographe déjà après on en reparlera.

---

je te remercie pour l'information c'est hyper gentil de ta part!

je vais donc arrêter de m'exprimé sur ce forum et me consacré à mon alphabétisation!

je ne pense pas qu'on en reparlera car je quitte définitivement. je ne vient pas donner des leçon mais apporter de l'aide avec le peu de connaissance que je dispose.

encore merci pour m'avoir ouvert les yeux!

pour info maitrise prend un accent circonflexe! maîtrise

Bonjour,

Perso je trouve ça un peu dommage.
Il y a plein de domaines d'excel que je ne maîtrise pas du tout et je trouve que tu fais partie de ceux qui apportent beaucoup et qui ouvrent d'autres horizons.
Ben oui l'orthographe n'est pas ton fort. Ben tant pis, on relit si besoin, pareil que pour certains codes pour essayer de comprendre et pourtant je fais partie de ceux qui y sont sensible.
Celui qui ne veut pas zappe le sujet épicétou (y'a une faute ?)
Si tu faisais ton perfectionnement ici ? On te corrige une faute par mois si tu veux ;-)

eric

Citation:

---

Envoyé par eriiic

Re,

Pas bête, mais excel connais Enum
eric

---

Donc, il n'y a pas d'âge pour apprendre. :D