texte dans combobox

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

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:

---

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?

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

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

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

Code:

---

Maxlenght =2

---

pour affiner code combo!!

Code:

---

1 2 3

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

---

c'est tout bete mais je ne connaissais pas

merci