CombobBox.Click

    With LBoutPop
        .Caption = CaptionBarre
        .TooltipText = TipTextBarre
        .Tag = 'toto'

Cliquez pour agrandir...

Sub ComboBoxCol()
Dim mycontrol As CommandBarPopup
Dim combo As CommandBarComboBox
Dim Choix As String
Dim c As Range

Set mycontrol = Application.CommandBars.FindControl _
(Type:=msoControlPopup, Tag:='toto')

Set combo = mycontrol.Controls(8)
'
Choix = combo.Text


With SituGlob.Range('A1:IV1')
    Set c = .Find(What:=Choix, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
            Range(c.Address).Activate
        End If
End With

End Sub

Cliquez pour agrandir...

Public Sub supprime()
On Error Resume Next
CommandBars('Barreperso').Delete
End Sub

Cliquez pour agrandir...