bonjour

je reviens sur un sujet pour lequel j'avais eu une réponse (docmarti)

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
En faisant mes vérifications, je viens de voir (tardivement) que rien ne se passait

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

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)
merci par avance (je suis en exel 2007)