Discussion :

[DonQuiShoote]

Ah, ah !!!
J'ai lu en travers ta dernière proposition; je partais casser la croûte!
Attends; j'essaie ton truc; je ne connaissais pas cette syntaxe!

[DonQuiShoote]

Houaouh !!!!
Super, terrrrible, sensass, hypercool !
Ca marche comme sur des roulettes; du coup mon appli est terminée, sans que j'ai mis mon neurone avarié à contribution!
Merci beaucoup; quand j'aurai le temps (et gagné un gros tiercé) je t'élèverai une statue sur la place de la victoire à Bordeaux!
Voilà le code modifié; tout marche impeccable; quand la routine trouve une occurrence, elle pointe dessus en déroulant la liste!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function cherche(liste As ComboBox, colonne As Integer, cherch As String)
Dim i As Long, trouve As Boolean, ligne As Variant
DoCmd.GoToControl ("liste_com")
 For i = 0 To Me.liste_com.ListCount - 1
    If Me.liste_com.ItemData(i) Like "*" & Me.chaine & "*" Then
    Me.liste_com.SetFocus
    Me.liste_com = Me.liste_com.ItemData(i)
    Exit For
    End If
 Next i
End Function
Private Sub recherche_Click()
cherche liste_com, 0, chaine
Me.liste_com.Dropdown
End Sub

[Faw]

Chiche!!! promets simplement de ne pas laisser Jupé balader ses chiens trop
près de mes pieds (ou sabots!)

[DonQuiShoote]

J'ai honte d'avoir un repris de justice pareil pour maire;
les bordelais sont des cons; sauf moi évidemment!

[Heureux-oli]

Tu ne dois pas avoir honte, tu veux venir voir à Charleroi !

Ils font la file devant la prison en attendant leur tour, de temps en temps, on en fait sortir un pour faire de la place pour ceux qui attendent.

[Faw]

C'est beau l'Europe!
Meilleurs voeux RaviOli

Don je me permets de structurer ton algo

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function cherche(liste As ComboBox, colonne As Integer, cherch As String)
Dim i As Long, trouve As Boolean, ligne As Variant
'DoCmd.GoToControl ("liste_com") ' Pas besoin
 For i = 0 To Me.liste_com.ListCount - 1
    If Me.liste_com.ItemData(i) Like "*" & Me.chaine & "*" Then
    'Me.liste_com.SetFocus 'inutile ici
    Me.liste_com = Me.liste_com.ItemData(i)
    Exit For
    End If
 Next i
End Function
Private Sub recherche_Click()
cherche liste_com, 0, chaine
Me.liste_com.SetFocus 'ici c'est (presque) indispensable
Me.liste_com.Dropdown
End Sub

A voir si ça te donne le même résultat.

[DonQuiShoote]

Bon je vais essayer mais lundi au boulot; ici je suis chez moi et je ne peux pas.
Merci de m'arranger mon code, car je n'y connais rien en vba et je fais comme si c'était du C; en plus je suis bordelique; une fois que ça marche; je n'épure pas le code!
Oui les politiques sont de moins en moins crédibles; l'emmerdant c'est que ce sont les financiers, les industriels et les commerciaux qui ont pris le pouvoir, et que eux ce ne sont pas des poêtes! Alors avoir des idéaux de progression de l'humanité et de protection de l'environnement avec des mecs comme ça; ça craint! Mais comment faire quand il y a autant de cons qui votent contre leur propre intérêt!
Caféine c'est pas celui qui a fait multidec ?
A dichat sans faute!
DonQuiShoote.