[A-00] : sélectionner dans une liste en VBA

Version imprimable

Bonjour

J'essaie d'utiliser l'exemple de tofalu

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

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 8O

Qu'ai je oublié ?

merci

bon bout d'an, comme on dit chez moi

JP

30/12/2008, 18h33
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
31/12/2008, 09h33
Old_Chap

sélectionner, suite
bonjour

J' ai écrit ce ci:
Code:

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
31/12/2008, 16h03
Old_Chap

liste : suite

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 !? :oops:

cette fonction marche t elle aussi pour les listes modifiables ?

Allez, bonne fin d'année à tous

JP
01/01/2009, 14h43
loufab

Bonjour,

Pourquoi ne pas utiliser le type Control ?

Ce serait plus simple.

Cordialement,
01/01/2009, 18h41
Old_Chap

liste combobox, suite

Bonjour

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

JP
02/01/2009, 10h52
loufab

Non listbox est un controle. Suivant ce qu'on lui assigne il hérite de ses propriétés.
02/01/2009, 11h32
Old_Chap

suite
Si j'écris ceci
Code:

1 2 3 4 Dim liste As Control Set liste = Me.ARTICLE01 Selectionner liste, 0, w_code_article
j'obtiens la même erreur sur

Code:

Selectionner liste, 0, w_code_article

incompatibilité de type

me.article01 est une combobox

je dois affecter une propriété quelconqie ?

JP
02/01/2009, 11h35
loufab

Bonjour,

N'ayant pas de talent d'extra-lucide, mon chien m'a bouffé mon dernier jeu de Tarot de Marseille et j'ai cassé ma boule de cristal, je te suggère de poster également la procédure Selectionner, apparement le problème se situe là.

Cordialement,

procédure sélectionner

C'est celle du premier message de cette discussion:

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
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

que j'ai récupéré dans la FAQ

JP

02/01/2009, 13h38
loufab

:oops: pas les yeux en face des trous en ce début d'année:oops::D

Remplace listbox par control dans la déclaration.