XL 2013 Valeurs en double dans combobox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

issam salem

XLDnaute Junior
Bonjour le forum

Alors j'ai fait un code pour remplir le combobox selon l’utilisateur comme ceci :

VB:
Sub autoriser(Utilisateur As String)

Dim Col As Byte, i As Byte, lig As Integer



With Sheets("Autorisation") 'dans la feuille paramétrage

    'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :

    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column

    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne

    lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row

   UF_Entrées.TB_Magasin.Clear

    UF_Sorties.TB_Magasin.Clear

    Transfer.ComboBox1.Clear

    For i = 3 To Col

        If UCase(.Cells(lig, i)) = "X" Then 'si on trouve un "X" dans la cellule

         UF_Entrées.TB_Magasin.AddItem .Cells(1, i).Value

           UF_Sorties.TB_Magasin.AddItem .Cells(1, i).Value

           Transfer.ComboBox1.AddItem .Cells(1, i).Value

        End If

    Next i

End With

End Sub
image de tableau Autorisation

capture tableau autorisation
Mais le problème c'est quelque fois (et surtout a la première exécution ) le combobox a doubler les valeurs comme dans l'image c'est dessous

valeur en double
Dans cet exemple l’utilisateur est ADMIN

Et merci d'avance
 
Bonjour j'ai tester avec ce code ms ça
marche pas voila le message qui s'affiche
Capture.GIF
 

Pièces jointes

  • Capture.GIF
    Capture.GIF
    18.5 KB · Affichages: 25
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
665
Retour