Discussion :

[fred bx]

Bonjour,

Dans un formulaire de saisie des commandes, l'utilisateur doit entrer la date de la commande dans un textbox au format (jj/mm/aaaa).
Il doit également choisir dans un combobox la date et l'année de la commande (ex: decembre 2007). La combobox est alimenteé par le nom des onglets d'un classeur excel.

Je demande donc 2 fois la date à l'utilisateur pour 2 raisons :
- la date saisie dans le textbox (ex: 12/12/2007) alimente une feuille
- la date saisie dans le combobox me permet de sélection la bonne feuille (ex: decembre 2007)

Est-il possible de comparer le mois et l'année du textbox et du combobox pour éviter une erreur de saisie de l'utilisateur ?

Merci d'avance...

[Singular]

Fonctions Year(TextBox1.Value) et Month(TextBox1.Value).

[fred bx]

Merci pour les indications

Je recupere bien le mois et l'année de la textbox

Code :

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

1
2
annee = Year(UserForm1.TextBox1.Value)
MsgBox (annee)

Cependant le combobox contient une chaîne de caractère (nom des onglets du classeur) et non pas une date.

textbox = "12/12/2007" -> date
combobox= "decembre 2007" -> string

Comment vérifier que 12 corespond bien à decembre ?

J'éspère être clair dans mes explications

Merci

[sash6]

avec la fonction trim tu peux extraire tout ce qui est à gauche de l'année et dire que décembre=12, novembre=11, etc.
En revanche, si il y a la date du jour là t'es pas dans la m...e

[LeForestier]

Bonjour,
J'ignore comment est rempli ton Combo, mais en comparant

Code :

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

1
2
3
4
5
6
7
 
dim Y as Integer, X as Integer
X = comboBox1(Listindex) 'adapter au contexte
Y = val(mid(TextBox1.Text,4,2))
If X <> Y then
    'Pas de concordance
end if

A+

[fred bx]

Bonjour

Merci pour vos conseils

voici mon code qui semble fonctionner:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
a = Month(UserForm1.TextBox1) & " " & Year(UserForm1.TextBox1)
b = "decembre 2007"
 
If a = "12 2007" Then
a = b
End If
If a = UserForm1.ComboBox2.Text Then
MsgBox "oui"
Else
MsgBox "non"
End If

Bonne journée