XL 2013 Valeurs en double dans combobox

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
 

issam salem

XLDnaute Junior
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: 2

Staple1600

XLDnaute Barbatruc

Statistiques des forums

Discussions
288 632
Messages
1 893 633
Membres
169 984
dernier inscrit
mdemrs
Haut Bas