Creation et suppression de combobox par macro

Résolu
momouiz Messages postés 35 Statut Membre -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonsoir toute la communauté du vb,

comme le titre l'indique j'arrive à creer une combobox grâce à la sub suivante:


Sub Créer_Combo()

With ActiveSheet.OLEObjects.Add("Forms.ComboBox.1")
With .Object

.AddItem "yes", True
.AddItem "no", False
End With
End With


End Sub



pour supprimer ce qui m'améne à poser ma question, j'utilise cette sub:


Dim obj As OLEObject
Dim res As String


For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.ComboBox Then
res = InputBox("donnez la cellule de celui ?")

obj.Delete

le probléme est que sa me supprime tout alors que moi je voudrais que le user ne supprime que le combobox que lui aura selectionner et je ne sais pas comment faire sa.

Quelqu'un pour m'aider ? svp

merci




A voir également:

1 réponse

Réponse 1 / 1
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
Avec... 
Sub SuppCombo()
Dim obj As OLEObject
Dim Reponse As String
Dim C As String
    Reponse = UCase(InputBox("donnez l'Adresse de la cellule du combo à supprimer ?"))

    For Each obj In ActiveSheet.OLEObjects
        If TypeOf obj.Object Is MSForms.ComboBox Then
            C = Replace(obj.TopLeftCell.Address, "$", "")
            If C = Reponse Then
                obj.Delete
                Exit Sub
            End If
        End If
    Next obj
End Sub
Ca devrait aller.
A+

2