bonjour
je reviens sur un sujet pour lequel j'avais eu une réponse (docmarti)
En faisant mes vérifications, je viens de voir (tardivement) que rien ne se passait
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 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
L'item que je voulais supprimer est toujours présent
j'ai vérifié en amont l'utilisation (normalement car Mr Couper Coller a peut-être sévi) exclusive de additem
par contre dans une combobox le champ list rows était différentde 0
en aval je termine par
merci par avance (je suis en exel 2007)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 MsgBox ("Produit fonctionnellement supprimé") 'Vous informant que le présent code est modifié dans votre tableau Excel. Unload Me ' Vide et ferme l'Userform ( formulaire)
Partager