Combobox.add item avec variable

[ConsultantJP]

Bonjour,

Je souhaiterai que ma combobox ajoute simplement les mots qui commence par "ABC"

J'ai essayé :

'If Left$(elem, Len("ABC")) = "ABC" Then CB.AddItem Variable

mais sans succes.

Une idée?
Merci a vous !

 

[ConsultantJP]

Re : Combobox.add item avec variable

Rebonjour je viens de penser à une autre solution mais bien entendu je ne sais pas faire, une fois la liste chargé, supprimer les items qui commence par "TRE" !

Svp avez vous une idée ?
merci

 

[jp14]

Re : Combobox.add item avec variable

Bonjour

Une piste
Fonction à utiliser Instr
pos = instr(Variable,"ABC")
If pos > 0 then CB.AddItem Variable

JP

 

[ConsultantJP]

Re : Combobox.add item avec variable

Bonjour et merci pour cette piste,

J'ai fait une tentative en avec ton code pour supprimer les items mais ça a pas marché !

Sub SupprimePasImm()

Dim nbimm, pos, variable
Dim i As Integer

nbimm = Compte(iliste_code.List(iliste_code.ListIndex, 0))

For i = 1 To nbimm

pos = InStr(iliste_code.ListIndex(i), "CNT")
If pos > 0 Then iliste_code.RemoveItem iliste_code.ListIndex(i)
Next
End Sub

Si tu peux me donner un coup je te remercie 1000 fois, j'ai pas envie de passer mon samedi a faire ça snif snfi !!

Merci !!

 

[ConsultantJP]

Re : Combobox.add item avec variable

autre essaie qui ne fonctionne pas ...

If aListe_compte.List(aListe_compte.ListIndex(i)) Like "*CNT*" Then aListe_compte.ListIndex(i).RemoveItem

 

[ConsultantJP]

Re : Combobox.add item avec variable

Au secours ....... personne ne peut m'aider ??? Je suis toujours dessus !!
merci !!!

 

[ConsultantJP]

Re : Combobox.add item avec variable

Je suis désesperer, soit ma demande n'est pas possible soit je ne sais pas ! mais j'y crois pas ! je n'"ai pas reussi encore à faire ce que je voulais !

 

[kjin]

Re : Combobox.add item avec variable

Bonsoir,

Sub MotquicommenceparABC()
LeMot = "ABCDEFGH IJ"
MsgBox Mid(LeMot, 1, 3)
End Sub

A+
kjin

 

[ConsultantJP]

Re : Combobox.add item avec variable

Bonjour à tous, je suis toujours dans ma galere sans succes !

J'ai fait un code dans lequel je croyais vraiment mais il n'a pas marché à nouveau !

Pouvez vous jeter un oeil et me dire si y a une incoherence svp !!

merci !

Sub SupprimePasImm()
On Error Resume Next
Dim nbimm, lemot, variable
Dim i As Integer


nbimm = iliste_code.ListCount

For i = 1 To nbimm

lemot = iliste_code.List(i)
variable = Mid(lemot, 1, 3)

If variable = "CTN" Then iliste_code.RemoveItem lemot
Next
End Sub

 

[jp14]

Re : Combobox.add item avec variable

Bonjour

Avec un fichier qui contient des données il serait plus facile de comprendre les raisons pour lequel rien ne fonctionne.

JP

 

[ConsultantJP]

Re : Combobox.add item avec variable

Bonjour JP14, je peux meme envoyer un morceau je bosse sur un cube OLAP donc ça sera un fichier vide dans ce cas.....

 

[jp14]

Re : Combobox.add item avec variable

Bonjour (re)

Il faut suivre pas à pas le code et voir en utilisant des espions les raisons qui font que le code ne fonctionne pas.

Jp

 

[kjin]

Re : Combobox.add item avec variable

Bonjour,
Il faut par exemple partir du bas de ta listbox pour supprimmer un item, sinon le nb d'items sera faux

Sub SupprimePasImm()
Dim lemot As String
Dim i As Integer
For i = iliste_code.ListCount - 1 To 0 Step -1
    lemot = iliste_code.List(i)
    If Mid(lemot, 1, 3) = "CTN" Then iliste_code.RemoveItem i
Next
End Sub

Attention Mid est sensible à la casse; si tu veux éliminer "CTN" ou "ctn" ou "CTn"

If Ucase(Mid(lemot, 1, 3)) = "CTN" Then iliste_code.RemoveItem i

A+
kjin