Bonjour

J'essaie d'utiliser l'exemple de tofalu

"Voici une petite fonction qui peut faire l'affaire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Function Selectionner(Liste As ListBox, Colonne As Integer, Chercher As String)
Dim i As Integer
Dim Trouve As Boolean
For i = 0 To Liste.ListCount - 1
If Liste.Column(Colonne, i) = Chercher And Not Trouve Then
Me.Liste.Selected(i) = True
If Liste.MultiSelect = 0 Then Trouve = True
Else
Me.Liste.Selected(i) = False
End If
Next i
End Function


Utilisation :

Selectionner Liste0, 1, "Monsieur"

Dans mon formulaire, "maliste" est une liste déroulante
Dans VBA, j'écris
Selectionner maliste,0,ma_valeur

A l'exécution, j'ai l'erreur
incohérence de type
sur cette ligne

Qu'ai je oublié ?

merci

bon bout d'an, comme on dit chez moi

JP