creation et suppression de combobox par macro Résolu

Question

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




Configuration: Windows XP / Firefox 3.0.10

lermite222 · Accepted Answer

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 SubCa devrait aller.
A+

Creation et suppression de combobox par macro

1 réponse

Newsletters