Discussion :

[Old_Chap]

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

[Invité]

Bonjour

Est-ce que tu as bien respecté les types d'objets que tu as passé en paramètres, comme c'est défini dans les paramètres de la fonction ?

Philippe

[Old_Chap]

bonjour

J' ai écrit ce ci:

Code :

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

1
2
3
4
Dim maliste As ListBox
 
        Set maliste = Me.ARTICLE01
        Selectionner maliste, 0, w_code_article

Me.article01 est mon controle "liste déroulante".

A l'exécution, j'ai l'erreur "incompatibilité" de type à l'instruction
Set maliste ...

Quid ? Quando, Quo ?

JP

[Old_Chap]

Bonjour

Un dernier message avant la fin 2008:
mon controle est en fait une "liste modifiable", ce qui n'est pas une listbox en VBA : je ne trouve pas le nom de l'objet "liste modifiable" en VBA !?

cette fonction marche t elle aussi pour les listes modifiables ?

Allez, bonne fin d'année à tous

JP

[loufab]

Bonjour,

Pourquoi ne pas utiliser le type Control ?

Ce serait plus simple.

Cordialement,

[Old_Chap]

Bonjour

Je ne vois pas bien comment utiliser le type Control.
N'est ce pas trop générique ?

JP