Combo Box

salut,

dans ce cas, je te conseil de numéroter tes TextBox (par exemple :
text1, text2, text3, ...) cela simplifiera le code de recherche.
private sub CbBox_Change()
dim i as integer
dim c as control

if CbBox.value="" or IsNull(CbBox.value) then exit sub
for i=1 to 12
set c=me.controls("text" + cstr(i))
if c.value = CbBox.value then
c.setfocus
c.selstart = 0
c.sellength = len(cstr(c.value))
exit sub
end if
next i
'Valeur non trouvée
end sub

ce petit code (lié à l'évenement Change de ta ComboBox) va
rechercher dans les contrôles només text.. si un de ceux-ci contient
la valeur. Dans ce cas, le sous-prog s'arrête et place le focus sur ce
contrôle en selectionnant toute sa valeur...

A+, david

Un grand merci.
Je vais essayer

Bonjour,
J'ai un formulaire "Form1" avec 12 TextBox qui ne sont pas liées ni à une
Table ni Query.
Pourriez-je faire, dans le même Form1, une ComboBox qui cherche les données
dans toutes les TextBox ?
Merci d'avance

Mais.... ça ne marche pas....

Bonjour,
J'ai un formulaire "Form1" avec 12 TextBox qui ne sont pas liées ni à une
Table ni Query.
Pourriez-je faire, dans le même Form1, une ComboBox qui cherche les données
dans toutes les TextBox ?
Merci d'avance