vba exel modifier et/ou supprimer item liste déroulanter

bonjour

je travaille sur excel 2997

j'ai une combobox (combobox3) initialisée par additem

il y a 2 champs :
code ("A")
Libellé ("B")

je veux modifier le libellé et je n'y arrive pas car sur la recherche du code via list, j'ai toujours -1

le problème est identique sur une suppression d'item (sur la recherche du code via list) j'ai toujours -1

i l y a aussi des créations ne posant aucun problème

je souhaiterais connaitre la marche à suivre

merci par avance

Salut, si dans contexte VBA voir : Utiliser les contrôles dans un UserForm, en VBA Excel

bonjour

j'avais vu le tuto

mon cas er décrit mais je ne vois pas la solution

voici mon cas

Code:

---

1 2	If listBox1.listIndex = -1 Then Exit Sub MsgBox ListBox1.List(ListBox1.ListIndex)

---

Je reçois toujours - 1

======> je ne connais pas l'index pour faire le bon remove item

je ne vois pas de méthode pour modifier un libellé

j'avais prévu

= récupération index
= remove item
= et additem
Dans les 2 solutions tout est la conséquence du -1

bug chez moi
ou
autre méthode


bien cordialement





i

Bonjour.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click()   If ComboBox1.ListIndex = -1 Then Exit Sub   MsgBox ComboBox1.ListIndex   MsgBox ComboBox1.List(ComboBox1.ListIndex)   ComboBox1.RemoveItem ComboBox1.ListIndex   End Sub

---

merci pour le coup de main (dur dur)

j'ai adapté le code à mon cas (essayer de)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton12_Click() Dim j As Integer Dim code_comp As Script If ComboBox3.ListIndex = -1 Then Exit Sub ' For j = 1 To Me.ComboBox3.ListCount MsgBox ComboBox3.ListIndex MsgBox ComboBox3.List(ComboBox3.ListIndex) ' ComboBox3 = Range("A" & j) ' If combobox3.Range("A" & j) = code_comp Then ComboBox3.RemoveItem ComboBox3.ListIndex ' End If ' Next j End Sub

---

mes ajouts sont en commentaire

j'ai récupéré via input box le code à supprimer
et je balaie la liste déroulante (pour trouver la ligne à supprimer (comparaison proposition opérateur et liste en service)
ensuite remove item


En ignorant les ajouts je peine à comprendre les enchainements

'ai fait un input box pour récupérer le code (code_cmp) crée une procédure appelée depuis mes procédures

mais je reste bloqué après l'exit sub (sur -1) et je n'y arrive pas

mes excuses pour vous "resolliciter"

michel
je pensais aller vers une adresse (via goto) pour renvoyer

MsgBox ComboBox3.ListIndex

est ce bon ?
et surtout comment l'adapter à ma boucle et à m récuoer du champ "A"

j'ai fait 1 essai qui va en erreur 381 quand je demande d'exécuter (je suis en pas à pas

Code:

---

MsgBox ComboBox3.List(ComboBox3.ListIndex)

---

cela provient de la réponse (-1)

sur

Code:

---

MsgBox ComboBox3.ListIndex

---

cordialement

michel

Les items List des combobox ne vont pas de 1 à ComboBox1.ListCount

Ils vont de 0 à ComboBox1.ListCount - 1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click()   Dim j As Integer Dim code_comp As String   code_comp = InputBox("", , "")   For j = Me.ComboBox1.ListCount - 1 To 0 Step -1   If ComboBox1.List(j, 0) = code_comp Then ComboBox1.RemoveItem j   End If Next j End Sub

---

merci pour la correction

cela me permet d avancer et de comprendre

bien cordialement

mlchel

je passe à résolu