XL 2013 Valeurs en double dans combobox

[issam salem]

Bonjour le forum

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

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


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


Dans cet exemple l’utilisateur est ADMIN

Et merci d'avance

 

[fanfan38]

Bonjour

UF_Entrées.TB_Magasin.value= .Cells(1, i).Value
if UF_Entrées.TB_Magasin.listindex=-1 then
  UF_Entrées.TB_Magasin.AddItem .Cells(1, i).Value
endif

A+ François

 

[issam salem]

Bonjour j'ai tester avec ce code ms ça
marche pas voila le message qui s'affiche

 

[Staple1600]

Bonjour le forum

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

On t'a un peu aidé pour le faire, non? (notamment soan)

https://www.excel-downloads.com/threads/transfert-de-quantite.20050532/page-15

(Ca en fait des pages à lire)

Pour ta question de doublons dans le Combo, voir l'utilisation d'un objet Dictionary
(ou voir dans la FAQ du forum)

 

[issam salem]

On t'a un peu aidé pour le faire, non? (notamment soan)

https://www.excel-downloads.com/threads/transfert-de-quantite.20050532/page-15

(Ca en fait des pages à lire)

Pour ta question de doublons dans le Combo, voir l'utilisation d'un objet Dictionary
(ou voir dans la FAQ du forum)

OUi ça c'est autre chose mercii
Staple1600

 

[Staple1600]

Bonsoir le fil

=>issam salem
Pour la chose de cette discussion, j'avais écrit

Pour ta question de doublons dans le Combo, voir l'utilisation d'un objet Dictionary

Ce qui aurait du te mener évidemment ici

😉