Merci à tous,
Je n'avais pas vu ce fil, désolé. Je trouve que c'est une attitude responsable, même si cela peut nous ennuyer un peu.
Mais si quelqu'un a saisi mon problème je me permettrai de vous copier le bout de code posant problème et vous laisse un E-Mail pour un éventuel envoi de fichier
essry@hotmail.fr
Sub ListBoxUpdator(C As Integer)
Dim ColGeneral As Collection
Dim Container As Variant
Dim Item As Variant
Dim TabGeneral() As Variant
Dim i As Long, x As Long, y As Long
Dim Cc As Byte
Dim TotMontHT As Double, TotMontTVA As Double, TotMontTTC As Double
Dim CptItems As Integer
If ComeFromLbxJoyStick = True Then JoyItem = USF1.LbxJoyStick
Set ColGeneral = New Collection
Select Case USF1.OptionButtonDetail
Case True
For i = 0 To UBound(TabPlageSpecial, 1)
If TabPlageSpecial(i, C - 1) = JoyItem Then
On Error Resume Next
ColGeneral.Add TabPlageSpecial(i, 0) & Chr(35) & TabPlageSpecial(i, 1) & Chr(35) & TabPlageSpecial(i, 2) & Chr(35) & TabPlageSpecial(i, 3) & Chr(35) & _
TabPlageSpecial(i, 4) & Chr(35) & TabPlageSpecial(i, 5) & Chr(35) & TabPlageSpecial(i, 6) & Chr(35) & TabPlageSpecial(i, 7) & Chr(35) & _
TabPlageSpecial(i, 8) & Chr(35) & TabPlageSpecial(i, 9) & Chr(35) & TabPlageSpecial(i, 10) & Chr(35) & TabPlageSpecial(i, 11) & Chr(35) & TabPlageSpecial(i, 12) & Chr(35), _
TabPlageSpecial(i, 0) & Chr(35) & TabPlageSpecial(i, 1) & Chr(35) & TabPlageSpecial(i, 2) & Chr(35) & TabPlageSpecial(i, 3) & Chr(35) & _
TabPlageSpecial(i, 4) & Chr(35) & TabPlageSpecial(i, 5) & Chr(35) & TabPlageSpecial(i, 6) & Chr(35) & TabPlageSpecial(i, 7) & Chr(35) & _
TabPlageSpecial(i, 8) & Chr(35) & TabPlageSpecial(i, 9) & Chr(35) & TabPlageSpecial(i, 10) & Chr(35) & TabPlageSpecial(i, 11) & Chr(35) & TabPlageSpecial(i, 12) & Chr(35)
On Error GoTo 0
End If
Next
'++++++++++++++++++++++++++++++++++++++++++++
'C'EST ICI QU J'ESSAIE DE TRAITER LES DOUBLONS
'++++++++++++++++++++++++++++++++++++++++++++
For Each Item In ColGeneral
If x > 0 Then
If TabGeneral(0, x - 1) = TabPlageSpecial(x, 0) Then
x = x - 1
End If
End If
'x = x + 1
ReDim Preserve TabGeneral(13, x)
Container = Split(Item, Chr(35))
For Cc = 0 To 12
TabGeneral(Cc, x) = CStr(Container(Cc))
Next Cc
x = x + 1
Next
With USF1
.LblEnreg = 'Pas de sélection'
.TxbNbEnreg = ''
End With
Case False
For i = 0 To UBound(TabPlageSpecial, 1)
If TabPlageSpecial(i, C - 1) = JoyItem Then
For y = 0 To UBound(TabPlageSpecial, 1)
If JoyItem = TabPlageSpecial(y, C - 1) Then
CptItems = CptItems + 1
End If
Next y
ReDim Preserve TabGeneral(13, x)
TabGeneral(0, x) = '*'
TabGeneral(1, x) = '*'
TabGeneral(6, x) = '*'
TabGeneral(7, x) = '*'
TabGeneral(C - 1, x) = JoyItem
x = x + 1
With USF1
End With
JoyStickCumulItem = JoyItem
JoyStickColumn = C - 1
Exit For
End If
Next
End Select
'+++++++++++++++++++++++++++++++++++++++++++++++
'C'EST ICI QUE JE VEUX REMPLIR LA LISTBOX SANS DOUBLON
'++++++++++++++++++++++++++++++++++++++++++++
With USF1.ListBox1
.ColumnCount = 13
.Column() = TabGeneral
.ListIndex = 0
End With
For i = 0 To 12
With USF1.Controls('Head' & Format(i, '00'))
.SpecialEffect = 6
.BackColor = &HC0C0C0
End With
Next i
With USF1
.Controls('Head' & Format(C - 1, '00')).BackColor = &HFFFF&
End With
End Sub
