Problème de barre d'outil et de combox box

[Asmoden]

[Résolu] Problème de barre d'outil et de combox box

Bonjour à tous!

Je viens un peu en urgence vers vous car j'ai beau chercher je ne trouve pas, je dois rendre mon projet demain soir suite à une réunion, et j'ai deux bug qui persistent et que je n'arrive pas à supprimer svp aidez-moi!!!

1- Barre d'Outil perso

j'ai créer une barre d'outil personnalisée qui s'ouvre et se ferme à l'ouverte et fermeture du classeur grâce à ce code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False

With Application
     .CommandBars("Menu BC").Visible = False

End With

Application.CommandBars("Menu BC").Delete

End Sub
----------------------------------------------
Private Sub Workbook_Open()

ScreenUpdating = False


With Application
    .CommandBars("Menu BC").Visible = True
End With

Le souci réside sur un bouton et un seul, la barre est composée de trois boutons, et cela n'arrive que sur le premier bouton.

A chaque réouverture du classeur, il faut que je sélectionne la macro liée au bouton!!!!
Alors que pour les autres boutons, ce n'est pas le cas! Il n'arrive pas à mémoriser visiblement la macro associée au premier bouton...

Auriez-vous une idée svp je présente çà devant un client et je ne peux me permettre que çà ne fonctionne pas...


2- J'ai créer une liste de combobox qui permet d'établir des filtres sur un tableau, le souci réside sur l'initialisation d'une seule...

Il faut que les noms clients soient classés par ordre alphabétique, et que le mot "TOUS" placés à la fin (donc après le dernier client classé), de plus lors de la création d'un nouveau client, il faut que la combo le classe avec les autres enfin il faut que la combo s'initialise à l'affichage avec la valeur "TOUS"

Or ce n'est pas le cas présentement : le mot "TOUS" n'est pas à la fin mais classé parmi les clients, la combo s'initialise avec le dernier client et non le mot "TOUS" de plus quand je crée un nouveau client, elle le rajoute en dernier et ne le tri alphabétiquement avec le reste...

Svp avez-vous une idée pour régler ce souci?
Voilà le code d'initialisation de la combo box en question

Merci...car j'avoue que je suis un peu désemparé là...et ma crédibilité auprès du client en prend un coup...

  'Initialisation
    Dim Cell As Range
    Dim client As New Collection
    Dim Valeur As Range
    Dim i As Integer
   

'---------- Pour clients ----------
    
    On Error Resume Next
    'boucle sur les cellules de la colonne C
    For Each Cell In Worksheets("Origine").Range("C11:C" & i)
        'Stocke les données dans une collection
        '(La collection n'accepte que des données uniques et permet donc
        ' de filtrer facilement les doublons).
        client.Add Cell, CStr(Cell)

    Next Cell
    On Error GoTo 0

    'Boucle sur le contenu de la collection pour alimenter la ComboBox
    For Each Valeur In client
        client_combobox.AddItem Valeur.Value2


    Next Valeur

With client_combobox
For j = 0 To .ListCount - 1
For k = 0 To .ListCount - 1
If .List(j) < .List(k) Then
temp = .List(j)
.List(j) = .List(k)
.List(k) = temp
End If
Next k
Next j
End With

client_combobox.AddItem "TOUS"

client_combobox.Text = "TOUS"

Svp m'abandonnez pas...

 

[Asmoden]

Re : Problème de barre d'outil et de combox box

C'est bon j'ai résolu mon problème, il fallait simplement que je déplace certaines données du code plus bas... Merci quand même!