format inputbox

[Alex]

Bonjour a tous

J'aimerais pouvoir forcer l'utilisateur a rentré dans un inputbox
un des mois de l'année/ un espace / l'année en 4 chiffres
Comment dois je mis prendre ??

Merci d'avance

 

[Nkubi]

moi je suis qu'un débutant,

mais moi je ferais un userform avec bouton (ok, annuler) et je contrôlerais ce que l'utilisateur à rentrer au moment où il clique sur ok, dans la fonction Sub OK_Click().

Mais je dis ça seulement parce que je ne connais pas trop les inputbox.

 

[Arnaud]

salut,

a peu près de la même façon que sur ce post, il faut juste adapter un peu la vérif.

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=88722&t=88715

 

[Alex]

oki mais sur ce post il ce n'été que pour une date

la je c pas trop , il faut que je fasse une liste de tous les mois et si le premier mot avant l'espace appartient a cette liste alors c bon mais pour la liste elle se fait de quelle manière??

 

[Arnaud]

g pas tester donc c surement a adapter.
pour tester si le nom du mois existe :

Dim Machaine As String, NomMois As String
Dim MoisOk As Boolean
MoisOk = False
Machaine = InputBox(" ", "")
Do While Mid(Machaine, j, 1) <> "/"
j = j + 1
Loop
NomMois = Mid(Machaine, 1, j - 1)
For i = 1 To 12
If LCase(NomMois) = MonthName(i) Then MoisOk = True
Next i

 

[Arnaud]

comme ça c un poil plus propre.

Dim Machaine As String, NomMois As String
Dim MoisOk As Boolean
MoisOk = False
Machaine = InputBox(" ", "")
j = 1
Do While Mid(Machaine, j, 1) <> "/" And j < Len(Machaine)
j = j + 1
Loop
NomMois = Mid(Machaine, 1, j - 1)
For i = 1 To 12
If LCase(NomMois) = MonthName(i) Then MoisOk = True
Next i
if MoisOk = False then Msgbox " mois incorrect"
End Sub