L
Luc
Guest
Bonsoir le forum,
Dans mon code j'ai un 'Incompatibilité de type' ?
Voici le code en question :
Private Sub ComboBox3_Change()
Dim tabtemp As Variant
Dim N As Integer
Dim O As Variant
With Worksheets('Inventaire')
O = .Range('a15000').End(xlUp).Row
tabtemp = .Range('A2:k' & O).Value
End With
For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = ComboBox1 And tablo(O, 2) = CStr(ComboBox2) And tablo(O, 3) = CStr(ComboBox3) Then
For N = 1 To 8
If tablo(N + 3) <> '' Then
Controls('ListBox' & N).AddItem tablo(N + 3)
End If
Next N
End If
Next O
Quelqu'un pourrait m'aider ?
Merci
Dans mon code j'ai un 'Incompatibilité de type' ?
Voici le code en question :
Private Sub ComboBox3_Change()
Dim tabtemp As Variant
Dim N As Integer
Dim O As Variant
With Worksheets('Inventaire')
O = .Range('a15000').End(xlUp).Row
tabtemp = .Range('A2:k' & O).Value
End With
For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = ComboBox1 And tablo(O, 2) = CStr(ComboBox2) And tablo(O, 3) = CStr(ComboBox3) Then
For N = 1 To 8
If tablo(N + 3) <> '' Then
Controls('ListBox' & N).AddItem tablo(N + 3)
End If
Next N
End If
Next O
Quelqu'un pourrait m'aider ?
Merci