Discussion :

[zandru]

Bonjour,

Je cherche à remplir une combobox (numaff sur le userform misàjour), mais sans doublon. Jusque là je sais faire.

Mon problème est que je veux ne pas avoir de doublon sur uniquement les premiers caractères et pas le dernier que je ne connais donc pas.

Sur le code ci-dessous, je souhaiterai un equivalent de "-*" pour pouvoir savoir si il existe dans ma liste un autre string (contenu dans "debnumaff" ) qui commence de la même manière.

Code :

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

1
2
3
debnumaff = numerosaff.Cells(ligne, 1) & " " & numerosaff.Cells(ligne, 2) & numerosaff.Cells(ligne, 3) & " " & numerosaff.Cells(ligne, 4) & " " & numerosaff.Cells(ligne, 5)
misàjour.numaff = debnumaff & "-*"
If misàjour.numaff.ListIndex = -1 Then misàjour.numaff.AddItem (debnumaff & "-" & numerosaff.Cells(ligne, 6))

EDIT : une précision, la longueur de debnumaff est variable.

En espérant avoir été assez clair , merci de votre aide

[zandru]

Bonjour,

j'ai bidouillé et cela me donne :

Code :

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

1
2
3
4
5
6
7
8
9
debnumaff = numerosaff.Cells(ligne, 1) & " " & numerosaff.Cells(ligne, 2) & numerosaff.Cells(ligne, 3) & " " & numerosaff.Cells(ligne, 4) & " " & numerosaff.Cells(ligne, 5)
For i = 1 To misàjour.numaff.ListCount - 1
   misàjour.numaff.ListIndex = i
   If StrComp(Left(misàjour.numaff.Value, InStr(1, misàjour.numaff.Value, "-", vbTextCompare) - 1), debnumaff, vbTextCompare) = 0 Then
       misàjour.numaff.RemoveItem (i)
       Exit For
   End If
Next
misàjour.numaff.AddItem (debnumaff & "-" & numerosaff.Cells(ligne, 6))

ça fonctionne mais c'est un peu lourd,
Je supprime l'ancien, et je rajoute le nouveau ce qui m'oblige a parcourir la combobox à chaque fois.
Si quelqu'un à plus simple je prend, ...

[ucfoutu]

Bonjour,

déjà (et avant d'analyser tout le reste...)

Il est assez curieux de procéder comme tu le fais (sélection systématique de l'article d'indice i pour aller ensuite regarder la valeur de ta combo.value !!!)
je me réfère à cette partie de ton code :

Code :

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

misàjour.numaff.ListIndex = i

C'est aberrant et abusif !

Il y a quand-même une manière simple et moins lourde de lire directement (sans le sélectionner) un article, non ?
Qu'il s'agisse d'une listbox ou d'une combo, l'article de rang i est directement lu par

Code :

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

ton_objet.list(i)

et le reste de ton code (que je ne lirai qu'après) doit travailler avec CE contenu ...

EDIT : et je vois qu'en plus tu supprimes des articles dans une boucle For de 1 au nombre d'articles ! ==>> plantage assuré car tu vas ainsi te retrouver avec un i > que le nombre restant après suppression !
Quand on supprime, il faut faire ta boucle du dernier jusqu'au premier (en remontant gr(âce à Step -1) si l'on veut éviter des croches-pieds de l'espèce !

[zandru]

Bonjour,

oui, avec le .list(i) c'est plus léger.

Par contre, pour le for, pour régler ce problème j'ai rajouté un exit for dès que je supprime un item.

[ucfoutu]

Et ensuite tyu te plains ...
citation :

ce qui m'oblige a parcourir la combobox à chaque fois.
Si quelqu'un à plus simple je prend, ...

Alors ?
Il me semble que tu as eu une suggestion !
Je ne reviendrai personnellement que lorsque j'aurai pu voir son application...

[zandru]

Après simplification cela fonctionne toujours

Code :

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

1
2
3
4
5
6
7
debnumaff = numerosaff.Cells(ligne, 1) & " " & numerosaff.Cells(ligne, 2) & numerosaff.Cells(ligne, 3) & " " & numerosaff.Cells(ligne, 4) & " " & numerosaff.Cells(ligne, 5)
For i = misàjour.numaff.ListCount - 1 To 1 Step -1
    If StrComp(Left(misàjour.numaff.List(i), InStr(1, misàjour.numaff.List(i), "-", vbTextCompare) - 1), debnumaff, vbTextCompare) = 0 Then
         misàjour.numaff.RemoveItem (i)
    End If
Next
misàjour.numaff.AddItem (debnumaff & "-" & numerosaff.Cells(ligne, 6))