Discussion :

[jnauche]

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 :

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

If Mois1 < Mois2 then

Sachant que les mois sont écrit en lettre, soit

Code :

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

if Janvier < Février then

Merci pour votre aide
Julien

[Gado2600]

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,

[Invité]

bonjour,

Code :

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

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

[eriiic]

Bonjour,

ou bien :

Code :

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

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

eric

[clementmarcotte]

Bonjour,

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

[eriiic]

Re,

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

Pas bête, mais excel connais Enum
eric