OVH Cloud OVH Cloud

AddItem

3 réponses
Avatar
DoMi
Bonjour !

Sous VBA, j'ajoute des =E9l=E9ments =E0 une ListBox par AddItem.
Peut-on v=E9rifier si l'=E9l=E9ment qu'on veut ajouter existe=20
d=E9j=E0, pour dans ce cas ne pas l'ajouter ?

Merci pour votre aide.

3 réponses

Avatar
Anacoluthe
Bonjour !

'DoMi' nous a écrit ...
Sous VBA, j'ajoute des éléments à une ListBox par AddItem.
Peut-on vérifier si l'élément qu'on veut ajouter existe
déjà, pour dans ce cas ne pas l'ajouter ?


Le contenu d'une ListBox est sa propriété .List
qui peut être affectée à une variable-tableau
de .ListCount éléments. Il vous faudra donc faire
une boucle pour tester les éléments du tableau.
Si vous ne voyez pas comment faire, revenez.

Anacoluthe
« Les tableaux sont des rêves qu'on pose sur les choses. »
- Jean-Guy RENS

Avatar
Geo
Bonjour DoMi


Bonjour !

Sous VBA, j'ajoute des éléments à une ListBox par AddItem.
Peut-on vérifier si l'élément qu'on veut ajouter existe
déjà, pour dans ce cas ne pas l'ajouter ?


Je ne connais pas de truc particulier pour ça.
Regarde des idées là :
http://www.vbfrance.com/forum.v2.aspx?IDd068
On pourrait aussi faire une varaible string qui concaténe toutes les
valeurs ajoutées, éventuellment un séparateur et on regrade dedans si
la valeur existe.
qqch comme :

T = "$"

Litse.additem a
T= T & a & "$"

If instr(t, b) = 0 then
Litse.additem b
T= T & b & "$"
endif

--

A+

Avatar
DoMi
Merci, c'est facile, effectivement.
Merci aussi à Geo, mais je préfère la solution
d'Anacoluthe...

DoMi

-----Message d'origine-----
Bonjour !

'DoMi' nous a écrit ...
Sous VBA, j'ajoute des éléments à une ListBox par
AddItem.


Peut-on vérifier si l'élément qu'on veut ajouter
existe


déjà, pour dans ce cas ne pas l'ajouter ?


Le contenu d'une ListBox est sa propriété .List
qui peut être affectée à une variable-tableau
de .ListCount éléments. Il vous faudra donc faire
une boucle pour tester les éléments du tableau.
Si vous ne voyez pas comment faire, revenez.

Anacoluthe
« Les tableaux sont des rêves qu'on pose sur les
choses. »

- Jean-Guy RENS

.