Creation et suppression de combobox par macro

Résolu/Fermé

momouiz Messages postés 30 Date d'inscription lundi 24 juin 2013 Statut Membre Dernière intervention 21 octobre 2013 - 4 juil. 2013 à 18:18
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 5 juil. 2013 à 14:25

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:

Creation et suppression de combobox par macro
Forcer suppression fichier - Guide
Creation compte gmail - Guide
Création organigramme - Guide
Media creation tool - Télécharger - Systèmes d'exploitation
Macro word - Guide

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
5 juil. 2013 à 14:25

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+

Newsletters