Listbox et additem avec le numéro de l'index qui est spécifié [Résolu]

Signaler
Messages postés
55
Date d'inscription
mardi 15 février 2005
Statut
Membre
Dernière intervention
4 juin 2010
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour à tous et toutes,

J'ai un probleme avec la listbox et la fonction additem.

je souhaite ajouter un élément à ma listbox au niveau de l'index que j'ai selectionné pour ce faire j'ai utilisé la ligne de code suivante:

dim res as variant
res = me.list1.additem("toto", me.list1.listindex)

Mais j'obtiens une erreur : Compile error : expected function ou variable

j'ai meme essayé res = me.list1.additem("toto", 1) mais j'obtient toujours la meme erreur

Pouvez vous me dire d'ou viens mon erreur. Merci

mickadevelop

2 réponses

Messages postés
55
Date d'inscription
mardi 15 février 2005
Statut
Membre
Dernière intervention
4 juin 2010

Re alors je viens de trouver en fait IL FAUT ENLEVER LES PARENTHESE (et donc ne pas pas mettre de "=res")

j'espere que ce message sera utile à quelqu'un au moins.

mickadevelop
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut,

effectivement, AddItem est une méthode, pas une fonction (propriété), donc aucun retour de valeur (et donc il ne faut pas de
Truc = TonObjet.SaMethode("Les param"))

le coup des parenthèses, voici qques proposition equivalentes :

Me.List1.AddItem "Ton Item"
Call Me.AddItem("Ton Item")

Et certaines fonctions (dont les API) te retournent en tant que fonction une valeur, mais n'est pas forcément necessaire :

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Tu peux faire
Call Playsound("Chemin\NomFichier.wav, ByVal 0&, SND_FILENAME Or SND_ASYNC Or SND_LOOP)
Playsound "Chemin\NomFichier.wav, ByVal 0&, SND_FILENAME Or SND_ASYNC Or SND_LOOP
Ret = Playsound("Chemin\NomFichier.wav, ByVal 0&, SND_FILENAME Or SND_ASYNC Or SND_LOOP)

Dans le dernier cas tu auras 0 en cas d'échec de lecture, mais ce retour n'est pas obligatoire

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA