missaudrey
XLDnaute Nouveau
Bonjour à tous,
J'ai toujous utilisé ce code pour supprimer les doublons dans une combobox:
finligne = getFinLigne
index = debutligne
debutligne = 8
varget = CmbTotalGET.Text
CmbTotalLot.Clear
index = debutligne + 1
While index <> finligne + 1
If varget = Sheets("Base de Données").Range("A" & index).Value Then
If lot <> Sheets("Base de Données").Range("J" & index).Value Then
lot = Sheets("Base de Données").Range("J" & index).Value
' Permet d'éviter les doublons dans le menu déroulant
If CmbTotalLot.ListIndex = -1 Then
CmbTotalLot.AddItem (lot)
End If
End If
End If
index = index + 1 Wend
'prendremodifEncompte = True
CmbTotalLot.ListIndex = -1 ' Mettre l'index à -1 à voir
Aujourd'hui, en travaillaant sur mon fichier, je constate que ca ne marche plus. Svp de l'aide!
J'ai toujous utilisé ce code pour supprimer les doublons dans une combobox:
finligne = getFinLigne
index = debutligne
debutligne = 8
varget = CmbTotalGET.Text
CmbTotalLot.Clear
index = debutligne + 1
While index <> finligne + 1
If varget = Sheets("Base de Données").Range("A" & index).Value Then
If lot <> Sheets("Base de Données").Range("J" & index).Value Then
lot = Sheets("Base de Données").Range("J" & index).Value
' Permet d'éviter les doublons dans le menu déroulant
If CmbTotalLot.ListIndex = -1 Then
CmbTotalLot.AddItem (lot)
End If
End If
End If
index = index + 1 Wend
'prendremodifEncompte = True
CmbTotalLot.ListIndex = -1 ' Mettre l'index à -1 à voir
Aujourd'hui, en travaillaant sur mon fichier, je constate que ca ne marche plus. Svp de l'aide!