CombobBox.Click

[Macpoy]

bonsoir le forum,
me voici de retour avec mon petit problème.
amis Excelliens, voici en bref ma requète :
j'ai réussi (grâçe à vous!) à créer une barre perso dans laquelle j'ai placé une combobox qui se remplie avec les titres des colonnes.
je souhaites maintenant, que lorsque je clique dans cette combobox sur un titre de colonne, la cellule active devienne ce titre. malheureusement pour le moment cela bug un peu !!!!
et bien évidemment, je ne vois pas ou est l'erreur.
merci d'avance de vous pencher sur ce petit problème de syntaxe. [file name=listboxmacpoy.zip size=29475]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listboxmacpoy.zip[/file]

 

[Hervé]

bonjour macpoy

en piece jointe ton fichier modifié :

-ajout d'un tag pour le msoControlPopup :

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

- modification du code :

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

- ajout d'un code pour suppression de la barre perso lors de la fermeture :

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

[file name=listboxmacpoy_20060531121630.zip size=29307]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listboxmacpoy_20060531121630.zip[/file]

 

[Macpoy]

bonsoir le forum,
Mes respects Hervé,
merci beaucoup pour l'épine que tu m'enlève du pied; c'est exactement le résultat et l'effet désiré.
Excel ne sait pas encore faire du bon café, mais il est capable de le dosé grâçe à des passionnés comme toi.
merci, merci beaucoup.


ne me dites pas que ce problème est difficile, s'il n'était pas difficile, ce ne serait pas un problème; ( maréchal Foch )