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))

[ucfoutu]

Bien !

Ce n'était pas une "simplification" mais une rationalisation logique (voilà un pléonoasme !).
Maintenant que l'on commence à y voir clair dans des eaux plus saines :
Si tu nous expliquais maintenant (avec au besoin un exemple court) ce que tu souhaites faire avec précision ?
- supprimer exactement si quoi ?
- rajouter quoi et quand ?
On va y arriver...

[zandru]

Un exemple donc :
j'ai une liste d'élément du type "0 AA 00 AA-0" dans un xls que je veux intégrer dans ma combobox.

Je ne veux conserver dans cette combobox que le dernier "0 AA 000 AA" en se basant sur le dernier chiffre ("-00"). (les longueurs des partie 00 sont variables)

Ce que je fait actuellement, c'est parcourir mon tableau xls et regarder si j'ai déjà le même "0 AA 0 AA" dans la combobox, si oui je supprime celui qui est déjà dans la liste et j'ajoute le nouveau.

est-ce que c'est plus clair ...?

[ucfoutu]

Désolé mais ou je suis fatigué, ou ce n'est toujours pas vraiment clair ...
Relis ce que tu as écrit dans ton dernier message et mets-toi donc dans la peau d'un lecteur qui n'est pas dans ton projet !

Attends...
laisse-moi relire et re-relire et je reviens si j'ai compris !

EDIT (après re-re-re-lecture)

Alors voilà à quoi cela devrait ressembler si j'ai bien deviné :

(écrit à main levée).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim V0 As String, V As String, I As Integer, pos As Integer, trouve As Boolean
  'Pour chaque cellule concernée
    'soit V la valeur de ta cellule
    ' soit V0 la partie avant le tiret
    trouve = False
    V0 = Left(V, InStr(V, "-") - 1)
    For I = taliste.ListCount - 1 To 0 Step -1
      pos = InStr(taliste.List(I), "-") - 1
      If Left(taliste.List(I)) = V0 Then
        taliste.RemoveItem I: trouve = True
      End If
    Next
    If trouve Then taliste.AddItem VO
  'Next cellule

Donc deux boucles imbriquées : une (que j'ai mise en commentaires) pour le parcours de tes cellules et que tu dois ouvrir et l'autre de traitement de ta liste

[zandru]

C'est vrai que ce n'est pas d'une clarté absolu

Donc deux boucles imbriquées : une (que j'ai mise en commentaires) pour le parcours de tes cellules et que tu dois ouvrir et l'autre de traitement de ta liste

Oui, c'est ce que j'ai fait et qui fonctionne. Mais ce que je me demandais au départ, c'est si il existait une astuce pour faire comme ce que j'ai dans mon premier message.

[laetitia]

bonjour zandru ucfoutu le forum comme j ai compris!!!

Option Explicit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim t As Variant, ta() As String, M As Object
Dim X As Long, i As Long, k As Long
Private Sub UserForm_Initialize()
On Error Resume Next
Set M = CreateObject("Scripting.Dictionary")
t = Range("a2:a" & Range("a65536").End(xlUp).Row)
X = 1
For i = 1 To UBound(t)
If Left(t(i, 1), InStr(t(i, 1), "-") - 1) Then
If Not M.Exists(t(i, 1)) And t(i, 1) <> "" Then
M.Add t(i, 1), t(i, 1)
ReDim Preserve ta(1 To 1, 1 To X)
For k = 1 To 1
ta(k, X) = t(i, k)
Next k: X = X + 1: End If: End If: Next i
combobox1.List = Application.Transpose(ta)
Erase t, ta
End Sub