Discussion :

[xadep]

Bonjour,

J'ai une combobox qui comprend des données qui sont incrémentées via un rowsource.

Seulement, je souhaiterais que l'on ne puisse introduire dans le champs qu'une des valeur de la liste.

il s'agit de trois combobox qui me servent à déterminer le jour, le mois, l'année. je voudrais donc que l'on tape "03" pour le jour et nom "03/" par exemple, 03 étant une des valeurs de la liste.

J'epère m'être fait compris.

Merci de votre réponse

[jojo86]

Je pense avoir compris !

Tu as trois combobox qui sont cote à cote et tu voudrais selectionner un jour, un moi et une année???

Donc je suppose que tu veux rassembler ces trois valeur pour reconstituer une date?

Si c'est le cas, voici ce que tu peux faire :

Code :

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

1
2
3
4
5
6
 
Sub Test ()
Dim MaDate As String
 
MaDate = ComboJour.Text +"/"+ComboMoi.Text+"/"+ComboAnnee.Text
MsgBox MaDate

De ce faite, si le jours est : 01, le moi : 02 : l'année 2003
Alors la variable MaDate affichera : 01/02/2003

C'est ça que tu veux faire?

[xadep]

oui c'est cela que je veux faire et que je fais c'est d'ailleurs un peu plus complexe que cela

Mais le problème vient que la combobox contient une liste de donnée (ex : pour les jours elle va de 01 à 31), mais si l'utilisateur décide de taper la valeur dans la combobox au lieu de la sélectionner dans la liste, elle peut inscrire d'autre caractères que simplement la valeur de la liste. (ex dans la combobox 1 du jour, si je sélectionne via la liste déroulante, pas de problème je sélectionne le nombre souhaité, par contre si je décide de le taper et que je vais un peu trop vite je peux inscrire "03/" ce qui pose porblème car je me sert de la date dans mon titre de fichier lors de la sauvegarde). J'aimerais donc limiter les caractères à inscrire qu'au nombre présent dans la liste

pas facile à expliquer tout ca

[laetitia]

bonjour xadep jojo86 le forum dans propriétees de ta combo

Code :

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

Maxlenght =2

pour affiner code combo!!

Code :

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

1
2
3
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

[xadep]

c'est tout bete mais je ne connaissais pas

merci