VBA - Adicionar o ComboBox e seu código.

Última modificação: 16 de fevereiro de 2011 às 13:44 por pintuda.

Código relativamente simples e que não precisa de explicação complementar.
Colar esses dois "sub" em um módulo geral (Módulo 1, por exemplo).

Option Explicit  

Sub CréerCombo(Ligar As Range, Optional Sh As Worksheet, Optional Emplacement As Range)  
Dim Obj As Object  
Dim code As String  
Dim Ix As Integer, Num As String  
    If Sh Is Nothing Then  
        Set Sh = ActiveSheet  
    End If  
    Sh.Select  
    Ix = ActiveSheet.OLEObjects.Count + 1  
    Num = "0" & Ix: Num = Right(Num, 2) 'Pour jusque 99 boutons  
    If Emplacement Is Nothing Then  
        'localização padrão  
        Set Emplacement = ActiveCell  
    End If  
'criar o botão  
    With Emplacement  
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combobox.1", _  
    Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.ColumnWidth * 5.65, Height:=.RowHeight)  
    Obj.Name = "ComboB_" & Num  
    End With  

'propriedades do combo  
    With ActiveSheet.OLEObjects(Ix)  
        .Placement = xlMoveAndSize  
        .PrintObject = True  
        .ListFillRange = Lier.Address  
    End With  

'O texto do macro  
    code = vbCrLf & "Private Sub ComboB_" & Num & "_Change()" & vbCrLf  
    code = code & "    MsgBox ""Vous avez sélectionner la ligne "" & ComboB_" & Num & ".Text , ,""ComboB_" & Num & """" & vbCrLf  
    code = code & "End Sub"  

'Adicione o macro no final do módulo da planilha  
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule  
        .insertlines .CountOfLines + 1, code  
    End With  
End Sub

Baixe m exemplo no Excel 2007 ou >
Adicionar Combo et código.xlsm (em francês)

Veja também

VBA - Adicionar o ComboBox e seu código.
Codigo de helicóptero gta san andreas ps2 - Dicas -GTA IV
Call vba - Dicas -Visual Basic
Código ascii - Dicas - Codificação
Código universal para desbloquear celular android -
Como adicionar uma pessoa no facebook que não tem a opção adicionar - Dicas -Facebook

Este documento, intitulado 'VBA - Adicionar o ComboBox e seu código.', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.

EXCEL - Planilha de gestão protegida de uma aplicação protegida

Excel - Ocultar linhas ou colunas

Assine nossa newsletter!